Pengertian Rumus Terbilang Dan Cara Menampilkan Tab Developer Pada Microsoft Excel

Masih banyak perusahaan dan sekolahan yang masih memakai Microsoft Excel sebagai media transaksi dan juga pembelajaran. Terkadang kita sering menjumpai angka yang harus diubah menjadi huruf, misalnya Rp. 600.000 akan menjadi Enam ratus ribu rupiah.

Sebenarnya dapat dilakukan secara manual, tapi coba bayangkan kalau kantor atau sekolahan mu membutuhkan banyak data, apa efesian kalau di input satu - persatu??? Tidak kan, pastnya akan memakan waktu banyak.

Untuk itu admin akan menjelaskan cara efesien semoga data otomatis menjadi abjad yaitu dengan rumus terbilang, untuk memakai rumus terbilang kau harus menambahkan script di Visual Basic nantinya.
Baca Juga : Cara Membuat Format Kwitansi Pada Microsoft Excel

View Code

Tab Developer

Agar kau dapat mengakses Visual Basic ada 2 cara, yang pertama kau dapat klik kanan di sheet yang kau ingin tambahkan script Terbilang kemudian pilih view kode. Yang kedua kau dapat pilih Tab Developer kemudian pilih Visual Basic. Jika sudah masuk ke Visual Basic klik insert -> pilih module dan masukan script dibawah ini.

