Sut i fewnosod colon rhwng rhifau i'w gwneud yn fformat amser yn awtomatig yn Excel?

Pan fyddwch yn mewnosod fformat amser mewn celloedd taflen waith, a ydych erioed wedi cael eich cythruddo wrth deipio'r colonau bob tro? Yn yr erthygl hon, byddaf yn siarad am sut i fewnosod colon wrth nodi rhifau i'w gwneud yn fformat amser yn awtomatig yn Excel.

Mewnosodwch y colon rhwng rhifau i'w gwneud yn fformat amser gyda fformwlâu

Auto gwneud y rhifau i fformat amser wrth i chi eu nodi gyda chod VBA

Mewnosodwch y colon rhwng rhifau i'w gwneud yn fformat amser gyda fformwlâu

Gan dybio, mae gennych chi restr o rifau, i fewnosod y colonau a'u gwneud fel fformat amser, gall y fformwlâu canlynol ffafrio chi.

Os yw'r rhifau bob amser yn 3 neu 4 digid gallwch ddefnyddio'r fformiwla hon:

=TIME(LEFT(A1,LEN(A1)-2),RIGHT(A1,2),0), yna llusgwch y handlen llenwi i lawr i'r celloedd rydych chi am gynnwys y fformiwla hon, a byddwch chi'n cael y canlyniad canlynol yn ôl yr angen:

Os yw'r rhifau yn 5 neu 6 digid, defnyddiwch y fformiwla hon:

=(INT(A1/10000)&":"&INT(MOD(A1,10000)/100)&":"&MOD(A1,100))+0, a llusgwch y ddolen llenwi i lawr i'r celloedd rydych chi am gynnwys y fformiwla hon, a byddwch yn cael dilyniant rhif fel y dangosir y llun a ganlyn:

Yna dylech fformatio'r rhifau fel fformat amser trwy glicio amser oddi wrth y cyffredinol rhestr ostwng o dan y Hafan tab, gweler y screenshot:

Auto gwneud y rhifau i fformat amser wrth i chi eu nodi gyda chod VBA

Gall y cod VBA canlynol hefyd eich helpu chi i drosi'r rhifau i fformat amser wrth i chi eu nodi, gwnewch fel hyn:

1. Ewch i'r daflen waith rydych chi am fewnosod colonau yn rhifau yn awtomatig.

2. De-gliciwch y tab dalen, a dewis Gweld y Cod o'r ddewislen cyd-destun, yn y popped allan Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod canlynol i'r gwag Modiwlau ffenestr, gweler y screenshot:

Cod VBA: Auto gwneud y rhifau i fformat amser:

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

Nodyn: Yn y cod uchod, A1: A20 yw'r celloedd rydych chi am eu mewnosod amser yn ddiweddarach, a gallwch chi newid cyfeirnod y gell i'ch angen.

3. Ac yn awr, pan nodwch y rhifau fel 102319 yn ystod celloedd A1: A20, ac yna pwyswch Rhowch allwedd, bydd y rhif yn cael ei fformatio fel fformat amser 10:23:19 AM yn awtomatig yn ôl yr angen.

Offer Cynhyrchiant Swyddfa Gorau

	Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
	Super-edrych: VLookup Meini Prawf Lluosog  |   VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
	Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
	Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
	Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr   |  Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd   |  Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
	15 Set Offer Gorau:  12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Read More ... Lawrlwythiad Am Ddim...

---

Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

• Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
• Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
• Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!

Read More ... Lawrlwythiad Am Ddim...