Tanggal Terbilang Excel Macro

Menjalankan Tanggal Terbilang Excel

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.
   

   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.
   

   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
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.

Posted in: TIP dan TRIK MS EXCEL

Posted in: excel