-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
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 SubEz 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
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- ÁRGARANCIA!Épített KomPhone Ryzen 5 5600X 16/32/64GB RAM RX 9060 XT 8GB GAMER PC termékbeszámítással
- ÁRGARANCIA!Épített KomPhone Ryzen 7 9800X3D 32/64GB RAM RX 9070 XT 16GB GAMER PC termékbeszámítással
- iPhone 12 128GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS4615, 100% AKKSI
- Telefon felvásárlás!! iPhone 15/iPhone 15 Plus/iPhone 15 Pro/iPhone 15 Pro Max
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50