Új hozzászólás Aktív témák

• #45147 eszgé100 őstag Fire/SOUL/CD #45138

  Új Válasz 2020-10-24 19:04:21 #45147

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  eszgé100

  őstag

  válasz Fire/SOUL/CD #45138 üzenetére

  Szia, köszönöm szépen.
  5 embernél valóban nem sok értelme van, de kb 100 ember betanulását 80 munkafolyamaton kellene így nyomonkövetni, ezért gondoltam, hogy a dupla klikkes megoldás gyorsabb.

  VBA-ban jelenleg ezt kellene finomhangolni:

  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  If Target.Value = 0 Then
    ActiveCell.Value = 25
    Range("A1").Select
ElseIf Target.Value = 25 Then
    ActiveCell.Value = 50
    Range("A1").Select
ElseIf Target.Value = 50 Then
    ActiveCell.Value = 75
    Range("A1").Select
ElseIf Target.Value = 75 Then
    ActiveCell.Value = 100
    Range("A1").Select
ElseIf Target.Value = 100 Then
    ActiveCell.Value = 0
    Range("A1").Select
End If
End Sub

  Feltételes formázáskor csak az ikont megjelentítve szépen ugrál szeletről-szeletre, de muszáj volt a kijelölést elmozdítanom, különben loop lenne belőle. Ebből a "Range("A1").Select"-re jobb lenne valami más, mert ez csak addig okés, míg nem kell görgetni, legjobb lenne, ha ugyanazon a cellán maradna a kijelölés, valamint az egész Sheet1 helyett csak egy adott tartományban működjön a duplaklikk.

Új hozzászólás Aktív témák