-
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
- XPEnology
- Apple iPhone 17 Pro Max – fennsík
- Milyen okostelefont vegyek?
- Azonnali informatikai kérdések órája
- Samsung Galaxy Felhasználók OFF topicja
- gban: Ingyen kellene, de tegnapra
- Milyen billentyűzetet vegyek?
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Több mint 2 millióan próbálták ki a Pragmata demóját
- Villanyszerelés
- További aktív témák...
- 270 - Lenovo Yoga Pro 9 (16IAH10) - Intel Core U9 285H, RTX 5070 (ELKELT)
- Xiaomi 14 512GB, Kártyafüggetlen, 1 Év Garanciával
- CÉGEK FIGYELEM!! iPhone 11 64GB Black -1 ÉV GARANCIA - 27% ÁFA-S SZÁMLA Kártyafüggetlen, 100% Akksi
- Friss készlet! MacBook Pro 14" M1 16GB RAM 27%-os áfás számla (238)
- BESZÁMÍTÁS! Gigabyte Vision OC RTX 3080 10GB videokártya garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50