Jak vložit dvojtečku mezi čísla, aby byla automaticky v časovém formátu v aplikaci Excel?
Když vložíte formát času do buněk listu, bylo vám někdy nepříjemné pokaždé zadávat dvojtečky? V tomto článku budu hovořit o tom, jak vložit dvojtečku při zadávání čísel, aby byla v aplikaci Excel automaticky formátována jako čas.
Vložte dvojtečku mezi čísla, aby byla ve formátu času pomocí vzorců
Při zadávání pomocí kódu VBA automaticky proveďte formátování čísel do času
Vložte dvojtečku mezi čísla, aby byla ve formátu času pomocí vzorců
Předpokládejme, že máte seznam čísel, abyste vložili dvojtečky a vytvořili je jako formát času, následující vzorce vám mohou udělat laskavost.
Pokud jsou čísla vždy 3 nebo 4 číslice, můžete použít tento vzorec:
=TIME(LEFT(A1,LEN(A1)-2),RIGHT(A1,2),0), potom přetáhněte úchyt výplně dolů do buněk, které chcete tento vzorec obsahovat, a podle potřeby získáte následující výsledek:
Pokud jsou čísla 5 nebo 6 číslic, použijte tento vzorec:
=(INT(A1/10000)&":"&INT(MOD(A1,10000)/100)&":"&MOD(A1,100))+0a přetáhněte popisovač výplně dolů do buněk, které chcete tento vzorec obsahovat, a získáte následující číselnou sekvenci, jak je znázorněno na následujícím obrázku:
Potom byste měli kliknutím na formátovat čísla jako formát času Čas z obecně rozevírací seznam pod Domů karta, viz screenshot:
Při zadávání pomocí kódu VBA automaticky proveďte formátování čísel do času
Následující kód VBA vám také pomůže při automatickém převodu čísel do formátu času, když je zadáváte, postupujte takto:
1. Přejděte na list, do kterého chcete automaticky vložit dvojtečky do čísel.
2. Klikněte pravým tlačítkem na kartu listu a vyberte Zobrazit kód z kontextové nabídky ve vyskakovacím okně Microsoft Visual Basic pro aplikace zkopírujte a vložte následující kód do mezery Modul okno, viz screenshot:
Kód VBA: Automatická tvorba čísel do formátu času:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updateby Extendoffice 20160606
Dim xStr As String
Dim xVal As String
On Error GoTo EndMacro
If Application.Intersect(Target, Range("A1:A20")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
With Target
If Not .HasFormula Then
xVal = .Value
Select Case Len(xVal)
Case 1 ' e.g., 1 = 00:01 AM
xStr = "00:0" & xVal
Case 2 ' e.g., 12 = 00:12 AM
xStr = "00:" & xVal
Case 3 ' e.g., 735 = 7:35 AM
xStr = Left(xVal, 1) & ":" & Right(xVal, 2)
Case 4 ' e.g., 1234 = 12:34
xStr = Left(xVal, 2) & ":" & Right(xVal, 2)
Case 5 ' e.g., 12345 = 1:23:45 NOT 12:03:45
xStr = Left(xVal, 1) & ":" & Mid(xVal, 2, 2) & ":" & Right(xVal, 2)
Case 6 ' e.g., 123456 = 12:34:56
xStr = Left(xVal, 2) & ":" & Mid(xVal, 3, 2) & ":" & Right(xVal, 2)
Case Else
Err.Raise 0
End Select
.Value = TimeValue(xStr)
End If
End With
Application.EnableEvents = True
Exit Sub
EndMacro:
MsgBox "You did not enter a valid time"
Application.EnableEvents = True
End Sub
Poznámka: Ve výše uvedeném kódu A1: A20 jsou buňky, které chcete vložit později, a můžete změnit odkaz na buňku podle svých potřeb.
3. A teď, když zadáte čísla jako 102319 v oblasti buněk A1: A20, a poté stiskněte vstoupit klíč, bude číslo naformátováno jako 10:23:19 AM ve formátu času automaticky, jak potřebujete.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!