'Fungsi Terbilang dengan VBA untuk MS Office  'Ditulis oleh maseko    'Fungsi penterjemahan masing-masing angka  Private Function KeKata(Nomor)  TrjKata = Array("", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan")  KeKata = TrjKata(Nomor)  End Function    'Mulai penulisan Fungsi Terbilang  Public Function terbilang(Nilai_Angka, Optional Style = 4, Optional Satuan = "")  Angka = Fix(Abs(Nilai_Angka))  'Desimal dibelakang koma  des1 = Mid(Abs(Nilai_Angka), Len(Angka) + 2, 1)  des2 = Mid(Abs(Nilai_Angka), Len(Angka) + 3, 1)    If des2 = "" Then      If des1 = "" Or des1 = "0" Then      Koma = ""      Else      Koma = " koma " & KeKata(des1)      End If  ElseIf des2 = "0" Then      If des1 = "0" Then      Koma = ""      ElseIf des1 = "1" Then      Koma = " koma sepuluh"      Else      Koma = " koma " & KeKata(des1) & " puluh"      End If  Else      If des1 = "0" Then      Koma = " koma nol " & KeKata(des2)      ElseIf des1 = "1" Then          If des2 = "1" Then          Koma = " koma sebelas"          Else          Koma = " koma " & KeKata(des2) & " belas"          End If      Else      Koma = " koma " & KeKata(des1) & " puluh " & KeKata(des2)      End If  End If  'Misahin Angka  No1 = Left(Right(Angka, 1), 1)  No2 = Left(Right(Angka, 2), 1)  No3 = Left(Right(Angka, 3), 1)  No4 = Left(Right(Angka, 4), 1)  No5 = Left(Right(Angka, 5), 1)  No6 = Left(Right(Angka, 6), 1)  No7 = Left(Right(Angka, 7), 1)  No8 = Left(Right(Angka, 8), 1)  No9 = Left(Right(Angka, 9), 1)  No10 = Left(Right(Angka, 10), 1)  No11 = Left(Right(Angka, 11), 1)  No12 = Left(Right(Angka, 12), 1)  No13 = Left(Right(Angka, 13), 1)  No14 = Left(Right(Angka, 14), 1)  No15 = Left(Right(Angka, 15), 1)  'Satuan  If Len(Angka) >= 1 Then      If Len(Angka) = 1 And No1 = 1 Then      Nomor1 = "satu"      ElseIf Len(Angka) = 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(Angka) >= 2 Then      If No2 = 1 Or No2 = "0" Then      Nomor2 = ""      Else      Nomor2 = KeKata(No2) & " puluh "      End If  Else  Nomor2 = ""  End If  'Ratusan  If Len(Angka) >= 3 Then      If No3 = "1" Then      Nomor3 = "seratus "      ElseIf No3 = "0" Then      Nomor3 = ""      Else      Nomor3 = KeKata(No3) & " ratus "      End If  Else  Nomor3 = ""  End If  'Ribuan  If Len(Angka) >= 4 Then      If No6 = "0" And No5 = "0" And No4 = "0" Then      Nomor4 = ""      ElseIf (No4 = "1" And Len(Angka) = 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  'Puluhan ribu  If Len(Angka) >= 5 Then      If No5 = "1" Or No5 = "0" Then      Nomor5 = ""      Else      Nomor5 = KeKata(No5) & " puluh "      End If  Else  Nomor5 = ""  End If  'Ratusan Ribu  If Len(Angka) >= 6 Then      If No6 = "1" Then      Nomor6 = "seratus "      ElseIf No6 = "0" Then      Nomor6 = ""      Else      Nomor6 = KeKata(No6) & " ratus "      End If  Else  Nomor6 = ""  End If  'Jutaan  If Len(Angka) >= 7 Then      If No9 = "0" And No8 = "0" And No7 = "0" Then      Nomor7 = ""      ElseIf No7 = "1" And Len(Angka) = 7 Then      Nomor7 = "satu juta "      ElseIf No8 = "1" Then          If No7 = "1" Then          Nomor7 = "sebelas juta "          ElseIf No7 = "0" Then          Nomor7 = "sepuluh juta "          Else          Nomor7 = KeKata(No7) & " belas juta "          End If        Else      Nomor7 = KeKata(No7) & " juta "      End If  Else  Nomor7 = ""  End If  'Puluhan juta  If Len(Angka) >= 8 Then      If No8 = "1" Or No8 = "0" Then      Nomor8 = ""      Else      Nomor8 = KeKata(No8) & " puluh "      End If  Else  Nomor8 = ""  End If  'Ratusan juta  If Len(Angka) >= 9 Then      If No9 = "1" Then      Nomor9 = "seratus "      ElseIf No9 = "0" Then      Nomor9 = ""      Else      Nomor9 = KeKata(No9) & " ratus "      End If  Else  Nomor9 = ""  End If  'Milyar  If Len(Angka) >= 10 Then      If No12 = "0" And No11 = "0" And No10 = "0" Then      Nomor10 = ""      ElseIf No10 = "1" And Len(Angka) = 10 Then      Nomor10 = "satu milyar "      ElseIf No11 = "1" Then          If No10 = "1" Then          Nomor10 = "sebelas milyar "          ElseIf No10 = "0" Then          Nomor10 = "sepuluh milyar "          Else          Nomor10 = KeKata(No10) & " belas milyar "          End If        Else      Nomor10 = KeKata(No10) & " milyar "      End If  Else  Nomor10 = ""  End If  'Puluhan Milyar  If Len(Angka) >= 11 Then      If No11 = "1" Or No11 = "0" Then      Nomor11 = ""      Else      Nomor11 = KeKata(No11) & " puluh "      End If  Else  Nomor11 = ""  End If  'Ratusan Milyar  If Len(Angka) >= 12 Then      If No12 = "1" Then      Nomor12 = "seratus "      ElseIf No12 = "0" Then      Nomor12 = ""      Else      Nomor12 = KeKata(No12) & " ratus "      End If  Else  Nomor12 = ""  End If  'Triliun  If Len(Angka) >= 13 Then      If No15 = "0" And No14 = "0" And No13 = "0" Then      Nomor13 = ""      ElseIf No13 = "1" And Len(Angka) = 13 Then      Nomor13 = "satu triliun "      ElseIf No14 = "1" Then          If No13 = "1" Then          Nomor13 = "sebelas triliun "          ElseIf No13 = "0" Then          Nomor13 = "sepuluh triliun "          Else          Nomor13 = KeKata(No13) & " belas triliun "          End If        Else      Nomor13 = KeKata(No13) & " triliun "      End If  Else  Nomor13 = ""  End If  'Puluhan triliun  If Len(Angka) >= 14 Then      If No14 = "1" Or No14 = "0" Then      Nomor14 = ""      Else      Nomor14 = KeKata(No14) & " puluh "      End If  Else  Nomor14 = ""  End If  'Ratusan triliun  If Len(Angka) >= 15 Then      If No15 = "1" Then      Nomor15 = "seratus "      ElseIf No15 = "0" Then      Nomor15 = ""      Else      Nomor15 = KeKata(No15) & " ratus "      End If  Else  Nomor15 = ""  End If    If Len(Angka) > 15 Then  bilang = "Digit Angka Terlalu Banyak"  Else      If IsNull(Nilai_Angka) Then      bilang = ""      ElseIf Nilai_Angka < 0 Then      bilang = "minus " & Trim(Nomor15 & Nomor14 & Nomor13 & Nomor12 & Nomor11 & Nomor10 & Nomor9 & Nomor8 & Nomor7 _      & Nomor6 & Nomor5 & Nomor4 & Nomor3 & Nomor2 & Nomor1 & Koma & " " & Satuan)      Else      bilang = Trim(Nomor15 & Nomor14 & Nomor13 & Nomor12 & Nomor11 & Nomor10 & Nomor9 & Nomor8 & Nomor7 _      & Nomor6 & Nomor5 & Nomor4 & Nomor3 & Nomor2 & Nomor1 & Koma & " " & Satuan)      End If  End If  If Style = 4 Then  terbilang = StrConv(Left(bilang, 1), 1) & StrConv(Mid(bilang, 2, 1000), 2)  Else  terbilang = StrConv(bilang, Style)  End If  terbilang = Replace(terbilang, "  ", " ", 1, 1000, vbTextCompare)    End Function    Sub Macro2()  '  ' Macro2 Macro  '    '      Application.Goto Reference:="Macro2"  End Sub

Untuk menampilkan kau hanya perlu menambahkan rumus terbilang, yakni =terbilang(alamat cell) Alamat Cell yang dimaksud disini ialah alamat cell yang dijadikan huruf.

Jika ingin menambahkan rupiah di belakangnya =terbilang(alamat cell)& " rupiah"

Baca Juga: Fungsi-fungsi Pada Aplikasi Pengolah Angka Microsoft Excel

Jika ingin menampilkan abjad besar diawal =proper(terbilang(alamat cell)& " rupiah")
Note : untuk rumus proper tidak berkhasiat alasannya ialah script di Visual BAsic tadi sudah Otomatis abjad besar diawal.

Jika ingin menampilkan abjad besar semua =upper(terbilang(alamat cell)& " rupiah")

Jika ingin menampilkan abjad kecil semua =lower(terbilang(alamat cell)& " rupiah")

Saya rasa cukup artikel kali ini, semoga bermanfaat untuk kau sob.