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

• #19121 Delila_1 veterán ElemiKoczka #19120

  Új Válasz 2013-09-29 08:00:17 #19121

  Ú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 ElemiKoczka #19120 üzenetére

  A lapodhoz rendeld a makrót, ilyen módon.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, [A:B]) Is Nothing Then
  If Target = 6 Then Range(Target.Address) = "6:00"
  If Target = 14 Then Range(Target.Address) = "14:00"
  End If
  End Sub

  Ez a makró az A és B oszlopba beírt 6-ot írja át 6:00-ra, és a 14-et 14:00-ra.
  Ha nem az A és B oszlopban van a két időpontod, az

  If Not Intersect(Target, [A:B]) Is Nothing Then

  sorba írd be a módosítást.

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