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

• #34680 Delila_1 veterán joeetm #34677

  Új Válasz 2017-03-27 12:24:23 #34680

  Ú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 joeetm #34677 üzenetére

  Laphoz rendelt makróval is megoldható.

  Private Sub Worksheet_Change(ByVal Target As Range)
Dim ido As String
If Target.Column = 1 And IsNumeric(Target) Then
Application.EnableEvents = False
If Len(Target) < 6 Then ido = Right("000000" & Target, 6) Else ido = Target
ido = Left(ido, 2) & ":" & Mid(ido, 3, 2) & ":" & Right(ido, 2)
Range(Target.Address) = Format(CDate(ido), "hh:mm:ss")
Application.EnableEvents = True
End If
End Sub

  Ez az A oszlopba beírt értékeket (Target.Column=1) alakítja át idő formátumra.
  Nem kell beírni az időérték elején lévő nullákat. Pl. 0:00:12-nél elég a 12; 0:20:18-nál 2018.

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