Note: The other languages of the website are Google-translated. Back to English
English English

Bagaimana cara memasukkan titik dua di antara angka untuk menjadikannya sebagai format waktu secara otomatis di Excel?

Saat Anda memasukkan format waktu ke dalam sel lembar kerja, pernahkah Anda merasa kesal setiap kali mengetik titik dua? Pada artikel ini, saya akan berbicara tentang cara menyisipkan titik dua saat Anda memasukkan angka untuk menjadikannya sebagai format waktu secara otomatis di Excel.

Sisipkan titik dua di antara angka untuk menjadikannya sebagai format waktu dengan rumus

Secara otomatis membuat angka ke format waktu saat Anda memasukkannya dengan kode VBA


panah gelembung kanan biru Sisipkan titik dua di antara angka untuk menjadikannya sebagai format waktu dengan rumus

Misalkan, Anda memiliki daftar angka, untuk menyisipkan titik dua dan menjadikannya sebagai format waktu, rumus berikut dapat membantu Anda.

Jika angkanya selalu terdiri dari 3 atau 4 digit, Anda dapat menggunakan rumus ini:

=TIME(LEFT(A1,LEN(A1)-2),RIGHT(A1,2),0), lalu seret gagang isian ke sel yang Anda inginkan untuk memuat rumus ini, dan Anda akan mendapatkan hasil berikut sesuai kebutuhan:

doc masukkan titik dua ke angka 1

Jika angkanya 5 atau 6 digit, mohon gunakan rumus ini:

=(INT(A1/10000)&":"&INT(MOD(A1,10000)/100)&":"&MOD(A1,100))+0, dan seret gagang isian ke sel yang ingin Anda isi rumus ini, dan Anda akan mendapatkan urutan nomor seperti gambar berikut yang ditampilkan:

doc masukkan titik dua ke angka 2

Kemudian Anda harus memformat angka sebagai format waktu dengan mengklik Waktu dari Umum daftar drop-down di bawah Beranda tab, lihat tangkapan layar:

doc masukkan titik dua ke angka 3


panah gelembung kanan biru Secara otomatis membuat angka ke format waktu saat Anda memasukkannya dengan kode VBA

Kode VBA berikut juga dapat membantu Anda mengonversi angka secara otomatis ke format waktu saat Anda memasukkannya, lakukan seperti ini:

1. Buka lembar kerja yang ingin Anda sisipkan titik dua ke dalam angka secara otomatis.

2. Klik kanan tab lembar, lalu pilih Lihat kode dari menu konteks, di-pop-out Microsoft Visual Basic untuk Aplikasi jendela, harap salin dan tempel kode berikut ke dalam kolom kosong Modul jendela, lihat tangkapan layar:

Kode VBA: Otomatis buat angka ke format waktu:

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 masukkan titik dua ke angka 4

Catatan: Pada kode di atas, A1: A20 adalah sel yang ingin Anda sisipkan waktunya nanti, dan Anda bisa mengubah referensi sel sesuai kebutuhan Anda.

3. Dan sekarang, saat Anda memasukkan angka seperti 102319 dalam rentang sel A1: A20, lalu tekan Enter kunci, nomor akan diformat sebagai format waktu 10:23:19 AM secara otomatis sesuai kebutuhan Anda.

doc masukkan titik dua ke angka 5


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (5)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih. Diilustrasikan dengan sangat baik.
Komentar ini diminimalkan oleh moderator di situs
24?
Komentar ini diminimalkan oleh moderator di situs
Hai, kyra,
vba來實現: (只顯示時和分)

Sub Worksheet_Change Pribadi (Target ByVal Sebagai Excel.Range)
Redupkan xStr Sebagai String
Redupkan xVal Sebagai String
Pada Kesalahan GoTo EndMacro
Jika Application.Intersect(Target, Range("A1:A20")) Tidak Ada Lalu Keluar Sub
Jika Target.Count > 1 Kemudian Keluar Sub
Jika Target.Value = "" Kemudian Keluar Sub
Application.EnableEvents = Salah
Dengan Target
Jika Tidak .Memiliki Rumus Maka
xVal = .Nilai
Pilih Kasus Len (xVal)
Kasus 1 ' misalnya, 1 = 00:01 AM
xStr = "00:0" & xVal
Kasus 2 ' misalnya, 12 = 00:12 AM
xStr = "00:" & xVal
Kasus 3 ' misalnya, 735 = 7:35 AM
xStr = Kiri(xVal, 1) & ":" & Kanan(xVal, 2)
Kasus 4 ' misalnya, 1234 = 12:34
xStr = Kiri(xVal, 2) & ":" & Kanan(xVal, 2)
Kasus 5 ' misalnya, 12345 = 1:23:45 BUKAN 12:03:45
xStr = Kiri(xVal, 1) & ":" & Tengah(xVal, 2, 2) & ":" & Kanan(xVal, 2)
Kasus 6 ' misalnya, 123456 = 12:34:56
xStr = Kiri(xVal, 2) & ":" & Tengah(xVal, 3, 2) & ":" & Kanan(xVal, 2)
Case Else
Err. Naikkan 0
End Select
.Nilai = Format(Nilai Waktu(xStr), "Waktu Singkat")
End If
Berakhir dengan
Application.EnableEvents = Benar
Keluar dari Sub
Makro Akhir:
MsgBox "Anda tidak memasukkan waktu yang valid"
Application.EnableEvents = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Di versi windows yang lebih lama saya dapat mengubah pembatas waktu titik dua ke karakter lain (biasanya tanda bintang) untuk membuatnya lebih mudah dan lebih cepat untuk memasukkan banyak data waktu. Apakah masih ada cara untuk melakukan ini atau sudah "baru & ditingkatkan" hingga terlupakan?
Komentar ini diminimalkan oleh moderator di situs
adakah yang tahu cara membuat makro ini berjalan di google sheets?
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan