Note: The other languages of the website are Google-translated. Back to English

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 > Content > Angka ke Kata. Lihat tangkapan layar:

3. Dalam Angka ke Kata Mata Uang kotak dialog, pilih English pilihan, dan klik OK or Apply .

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

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (16)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
mata uang selalu dalam Dolar dan sen, Bagaimana kita bisa mengubahnya ke mata uang lain?
Komentar ini diminimalkan oleh moderator di situs
Anda dapat mengubah kode ke mata uang Anda alih-alih "dollers"
Komentar ini diminimalkan oleh moderator di situs
Pak Shaji dapatkah Anda memandu dengan langkah-langkahnya?
Komentar ini diminimalkan oleh moderator di situs
Tinjau artikel Panduan pemula juta miliar triliun konversi untuk mempelajari dan memahami tentang sistem bilangan dan konversi angka.
Komentar ini diminimalkan oleh moderator di situs
tidak dapat diubah mata uangnya
Komentar ini diminimalkan oleh moderator di situs
Saya suka makro Anda. Menemukan satu hal yang tidak bekerja dengan baik. Saat itulah ada pecahan. Misalnya jika bidang muncul sebagai .835 excel membulatkannya tetapi nilainya diketik sebagai "delapan puluh tiga sen" sementara excel menunjukkan .84.
Bekerja di sekitar untuk ini?
Komentar ini diminimalkan oleh moderator di situs
Hai,
Maaf untuk ketidaknyamanannya. Kami telah memperbarui kode, silakan coba.

Function NumberstoWords(ByVal pNumber)
'Updated by Extendoffice 20220428
Dim Dollars, Cents
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
pNumber = Round(pNumber, 2)
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
Komentar ini diminimalkan oleh moderator di situs
Makro ini di sini banyak membantu saya, terima kasih banyak untuk itu. Mata uang kami di Kuwait memiliki 3 digit setelah desimal, dapatkah Anda membantu saya dengan ini?
Komentar ini diminimalkan oleh moderator di situs
Jika 45.67 ditulis sebagai empat puluh lima dolar, enam puluh tujuh sen, bagaimana 45.678 ditulis? Apakah empat puluh lima dolar enam ratus tujuh puluh delapan sen?
Komentar ini diminimalkan oleh moderator di situs
Ingin solusi yang tidak memerlukan VBA?
Check it out di sini
Lihat hasilnya di tangkapan layar
Komentar ini diminimalkan oleh moderator di situs
Bisakah Anda memperbarui kode untuk menggunakan Dinar dan Fils .. Fils desimal adalah 3 .. berarti memiliki ratusan, puluhan dan satu..
Terima kasih ..
Komentar ini diminimalkan oleh moderator di situs
Hai Nasim,
Mungkin kode VBA pada halaman berikut dapat membantu.
Ubah angka menjadi kata menggunakan Dinar dan Fils.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak ..
Bisakah Anda memperbarui untuk menulis isian angka bukan kata.
125.100 --> Seratus Dua Puluh Lima Dinar Kuwait dan 100 Fils Saja

Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Halo tolong, saya suka rumus Anda tetapi saya ingin memperbarui rumusnya agar tetap seperti contoh dalam huruf kapital. Terima kasih banyak.
Contoh:
USD 121,500.56 = Seratus Dua Puluh Satu Ribu Lima Ratus Dolar Lima Puluh Enam Sen
***SERATUS DUA PULUH SATU RIBU LIMA RATUS 56/100 DOLAR AS

USD 121,500.00 = Seratus Dua Puluh Satu Ribu Lima Ratus Dolar Tanpa Sen
***SERATUS DUA PULUH SATU RIBU LIMA RATUS 00/100 DOLAR AS
Komentar ini diminimalkan oleh moderator di situs
Hai Malaikat,
Kode VBA berikut dapat membantu Anda. Setelah menambahkan kode ke Modul (Kode) jendela. Jangan lupa untuk menerapkan formula ini =NumberstoWords(sel) untuk mendapatkan hasilnya.
Function NumberstoWords(ByVal pNumber)
'Updated by Extendoffice 20221123
Application.Volatile

Dim Dollars, Cents
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, ".")

If xDecimal > 0 Then
    Cents = Left(Mid(pNumber, xDecimal + 1) & "00", 2)
    Cents = "AND " & Cents & "/100 US DOLLARS"
    pNumber = Trim(Left(pNumber, xDecimal - 1))
Else
    Cents = "AND " & "00/100 US DOLLARS"
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
End Select
NumberstoWords = UCase(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
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan