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

• eszgé100 őstag

  #45147

  #45138 Fire/SOUL/CD

  2020-10-24 19:04:21

  Új Válasz

  Ú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

  

  eszgé100

  őstag

  #45138 Fire/SOUL/CD

  #45138 Fire/SOUL/CD

  Elég macerás lenne és csak makróval lehetne megoldani, de nem nagy értelmét látom...
  Használj inkább feltételes formázást ikonkészlettel vagy adatsávokkal, sokkal egyszerűbb.
  

  

  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