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

• #14445 Delila_1 veterán lacid90 #14444

  Új Válasz 2012-07-24 20:10:21 #14445

  Ú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

  

  Delila_1

  veterán

  válasz lacid90 #14444 üzenetére

  Egy fölöttébb fárasztó pihenésem volt...

  Egy laphoz rendelt, eseményvezérelt makró megoldja.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, [A:A]) Is Nothing Then
  Application.EnableEvents = False
  Cells(Target.Row, "A") = Round(Target.Value / 5, 0) * 5
  Application.EnableEvents = True
  End If
  End Sub

  Ez az A oszlopba bevitt értékeket figyeli árgus szemekkel {If Not Intersect(Target, [A:A]) Is Nothing Then}, és a bevitel sorába írja a kerekített értéket {Cells(Target.Row, "A") = Round(Target.Value / 5, 0) * 5}.

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