Ú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.

• #34679 Juditta_56 aktív tag joeetm #34677

  Új Válasz 2017-03-27 11:52:40 #34679

  Ú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

  

  Juditta_56

  aktív tag

  válasz joeetm #34677 üzenetére

  Én három külön oszlopba szoktam beíratni, amiket érvényesíttetek (<24, <60 és <60) és utána csinálok belőle időt. Pl. =IDŐ(A1;B1;C1) így kevesebb probléma szokott lenni az adatbevitellel, mint ha folyamatosan vinnék be az adatokat.

• #34678 DrojDtroll veterán joeetm #34677

  Új Válasz 2017-03-27 11:36:07 #34678

  Ú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

  

  DrojDtroll

  veterán

  válasz joeetm #34677 üzenetére

  Írd máshova az adatokat és egy függvény átalakítja neked.

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