Bagaimana cara mengubah mata uang menjadi teks kata-kata di Excel?
Bagi non-native speaker yang menggunakan bahasa Inggris sebagai bahasa kedua, terkadang sulit untuk langsung mengubah nomor mata uang ke kata-kata bahasa Inggris jika jumlahnya terlalu panjang. Pada artikel ini, Anda akan belajar cara mudah mengubah mata uang menjadi teks kata-kata di Excel.
Ubah mata uang menjadi kata-kata dengan kode VBA
Ubah mata uang menjadi kata-kata dengan Kutools for Excel
Ubah mata uang menjadi kata-kata dengan kode VBA
Dengan kode VBA di bawah ini, Anda dapat mengonversi nomor mata uang ke kata-kata bahasa Inggris.
1. tekan lain + F11 untuk membuka Microsoft Visual Basic untuk Aplikasi kotak dialog.
2. Dalam Microsoft Visual Basic untuk Aplikasi kotak dialog, klik Menyisipkan > Modul. Kemudian salin dan tempel kode di bawah ini ke jendela kode.
Kode VBA: Ubah nomor mata uang menjadi Kata Bahasa Inggris
Function NumberstoWords(ByVal pNumber)
Dim Dollars, Cents
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, ".")
If xDecimal > 0 Then
Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & "00", 2))
pNumber = Trim(Left(pNumber, xDecimal - 1))
End If
xIndex = 1
Do While pNumber <> ""
xHundred = ""
xValue = Right(pNumber, 3)
If Val(xValue) <> 0 Then
xValue = Right("000" & xValue, 3)
If Mid(xValue, 1, 1) <> "0" Then
xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred "
End If
If Mid(xValue, 2, 1) <> "0" Then
xHundred = xHundred & GetTens(Mid(xValue, 2))
Else
xHundred = xHundred & GetDigit(Mid(xValue, 3))
End If
End If
If xHundred <> "" Then
Dollars = xHundred & arr(xIndex) & Dollars
End If
If Len(pNumber) > 3 Then
pNumber = Left(pNumber, Len(pNumber) - 3)
Else
pNumber = ""
End If
xIndex = xIndex + 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
NumberstoWords = Dollars & Cents
End Function
Function GetTens(pTens)
Dim Result As String
Result = ""
If Val(Left(pTens, 1)) = 1 Then
Select Case Val(pTens)
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
Select Case Val(Left(pTens, 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(pTens, 1))
End If
GetTens = Result
End Function
Function GetDigit(pDigit)
Select Case Val(pDigit)
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
3. tekan lain + Q tombol secara bersamaan untuk menutup Microsoft Visual Basic untuk Aplikasi kotak dialog.
4. Pilih sel kosong (B1) yang berdekatan dengan sel yang ingin Anda ubah menjadi kata, masukkan rumusnya = NumberstoWords (A1), lalu tekan Enter kunci.
Note: A1 adalah sel berisi nomor mata uang. Anda dapat mengubahnya sesuai kebutuhan.
5. Pilih sel B1, seret Fill Handle ke bawah untuk mendapatkan semua kata bahasa Inggris dari nomor mata uang.
Ubah mata uang menjadi kata-kata dengan Kutools for Excel
Kode VBA yang panjang ini sepertinya rumit. Di sini saya akan memperkenalkan Anda utilitas praktis untuk dengan mudah mengatasi masalah ini. Dengan Angka ke Kata kegunaan Kutools untuk Excel, mengubah mata uang menjadi kata-kata tidak akan menjadi masalah lagi. Silakan lakukan sebagai berikut.
Sebelum melamar Kutools untuk Excel, Mohon unduh dan instal terlebih dahulu.
1. Pilih sel dengan nomor mata uang yang ingin Anda ubah.
2. klik Kutools > Konten > Angka ke Kata. Lihat tangkapan layar:
3. Dalam Angka ke Kata Mata Uang kotak dialog, pilih Inggris pilihan, dan klik OK or Mendaftar .
Sekarang nomor mata uang yang dipilih akan segera dikonversi ke kata-kata bahasa Inggris.
Jika Anda ingin memiliki uji coba gratis (30 hari) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!