Cara Membuat Terbilang Tanggal Otomatis di Excel dengan VBA (UDF)

Banyak pengguna Excel yang terbiasa mengolah data tanggal hanya dalam bentuk standar seperti 21/04/2025. Namun, bagaimana jika kita ingin mengubah tanggal tersebut menjadi kalimat lengkap seperti “Senin, tanggal Dua Puluh Satu bulan April tahun Dua Ribu Dua Puluh Lima”? Apakah bisa dilakukan secara otomatis di Excel?

Jawabannya: bisa, bahkan sangat mudah, asalkan kita tahu caranya. Pada artikel kali ini, DepotExcel.com akan membahas cara membuat terbilang tanggal otomatis di Excel menggunakan User Defined Function (UDF) melalui VBA. Fitur ini sangat berguna untuk kebutuhan administratif, seperti surat menyurat, laporan resmi, hingga dokumen yang memerlukan format tanggal yang formal dan elegan.

Kenapa Perlu Membuat Terbilang Tanggal Otomatis?

Beberapa alasan umum kenapa kita perlu membuat terbilang tanggal otomatis:

• Untuk tampilan dokumen yang lebih profesional.
• Digunakan pada surat resmi, berita acara, nota dinas, kontrak kerja, dan sebagainya.
• Memudahkan dalam pembuatan template otomatis yang bisa langsung digunakan kapan saja.
• Mengurangi kesalahan penulisan manual ketika mengkonversi tanggal ke dalam kalimat.

Dengan membuat terbilang tanggal otomatis, kamu tidak perlu lagi mengetik manual setiap tanggal pada dokumenmu. Cukup satu fungsi khusus, dan semuanya akan ditampilkan otomatis!

Langkah Membuat Terbilang Tanggal Otomatis di Excel

Misalnya kita memiliki tabel tanggal berikut yang ingin kita konversi nilainya menjadi terbilang seperti pada format berita acara:

Berikut adalah langkah-langkah lengkap untuk membuat terbilang tanggal otomatis:

1. Buka Editor VBA

Tekan Alt + F11 untuk membuka jendela Visual Basic for Applications (VBA).

2. Tambahkan Module Baru

Klik menu Insert > Module, lalu tempelkan kode berikut:

Function TanggalTerbilang(ByVal Tgl As Date) As String
    Dim Hari As String, Tanggal As String, Bulan As String, Tahun As String
    Dim NamaHari As Variant, NamaBulan As Variant, AngkaTerbilang As String

    NamaHari = Array("Minggu", "Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu")
    NamaBulan = Array("", "Januari", "Februari", "Maret", "April", "Mei", "Juni", _
                      "Juli", "Agustus", "September", "Oktober", "November", "Desember")

    Hari = NamaHari(Weekday(Tgl, vbSunday) - 1)
    Tanggal = AngkaKeTerbilang(Day(Tgl))
    Bulan = NamaBulan(Month(Tgl))
    Tahun = AngkaKeTerbilang(Year(Tgl))

    TanggalTerbilang = Hari & ", tanggal " & Tanggal & " bulan " & Bulan & " tahun " & Tahun
End Function

Function AngkaKeTerbilang(ByVal Angka As Long) As String
    Dim Satuan As Variant
    Dim Hasil As String

    Satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", _
                   "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")

    If Angka < 12 Then
        Hasil = Satuan(Angka)
    ElseIf Angka < 20 Then
        Hasil = Satuan(Angka - 10) & " Belas"
    ElseIf Angka < 100 Then
        Hasil = Satuan(Int(Angka / 10)) & " Puluh"
        If Angka Mod 10 > 0 Then Hasil = Hasil & " " & Satuan(Angka Mod 10)
    ElseIf Angka < 200 Then
        Hasil = "Seratus"
        If Angka Mod 100 > 0 Then Hasil = Hasil & " " & AngkaKeTerbilang(Angka Mod 100)
    ElseIf Angka < 1000 Then
        Hasil = Satuan(Int(Angka / 100)) & " Ratus"
        If Angka Mod 100 > 0 Then Hasil = Hasil & " " & AngkaKeTerbilang(Angka Mod 100)
    ElseIf Angka < 2000 Then
        Hasil = "Seribu"
        If Angka Mod 1000 > 0 Then Hasil = Hasil & " " & AngkaKeTerbilang(Angka Mod 1000)
    ElseIf Angka < 1000000 Then
        Hasil = AngkaKeTerbilang(Int(Angka / 1000)) & " Ribu"
        If Angka Mod 1000 > 0 Then Hasil = Hasil & " " & AngkaKeTerbilang(Angka Mod 1000)
    ElseIf Angka < 1000000000 Then
        Hasil = AngkaKeTerbilang(Int(Angka / 1000000)) & " Juta"
        If Angka Mod 1000000 > 0 Then Hasil = Hasil & " " & AngkaKeTerbilang(Angka Mod 1000000)
    End If

    AngkaKeTerbilang = Trim(Hasil)
End Function

Berikut tampilannya di modul Excel:

3. Gunakan Fungsi di Excel

Setelah kode di atas disimpan, kembali ke lembar kerja Excel. Misalkan sel B3 berisi tanggal 05/04/2025, maka di sel C3, kamu cukup tulis:

=TanggalTerbilang(C3)

Maka hasilnya akan muncul: Sabtu, tanggal Lima bulan April tahun Dua Ribu Dua Puluh Lima

Inilah hasil dari proses membuat terbilang tanggal otomatis di Excel yang benar-benar praktis!

Keunggulan Membuat Terbilang Tanggal Otomatis dengan UDF

• Bisa digunakan berulang kali di berbagai file dan format.
• Tidak memerlukan add-in tambahan.
• Fleksibel dan bisa disesuaikan dengan gaya bahasa yang diinginkan.
• Meningkatkan efisiensi kerja bagi pengguna Excel tingkat lanjut maupun pemula.

Contoh Penerapan

Bayangkan kamu bekerja di bagian administrasi yang harus mengetik surat undangan resmi untuk berbagai tanggal. Dengan membuat terbilang tanggal otomatis, kamu tinggal mengisi tanggal di kolom dan fungsi ini akan mengubahnya menjadi teks panjang dalam format yang formal.

Penutup

Dengan menggunakan VBA dan membuat User Defined Function seperti di atas, kamu tidak hanya belajar fungsi baru di Excel, tapi juga meningkatkan kemampuan otomasi kerja harianmu. Terutama bagi kamu yang sering bekerja dengan dokumen formal, cara membuat terbilang tanggal otomatis ini sangat layak dicoba dan dipelajari lebih lanjut.

Jangan lupa untuk menyimpan file Excel kamu dalam format .xlsm (Macro-Enabled Workbook) agar fungsi ini bisa terus digunakan di masa mendatang.

Download Template Gratis

Bagi Anda yang ingin mencoba teknik ini secara langsung, kami telah menyiapkan template gratis yang dirancang khusus untuk membantu Anda mempaktikkan Cara Membuat Terbilang Tanggal Otomatis di Excel dengan VBA ini. File Excel bisa didownload melalui tautan berikut:

Atau juga jika ingin mempelajari langkah demi langkah secara visual, bisa kunjungi Youtube Channel Depot Excel. Di sana teman-teman akan melihat bagaimana rumusnya bekerja. Semoga bermanfaat!