Memahami Rumus Terbilang Excel dengan 2 Cara

Memahami Rumus Terbilang Excel dengan 2 Cara. Foto: Unsplash

Rumus terbilang Excel bisa digunakan untuk mengubah tulisan angka menjadi ejaan huruf. Hal ini tentunya memudahkan pekerjaan kamu yang berkaitan dengan angka.

Terdapat setidaknya dua cara untuk mengubah angka menjadi huruf, simak penjelasan selengkapnya di bawah ini.

Rumus Terbilang Excel Menggunakan Adds-In

Menggunakan Adds-In. Foto: Unsplash

Rumus terbilang Excel tidak tersedia secara otomatis di Microsoft Excel. Oleh karena itu, kamu perlu menambahkannya alias adds-in terbilang Excel terlebih dahulu.

Namun, untuk menggunakan fitur add-in, hal pertama yang harus dilakukan yaitu menon-aktifkan Security Marco dulu. Berikut caranya:

1. Buka file Microsoft Excel Klik menu 'File' di pojok kiri atas.

2. Kemudian pilih 'Options'.

3. Selanjutnya akan muncul laman 'Excel Options' dan pilih 'Trust Center' --> Klik Trust Center Settings.

4. Akan muncul halaman Trust Center --> klik Macro Settings --> pilih Enable all macros.

5. Klik OK dua kali.

6. Tutup file.

Selanjutnya, berikut cara memasang tools pembilang tambahan di Microsoft Excel milikmu.

1. Download terbilang Excel terlebih dahulu. Tools tambahan ini tersedia di internet. Kamu bisa mengunduhnya dari internet.

2. Setelah berhasil terunduh, ekstrak terlebih dahulu file yang kamu dapatkan dari internet. File add-in akan memiliki format .xlam atau .xla

3. Buka Microsoft Excel, pastikan tab Developer di menu bar sudah ditampilkan.

4. Jika belum, maka tampilkan dengan klik kanan di area 'Ribbon' > pilih 'Customize The Ribbon' > temukan dan centang 'Developer' di jendela baru > OK untuk menyimpan pengaturan

5. Buka tab 'Developer' > klik 'Excel Add-Ins'

6. Pada jendela Add-Ins, pilih opsi 'Browse'

7. Impor add-in terbilang Excel yang sudah diunduh dan ekstrak

8. Jika sudah berhasil, add-in terbilang Excel akan tercantum di jendela add-in layaknya tahap keenam.

9. Kalau sudah mendapati add-in terimpor dengan baik, maka add-in terbilang Excel sudah terpasang dan bisa digunakan.

Nah, setelah berhasil mengunduh add-in, kamu bisa menggunakan add-in untuk mengubah angka menjadi huruf dengan rumus terbilang Excel, berikut caranya.

1. Buka file Microsoft Excel yang ingin diubah angkanya menjadi huruf Jika sudah memiliki data yang ingin diolah, langsung sorot sel Excel yang ingin diubah.

2. Ketik format "=terbilang(sel data angka yang ingin diubah)". Misalnya: =terbilang(B4).

3. Klik Enter dan akan muncul hasilnya.

4. Apabila angka yang diubah berupa nominal uang, maka rumus terbilang yang bisa ditulis "=terbilang(sel data angka)&rupiah"

5. Apabila angka yang diubah ingin ditulis kapital, berikut rumusnya "=UPPER(terbilang(sel data angka)&rupiah”

6. Apabila angka yang diubah agar penulisannya kapital pada setiap kata, maka rumus yang ditulis “=PROPER(terbilang(sel data angka)&rupiah”

7. Apabila angka yang diubah agar penulisan hurufnya kecil semua, maka gunakan rumus “=LOWER(terbilang(sel data angka)&rupiah”

Baca Juga: 5 Rumus Persentase Excel untuk Berbagai Situasi

Membuat Fungsi SpellNumber untuk Mengonversi Bilangan ke Kata

Membuat Fungsi SpellNumber untuk Mengonversi Bilangan ke Kata. Foto: Unsplash

Jika cara di atas tidak berhasil atau komputer kamu kesulitan mengunduh Add-In, kamu dapat menggunakan cara lain, yaitu rumus SpellNumber.

Berikut ini langkah-langkah yang bisa kamu lakukan untuk membuat fungsi SpellNumber, dikutip dari situs support.microsoft.com.

1. Gunakan pintasan keyboard, Alt + F11 untuk membuka Visual Basic Editor (VBE). Catatan, kamu juga bisa mengakses Visual Basic Editor dengan memperlihatkan tab pengembang di pita.

2. Klik sisipkan tab, dan klik modul.

3. Salin garis kode berikut. Kode ini mengotomatiskan tugas mengonversi angka menjadi teks seluruh lembar kerja.

Option Explicit

'Main Function

Function SpellNumber(ByVal MyNumber)

Dim Dollars, Cents, Temp

Dim DecimalPlace, Count

ReDim Place(9) As String

Place(2) = " Thousand "

Place(3) = " Million "

Place(4) = " Billion "

Place(5) = " Trillion "

' String representation of amount.

MyNumber = Trim(Str(MyNumber))

' Position of decimal place 0 if none.

DecimalPlace = InStr(MyNumber, ".")

' Convert cents and set MyNumber to dollar amount.

If DecimalPlace > 0 Then

Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2))

MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))

End If

Count = 1

Do While MyNumber <> ""

Temp = GetHundreds(Right(MyNumber, 3))

If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars

If Len(MyNumber) > 3 Then

MyNumber = Left(MyNumber, Len(MyNumber) - 3)

Else

MyNumber = ""

End If

Count = Count + 1

Loop

Select Case Dollars

Case ""

Dollars = "No Dollars"

Case "One"

Dollars = "One Dollar"

Case Else

Dollars = Dollars & " Dollars"

End Select

Select Case Cents

Case ""

Cents = " and No Cents"

Case "One"

Cents = " and One Cent"

Case Else

Cents = " and " & Cents & " Cents"

End Select

SpellNumber = Dollars & Cents

End Function

' Converts a number from 100-999 into text

Function GetHundreds(ByVal MyNumber)

Dim Result As String

If Val(MyNumber) = 0 Then Exit Function

MyNumber = Right("000" & MyNumber, 3)

' Convert the hundreds place.

If Mid(MyNumber, 1, 1) <> "0" Then

Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "

End If

' Convert the tens and ones place.

If Mid(MyNumber, 2, 1) <> "0" Then

Result = Result & GetTens(Mid(MyNumber, 2))

Else

Result = Result & GetDigit(Mid(MyNumber, 3))

End If

GetHundreds = Result

End Function

' Converts a number from 10 to 99 into text.

Function GetTens(TensText)

Dim Result As String

Result = "" ' Null out the temporary function value.

If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...

Select Case Val(TensText)

Case 10: Result = "Ten"

Case 11: Result = "Eleven"

Case 12: Result = "Twelve"

Case 13: Result = "Thirteen"

Case 14: Result = "Fourteen"

Case 15: Result = "Fifteen"

Case 16: Result = "Sixteen"

Case 17: Result = "Seventeen"

Case 18: Result = "Eighteen"

Case 19: Result = "Nineteen"

Case Else

End Select

Else ' If value between 20-99...

Select Case Val(Left(TensText, 1))

Case 2: Result = "Twenty "

Case 3: Result = "Thirty "

Case 4: Result = "Forty "

Case 5: Result = "Fifty "

Case 6: Result = "Sixty "

Case 7: Result = "Seventy "

Case 8: Result = "Eighty "

Case 9: Result = "Ninety "

Case Else

End Select

Result = Result & GetDigit _

(Right(TensText, 1)) ' Retrieve ones place.

End If

GetTens = Result

End Function

' Converts a number from 1 to 9 into text.

Function GetDigit(Digit)

Select Case Val(Digit)

Case 1: GetDigit = "One"

Case 2: GetDigit = "Two"

Case 3: GetDigit = "Three"

Case 4: GetDigit = "Four"

Case 5: GetDigit = "Five"

Case 6: GetDigit = "Six"

Case 7: GetDigit = "Seven"

Case 8: GetDigit = "Eight"

Case 9: GetDigit = "Nine"

Case Else: GetDigit = ""

End Select

End Function

4. Tempelkan baris kode ke Module1 (kode) kotak.

5. Kode ditempelkan di Module1 kotak (kode).

6. Tekan Alt + T untuk kembali ke Excel. Fungsi SpellNumber kini siap untuk digunakan.

Perlu dicatat bahwa fungsi ini berfungsi hanya untuk buku kerja saat ini. Untuk menggunakan fungsi ini di buku kerja yang lain, kamu harus mengulangi langkah-langkah untuk menyalin dan menempelkan kode dalam buku kerja itu.

(DEL)