- Milyen okostelefont vegyek?
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Mobil flották
- Android alkalmazások - szoftver kibeszélő topik
- Google Pixel 8a - kis telefon kis késéssel
- Huawei P30 Pro - teletalálat
- Samsung Galaxy Watch7 - kötelező kör
- Google Pixel topik
- Karaktere biztos lesz az első Nothing fejhallgatónak
- iPhone topik
-
Mobilarena
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
Hirdetés
- Azonnali informatikai kérdések órája
- NVIDIA GeForce RTX 3080 / 3090 / Ti (GA102)
- PlayStation 3
- Debrecen és környéke adok-veszek-beszélgetek
- Parfüm topik
- OLED monitor topik
- A fociról könnyedén, egy baráti társaságban
- Milyen okostelefont vegyek?
- Amatőr csillagászat
- Elektromos rásegítésű kerékpárok
- További aktív témák...
- Eladó steam/ubisoft/EA/stb. kulcsok Bank/Revolut/Wise (EUR, USD, crypto OK)
- Gyermek PC játékok
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - NYÁRI AKCIÓ!
- Lenovo Thinkpad P1 gen1, gen2, P52s FHD, 4K oled touch
- Csere-Beszámítás! MSI Gaming X RTX 4060Ti 16GB GDRR6 Videokártya!
- BESZÁMÍTÁS! ASROCK B650 R5 7600X 32GB DDR5 1TB SSD RTX 3070 8GB MSI MPG Gungnir 100 Enermax 750W
- AKCIÓ! ASUS PRO WS W790E-SAGE SE alaplap garanciával hibátlan működéssel
- ÁRGARANCIA! Épített KomPhone Ryzen 5 7500F 32/64GB DDR5 RTX 5060Ti 8GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged