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

• #19138 Delila_1 veterán ElemiKoczka #19120

  Új Válasz 2013-09-29 15:18:27 #19138

  Ú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

  Rájöttem, hogy a #19121-ben nem azt a választ adtam, amire vártál.
  Kerek óránál 600-t írj, 12:42-höz elég 1242-t írnod, 0:54-nél 054-et.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim ido, ertek
  If Not Intersect(Target, [A:B]) Is Nothing Then
  If Range(Target.Address) = "" Then Exit Sub
  Application.EnableEvents = False
  On Error GoTo Hiba
  ertek = Target * 1
  If ertek > 2359 Or ertek < 0 Or Right(ertek, 2) > 59 Then
  GoTo Hiba
  Else
  Select Case Len(ertek)
  Case 1, 2
  ido = "00:" & ertek
  Case 3
  ido = "0" & Left(ertek, 1) & ":" & Right(ertek, 2)
  Case Else
  ido = Left(Target, 2) & ":" & Right(Target, 2)
  End Select
  
  Range(Target.Address) = Format(ido, "hh:mm")
  End If
  End If
  Application.EnableEvents = True
  Exit Sub
  
  Hiba:
  MsgBox "Hiba!" & Chr(10) & "Ilyen időpont nem létezik", vbInformation
  Range(Target.Address).Select
  Application.EnableEvents = True
  End Sub

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