Tanggal Terbilang Excel Macro

tutorialmicrosoftexcel.net – Pada postingan Tutorial Microsoft Excel yang lalu kita membahas bagaimana membuat angka terbilang dalam bahasa Indonesia dengan menggunakan fungsi atau Macro Excel. Angka Terbilang pada Microsoft Excel digunakan pada kuitansi yang membutuhkan angka terbilang. Nah Kali ini Tutorial Microsoft Excel akan mengajak anda untuk membuat sebuah aplikasi tanggal terbilang Excel dengan memanfaatkan fungsi VBA.

Tanggal terbilang digunakan untuk menyatakan tanggal dengan tulisan, biasanya digunakan pada format-format berita acara atau juga pada invoice. Seperti contoh : 24 April 2016 akan menghasilkan Dua Puluh Empat Bulan April Tahun Dua Ribu Enam Belas. Fungsi ini mencakup penggabungan tanggal terbilang kemudian bulan terbilang sampai dengan tahun terbilang. Nah berikut ini Tutorial Microsoft Excel akan membahasnya untuk anda.

Tanggal Terbilang Excel VBA Macro

Tentu saja seru jika membuat fungsi excel sendiri yang ada hanya pada aplikasi microsoft excel kita. Sama halnya  dengan membuat fungsi-fungsi microsoft excel yang lainnya, membuat fungsi tanggal terbilang excel macro juga sangat mudah. Berikut ini langkah-langkah yang harus kita lakukan.

  1. Hal yang pertama kali kita lakukan adalah membuka Ms.Excel kemudian pilih menu developer lalu pilih icon Visual Basic Editor atau dapat juga menekan F11.
  2. Buatlah/Tambahkan sebuah module baru dengan memilih menu Insert > Module pada Visual Basic Editor.

    Tanggal Terbilang Excel, Membuat Fungsi dengan Macro VBA Excel

    Menambahkan Module Baru

  3. Buat satu fungsi pada Visual Basic Editor, berikut ini scriptnya.
    Private Function KeKata(Nomor)
    TrjKata = Array("", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan")
    KeKata = TrjKata(Nomor)
    End Function
  4. Kemudian tambahkan lagi di bawahnya fungsi utama untuk membuat Tanggal Terbilang Excel. berikut ini scriptnya.
    Private Function KeKata(Nomor)
    TrjKata = Array("", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan")
    KeKata = TrjKata(Nomor)
    End Function
    
    Public Function CharTanggal(Tgl As Date) As String
    Dim numMo, numYrs, numDay As Integer
    Dim charMo, charYrs, charDay, charTgl
    AngkaKata = Array("", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan")
    'KTahun = AngkaKata(No)
    
    numDay = Weekday(Tgl)
    Select Case numDay
        Case 1:
            charDay = "minggu"
        Case 2:
            charDay = "senin"
        Case 3:
            charDay = "selasa"
        Case 4:
            charDay = "rabu"
        Case 5:
            charDay = "kamis"
        Case 6:
            charDay = "jumat"
        Case 7:
            charDay = "sabtu"
    End Select
    
    numTanggal = Day(Tgl)
    tgl1 = Left(Right(numTanggal, 1), 1)
    tgl2 = Left(Right(numTanggal, 2), 1)
    
    If Len(numTanggal) = 1 Then
        charTgl = KeKata(numTanggal)
    End If
    If Len(numTanggal) > 1 Then
       If tgl1 = 0 And tgl2 = 1 Then
          charTgl = "Sepuluh"
       ElseIf tgl1 = 1 And tgl2 = 1 Then
        charTgl = " Sebelas"
       ElseIf tgl1 > 1 And tgl2 = 1 Then
       charTgl = KeKata(tgl1) & " belas"
       Else
       charTgl = KeKata(tgl2) & " puluh " & KeKata(tgl1)
       End If
    End If
    
    numMo = Month(Tgl)
    Select Case numMo
        Case 1:
            charMo = "Januari"
        Case 2:
            charMo = "Februari"
        Case 3:
            charMo = "Maret"
        Case 4:
            charMo = "April"
        Case 5:
            charMo = "Mei"
        Case 6:
            charMo = "Juni"
        Case 7:
            charMo = "Juli"
        Case 8:
            charMo = "Agustus"
        Case 9:
            charMo = "September"
        Case 10:
            charMo = "Oktober"
        Case 11:
            charMo = "Nopember"
        Case 12:
            charMo = "Desember"
    
    End Select
    numYrs = Year(Tgl)
    No1 = Left(Right(numYrs, 1), 1)
    No2 = Left(Right(numYrs, 2), 1)
    No3 = Left(Right(numYrs, 3), 1)
    No4 = Left(Right(numYrs, 4), 1)
    
    'Satuan
    If Len(numYrs) >= 1 Then
        If Len(numYrs) = 1 And No1 = 1 Then
        Nomor1 = "satu"
        ElseIf Len(numYrs) = 1 And No1 = 0 Then
        Nomor1 = "Nol"
        ElseIf No2 = "1" Then
            If No1 = "1" Then
            Nomor1 = "sebelas"
            ElseIf No1 = "0" Then
            Nomor1 = "sepuluh"
            Else
            Nomor1 = KeKata(No1) & " belas"
            End If
        
        Else
        Nomor1 = KeKata(No1)
        End If
    Else
    Nomor1 = ""
    End If
    
    'Puluhan
    If Len(numYrs) >= 2 Then
        If No2 = 1 Or No2 = "0" Then
        Nomor2 = ""
        Else
        Nomor2 = KeKata(No2) & " puluh "
        End If
    Else
    Nomor2 = ""
    End If
    'Ratusan
    If Len(numYrs) >= 3 Then
        If No3 = "1" Then
        Nomor3 = "seratus "
        ElseIf No3 = "0" Then
        Nomor3 = ""
        Else
        Nomor3 = KeKata(No3) & " ratus "
        End If
    Else
    Nomor3 = ""
    End If
    
    If Len(numYrs) >= 4 Then
        If No6 = "0" And No5 = "0" And No4 = "0" Then
        Nomor4 = ""
        ElseIf (No4 = "1" And Len(numYrs) = 4) Or (No6 = "0" And No5 = "0" And No4 = "1") Then
        Nomor4 = "seribu "
        ElseIf No5 = "1" Then
            If No4 = "1" Then
            Nomor4 = "sebelas ribu "
            ElseIf No4 = "0" Then
            Nomor4 = "sepuluh ribu "
            Else
            Nomor4 = KeKata(No4) & " belas ribu "
            End If
    
        Else
        Nomor4 = KeKata(No4) & " ribu "
        End If
    Else
    Nomor4 = ""
    End If
    
    charYrs = Trim(Nomor4 & Nomor3 & Nomor2 & Nomor1)
    
    CharTanggal = charDay & " tanggal " & charTgl & " bulan " & charMo & " tahun " & charYrs
    
    End Function
    
  5. Atau selengkapnya kurang lebih akan seperti gambar di bawah ini.

    Tanggal Terbilang Excel, Membuat Fungsi dengan Macro VBA Excel

    Fungsi Tanggal Terbilang Excel

  6. Simpan module dengan extensi xlam dengan nama charTanggal dan tipe file Excel-Add In  ,agar file tersebut dapat digunakan kembali sewaktu-waktu.

    Menyimpan Macro Excel dengan Ekstensi Xlam atau Excel Add-In

    Menyimpan Macro Excel dengan Ekstensi Xlam atau Excel Add-In

  7. Untuk Menggunakan fungsi Tanggal Terbilang Excel anda dapat menambahkan fungsi tersebut ke dalam aplikasi Excel anda. Caranya anda bisa baca artikel Kuitansi Angka Terbilang Microsoft Excel.
  8. Perhatikan pada cell A2, jika salah mengisi format tanggal maka Tanggal Terbilang juga akan salah.

Untuk lebih jelas lagi anda dapat melihatnya di Video Tutorial Excel di bawah ini

 

Demikian cara membuat fungsi tanggal terbilang Excel macro, sangat mudah dipraktikkan. Mohon kritik dan saran yang anda kirimkan tidak ada link ke situs lainnya. Semoga berguna

Berita Lainnya