Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս մտցնել աղիքներ թվերի միջև, որպեսզի դրանք Excel- ում ավտոմատ կերպով դառնան ժամանակի ձևաչափ:

Heամանակի ձևաչափը աշխատանքային թերթիկի բջիջների մեջ մտցնելիս երբևէ նյարդայնացե՞լ եք ամեն անգամ սյունակները մուտքագրելուց: Այս հոդվածում ես կխոսեմ այն ​​մասին, թե ինչպես պետք է թվեր մուտքագրելիս տեղադրել աղիք, որպեսզի դրանք Excel- ում ավտոմատ կերպով դառնան ժամանակի ձևաչափ:

Տեղադրեք հաստ աղիք թվերի արանքում, որպեսզի դրանք լինեն բանաձևերով ժամանակի ձևաչափ

Ավտոմատ կերպով թվերը դարձրեք ժամանակի ձևաչափի, երբ դրանք մուտքագրեք VBA կոդով


նետ կապույտ աջ պղպջակ Տեղադրեք հաստ աղիք թվերի արանքում, որպեսզի դրանք լինեն բանաձևերով ժամանակի ձևաչափ

Ենթադրելով, որ դուք ունեք թվերի ցուցակ, ներդիրները տեղադրելու և դրանք ժամանակի ձևաչափ դարձնելու համար, հետևյալ բանաձևերը կարող են ձեզ լավություն բերել:

Եթե ​​թվերը միշտ 3 կամ 4 թվանշաններ են, կարող եք օգտագործել այս բանաձևը.

=TIME(LEFT(A1,LEN(A1)-2),RIGHT(A1,2),0), ապա լրացրեք բռնիչը ներքև քաշեք դեպի այն բջիջները, որոնք ցանկանում եք պարունակել այս բանաձևը, և ​​կստանաք անհրաժեշտ արդյունքի հետևյալ արդյունքը.

փաստաթուղթ ներդիրի հաստ աղյուսակ 1-ին

Եթե ​​թվերը 5 կամ 6 նիշ են, ապա կիրառեք այս բանաձևը.

=(INT(A1/10000)&":"&INT(MOD(A1,10000)/100)&":"&MOD(A1,100))+0, և լրացնելու բռնիչը ներքև քաշեք դեպի այն բջիջները, որոնք ցանկանում եք պարունակել այս բանաձևը, և ​​դուք կստանաք համարների հաջորդականություն, ինչպես ցույց է տրված հետևյալ նկարը.

փաստաթուղթ ներդիրի հաստ աղյուսակ 2-ին

Ապա համարները պետք է ձևափոխեք որպես ժամանակի ձևաչափ ՝ կտտացնելով ժամանակ - ից ընդհանուր բացվող ցուցակը տակ Գլխավոր ներդիր, տես նկարի նկարը.

փաստաթուղթ ներդիրի հաստ աղյուսակ 3-ին


նետ կապույտ աջ պղպջակ Ավտոմատ կերպով թվերը դարձրեք ժամանակի ձևաչափի, երբ դրանք մուտքագրեք VBA կոդով

Հետևյալ VBA կոդը կարող է նաև օգնել ՝ թվերը մուտքագրելիս ավտոմատ կերպով փոխելու ժամանակի ձևաչափի, խնդրում ենք արեք հետևյալ կերպ.

1, Գնացեք այն աշխատաթերթը, որը ցանկանում եք կետերը ավտոմատ կերպով ներմուծել թվերի մեջ:

2, Աջ կտտացրեք թերթիկի ներդիրին և ընտրեք Դիտել կոդը համատեքստի ընտրացանկից ՝ դուրս եկած պատուհանում Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք պատճենել և տեղադրեք հետևյալ կոդը դատարկի մեջ Մոդուլներ պատուհան, տես նկարի նկարը.

VBA կոդ. Ավտոմատ կազմիր համարները ժամանակի ձևաչափով.

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

փաստաթուղթ ներդիրի հաստ աղյուսակ 4-ին

Նշում: Վերոնշյալ ծածկագրում A1: A20 այն բջիջներն են, որոնք դուք ցանկանում եք ժամանակին տեղադրել, և կարող եք փոխել բջիջների հղումը ձեր կարիքի վրա:

3, Եվ հիմա, երբ A102319: A1 բջջային տիրույթում մուտքագրեք այնպիսի թվեր, ինչպիսիք են 20-ը, ապա սեղմել Մտնել ստեղնը, համարը կձևափոխվի որպես 10:23:19 AM ժամանակի ձևաչափ ՝ ավտոմատ կերպով, որքան ձեզ հարկավոր է:

փաստաթուղթ ներդիրի հաստ աղյուսակ 5-ին

Գրասենյակի արտադրողականության լավագույն գործիքները

Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50 + Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

kte էջանիշը 201905


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (6)
Rated 4.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
DZIEKUJE ZA WYJAŚNIENIE, CZY KTOŚ MOŻE PODPOWIEDZIEC CZY DA SIE TO PRZEROBIC TAK ŻEBY DZIŁAŁO NA 2 LUB WIECEJ KOLUMNACH? CHODZI O WPROWADZENIE STARTU PRACY W KOLUMNIE C A ZAKONCZENIA W KOLUMNIE D, WYNIK WYSWIETLI SIE W KOLUMNIE E
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
does anyone know how to make this macro run on google sheets please?
This comment was minimized by the moderator on the site
In an earlier version of windows I was able to change the colon time delimiter to another character (usually an asterisk) to make it easier and faster to enter lots of time data. Is there still a way to do this or has it been "new & improved" into oblivion?
This comment was minimized by the moderator on the site
如果只要時跟分以及24小時制,請問可以怎麼改?
This comment was minimized by the moderator on the site
Hi, kyra,
你可以嘗試使用下面的vba來實現: (只顯示時和分)

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
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 = Format(TimeValue(xStr), "Short Time")
End If
End With
Application.EnableEvents = True
Exit Sub
EndMacro:
MsgBox "You did not enter a valid time"
Application.EnableEvents = True
End Sub
This comment was minimized by the moderator on the site
Thank you. Very well illustrated.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations