İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel formatında avtomatik olaraq vaxt formatı kimi istifadə etmək üçün nömrələr arasında ikitərəfli əlavə etmək üçün necə?

Çalışma səhifəsindəki hüceyrələrə vaxt formatı qoyduğunuzda, hər dəfə kolonları yazaraq əsəbiləşdirmisinizmi? Bu yazıda Excel-də avtomatik olaraq vaxt formatı kimi istifadə etmək üçün nömrə daxil edərkən kolonun necə yerləşdirilməsi barədə danışacağam.

Kolonları formulalarla vaxt formatı kimi etmək üçün nöqtələr arasındakı bağlayın

Avtomatik VBA kodu ilə daxil olduqda nömrə nömrələrini vaxt formatına çevirin


arrow mavi sağ bubble Kolonları formulalarla vaxt formatı kimi etmək üçün nöqtələr arasındakı bağlayın


Şübhəsiz ki, nömrə siyahısına sahibsiniz, kolonları əlavə etmək və onları vaxt şəklində etmək üçün aşağıdakı formullar sizə bir xeyir verə bilər.

Nömrələr həmişə 3 və ya 4 rəqəmlərsə bu formula istifadə edə bilərsiniz:

=TIME(LEFT(A1,LEN(A1)-2),RIGHT(A1,2),0), sonra doldurulma tutamağını bu formulun içində yerləşdirmək istədiyiniz hüceyrələrə sürükləyin və lazım gəldikdə aşağıdakı nəticəni əldə edin:

1 nömrələrinə doc əlavə edin

Nömrələr 5 və ya 6 rəqəmlərsə, bu formulu tətbiq edin:

=(INT(A1/10000)&":"&INT(MOD(A1,10000)/100)&":"&MOD(A1,100))+0, və doldurucu tutamağı bu formula ehtiva etmək istədiyiniz hüceyrələrə sürükleyin və göstərilən ekran görüntüsü kimi sıra ardıcıllığı əldə edəcəksiniz:

2 nömrələrinə doc əlavə edin

Sonra nömrələri tıklayaraq vaxt forması kimi formatlaşdırmalısınız vaxt dən ümumi altındakı siyahısı açın ev seksiyasına baxın:

3 nömrələrinə doc əlavə edin


arrow mavi sağ bubble Avtomatik VBA kodu ilə daxil olduqda nömrə nömrələrini vaxt formatına çevirin

Aşağıdakı VBA kodları, nömrələri avtomatik olaraq daxil etdiyiniz zaman formata çevirməkdə sizə kömək edə bilər, belə edin:

1. Kolonları avtomatik olaraq nömrələrə daxil etmək istədiyiniz iş səhifəsinə keçin.

2. Sekanın sekmesini sağa vurun və seçin Kodları baxın kontekst menyusundan çıxdı Proqramlar üçün Microsoft Visual Basic pəncərədən, buraya aşağıdakı kodu kopyalayıb qoyun Modules ekrana baxın:

VBA kodu: Avtomatik nömrələri vaxt formasına uyğunlaşdırın:

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 nömrələrinə doc əlavə edin

Qeyd: Yuxarıdakı kodda, A1: A20 vaxt keçirtmək istədiyiniz hüceyrələrdir və siz hüceyrə istinadını sizin ehtiyacınıza dəyişə bilərsiniz.

3. A102319: A1 hüceyrə aralığında 20 kimi nömrələri daxil etdiyiniz və indi, sonra basın. Daxil edin 10: 23: 19 AM vaxt formatı avtomatik olaraq lazım olacaq şəkildə biçimlendirilecektir.

5 nömrələrinə doc əlavə edin



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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 · 8 months ago
    如果只要時跟分以及24小時制,請問可以怎麼改?
    • To post as a guest, your comment is unpublished.
      skyyang · 8 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.