Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako vstaviti debelo črevo med številkami, da bi jih samodejno formatirali v Excelu?

Ko vstavite časovni format v celice delovnega lista, vas kdaj moti, ko vsakič vnašate kolone? V tem članku bom govoril o tem, kako vstaviti debelo črevo, ko vnašate številke, da jih samodejno oblikujete v Excelu.

Vnesite dvopičje med števili, da jih naredite kot časovni format s formulami

Samodejno vnesite številke v časovno obliko, ko jih vnesete s kodo VBA


puščica modra desno mehurček Vnesite dvopičje med števili, da jih naredite kot časovni format s formulami


Če menite, da imate seznam številk, da jih vstavite v časovno obliko, vam lahko formule omogočijo uslugo.

Če so številke vedno 3 ali 4 številke, lahko uporabite to formulo:

=TIME(LEFT(A1,LEN(A1)-2),RIGHT(A1,2),0), nato povlecite ročico za polnjenje navzdol na celice, ki jih želite vsebovati, in dobili boste naslednji rezultat, kot boste potrebovali:

doc vstavi kolono v številke 1

Če so številke 5 ali 6, uporabite to formulo:

=(INT(A1/10000)&":"&INT(MOD(A1,10000)/100)&":"&MOD(A1,100))+0in povlecite ročico za polnjenje navzdol na celice, ki jih želite vsebovati, in dobili boste zaporedje številk na naslednji sliki:

doc vstavi kolono v številke 2

Potem morate številke formatirati v obliki zapisa časa s klikom čas Iz splošno spustni seznam pod Domov kartico, si oglejte sliko zaslona:

doc vstavi kolono v številke 3


puščica modra desno mehurček Samodejno vnesite številke v časovno obliko, ko jih vnesete s kodo VBA

Naslednja VBA koda vam lahko pomaga pri samodejni pretvorbi številk v obliko zapisa časa, ko jih vnesete, storite tako:

1. Pojdite na delovni list, ki ga želite samodejno vstaviti v stolpce.

2. Z desno tipko kliknite zavihek stanja in izberite Ogled kode iz kontekstnega menija, v popped out Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo v prazno Moduli okno, si oglejte sliko zaslona:

VBA koda: samodejno ustvarite številke v formatu časa:

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

doc vstavi kolono v številke 4

Opomba: V zgornji kodi, A1: A20 so celice, ki jih želite vstaviti kasneje, in lahko spremenite referenco celic na vaše potrebe.

3. In zdaj, ko vnesete številke, kot je 102319, v obseg celic A1: A20 in nato pritisnite Vnesite tipko, bo število formatirano kot 10: 23: časovni format 19 AM, kot ga potrebujete.

doc vstavi kolono v številke 5



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    kyra · 10 months ago
    如果只要時跟分以及24小時制,請問可以怎麼改?
    • To post as a guest, your comment is unpublished.
      skyyang · 10 months ago
      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
  • To post as a guest, your comment is unpublished.
    Steven · 1 years ago
    Thank you. Very well illustrated.