Excel'de otomatik olarak saat formatı yapmak için sayılar arasında iki nokta üst üste nasıl eklenir?

Çalışma sayfası hücrelerine saat biçimi eklediğinizde, her seferinde iki nokta üst üste yazmaktan hiç rahatsız oldunuz mu? Bu yazımda, Excel'de otomatik olarak saat formatı yapmak için sayıları girerken iki nokta üst üste nasıl eklenir hakkında konuşacağım.

Formüller ile saat formatı yapmak için sayılar arasına iki nokta üst üste ekleyin

VBA kodu ile girdiğinizde sayıları otomatik olarak saat formatına getirin

Formüller ile saat formatı yapmak için sayılar arasına iki nokta üst üste ekleyin

Diyelim ki, iki nokta üst üste eklemek ve bunları zaman formatı yapmak için bir sayı listeniz var, aşağıdaki formüller size bir iyilik yapabilir.

Sayılar her zaman 3 veya 4 basamaklıysa, şu formülü kullanabilirsiniz:

=TIME(LEFT(A1,LEN(A1)-2),RIGHT(A1,2),0), ardından doldurma tutamacını bu formülü içermesini istediğiniz hücrelere sürükleyin, ihtiyacınız olduğunda aşağıdaki sonucu alırsınız:

Sayılar 5 veya 6 basamaklıysa, lütfen şu formülü uygulayın:

=(INT(A1/10000)&":"&INT(MOD(A1,10000)/100)&":"&MOD(A1,100))+0ve doldurma tutamacını bu formülü içermesini istediğiniz hücrelere sürükleyin ve aşağıdaki ekran görüntüsü gibi numara sırasını alacaksınız:

Ardından, sayıları saat formatı olarak biçimlendirmelisiniz. Zaman itibaren genel aşağı açılır liste Ana Sayfa sekmesi, ekran görüntüsüne bakın:

VBA kodu ile girdiğinizde sayıları otomatik olarak saat formatına getirin

Aşağıdaki VBA kodu ayrıca sayıları girerken otomatik olarak saat biçimine dönüştürmenize yardımcı olabilir, lütfen şu şekilde yapın:

1. Sayılara otomatik olarak iki nokta üst üste eklemek istediğiniz çalışma sayfasına gidin.

2. Sayfa sekmesine sağ tıklayın ve Kodu Görüntüle bağlam menüsünden, açılır pencerede Uygulamalar için Microsoft Visual Basic penceresi, lütfen aşağıdaki kodu boşluğa kopyalayıp yapıştırın modül pencere, ekran görüntüsüne bakın:

VBA kodu: Numaraları otomatik olarak saat formatına getirin:

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

Not: Yukarıdaki kodda, A1: A20 daha sonra eklemek istediğiniz hücrelerdir ve hücre referansını ihtiyacınıza göre değiştirebilirsiniz.

3. Ve şimdi, A102319: A1 hücre aralığına 20 gibi sayılar girdiğinizde ve ardından Keşfet tuşuna bastığınızda, numara ihtiyaç duyduğunuzda otomatik olarak 10:23:19 AM saat formatında formatlanacaktır.

En İyi Ofis Üretkenlik Araçları

🤖	Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
	Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
	Süper Arama: Çoklu Ölçütlü VLookup  |   Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
	Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
	Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
	Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu   |  Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz   |  E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
	En İyi 15 Araç Seti:  12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Devamı ... Ücretsiz indirin...

---

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

• Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
• Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
• Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!

Devamı ... Ücretsiz indirin...