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

Bagaimana mengeja atau mengubah angka menjadi kata-kata bahasa Inggris di Excel?

Misalkan Anda memiliki banyak angka jumlah harga, dan sekarang Anda perlu mengonversi atau mengejanya menjadi string teks. Misalnya, konversi $ 123.55 dengan kata-kata bahasa Inggris seratus dua puluh tiga dolar lima puluh lima sen. Di Excel tidak ada fasilitas yang efektif untuk menyelesaikan masalah ini tetapi menggunakan kode VBA yang panjang dan kompleks. Pada artikel ini, saya akan memperkenalkan Anda beberapa metode untuk mengatasinya.

Eja atau ubah angka menjadi kata-kata bahasa Inggris dengan kode VBA

Eja atau ubah angka menjadi kata-kata bahasa Inggris dengan Kutools for Excel


Eja atau ubah angka menjadi kata-kata bahasa Inggris dengan kode VBA

Kode VBA panjang berikut dapat membantu Anda mengeja angka menjadi string teks. Lakukan sebagai berikut:

1. Tahan ALT + F11 kunci, dan itu membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempelkan makro berikut di file Jendela modul.

VBA: Mengeja angka mata uang ke kata-kata bahasa Inggris di Excel

Function SpellNumberToEnglish(ByVal pNumber)
'Updateby20131113
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
SpellNumberToEnglish = 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. Kemudian simpan kode, dan kembali ke lembar kerja, di sel B2 yang berdekatan, masukkan rumus = SpellNumberToEnglish (A1), lihat tangkapan layar:

4. Lalu tekan Enter kunci, dan pilih sel B2, lalu seret gagang isian ke rentang yang berisi rumus ini sesuai kebutuhan. Dan semua nomor mata uang telah dieja menjadi kata-kata dalam bahasa Inggris. Lihat tangkapan layar:

Note: Karena ini adalah rumus, saat Anda perlu menyalin dan menempelkannya, harap tempel sebagai nilai.


Eja atau ubah angka menjadi kata-kata bahasa Inggris dengan Kutools for Excel

Mungkin kode-kode panjang diatas bisa membuat kalian marah, jangan khawatir, disini saya bisa memberikan cara mudah dan cepat untuk mengatasinya. Dengan Kutools untuk Excel'S Angka ke Kata fungsi, Anda dapat dengan cepat dan mudah mengonversi angka menjadi string teks.

Kutools untuk Excel- Termasuk lebih dari 300 alat praktis untuk Excel. Uji coba gratis fitur lengkap 30 hari, tidak perlu kartu kredit! Get It Now

1. Pilih nomor rentang yang ingin Anda eja, dan klik Kutools > Content > Angka ke Kata.
doc kutools nomor ke kata 1

2. Di kotak dialog yang muncul, pilih English dari Bahasa. Dan Anda dapat melihat hasilnya dari kanan Preview Panel. Lihat tangkapan layar:
doc kutools nomor ke kata 2

3. Lalu klik Ok or Apply. Dan semua angka jumlah harga telah dikonversi ke string teks dalam kisaran aslinya.
doc kutools nomor ke kata 3

Note: Jika Anda hanya ingin mengonversi angka ke kata-kata bahasa Inggris (bukan mata uang), silakan periksa Tidak dikonversi ke Mata Uang checkbox.
doc kutools nomor ke kata 3 doc kutools nomor ke kata 3

Fitur fantastis ini Angka ke Kata dapat dengan mudah menerjemahkan nomor mata uang ke teks mata uang dalam bahasa Inggris atau Cina, seperti menerjemahkan 32.01 ke "Tiga puluh dua dolar dan satu sen" atau "叁拾 贰元 零 壹 分". Dapatkan Uji Coba Gratis!

Demo: Mengeja angka mata uang dengan kata-kata bahasa Inggris


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 (112)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Ini Benar-Benar Keren. Dan Fount mudah untuk mengubah Word " Dollar dan Kirim ke Rupee atau mata uang lain yang kita inginkan dengan Copy paste cod ke halaman kata baru lainnya dan mengganti Sama.
Komentar ini diminimalkan oleh moderator di situs
Saya tidak mendapatkan formula ini di Lembar saya, Bisakah Anda menunjukkan kepada saya secara detail?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih atas informasi berharga Anda. Saya perlu menyebutkan bahwa itu Dirham dan bukan dolar, bagaimana saya bisa membuatnya Terima kasih sebelumnya
Komentar ini diminimalkan oleh moderator di situs
Harap ubah semua kata ~dollar/dollars" dan ~cent/cents" dalam kode menjadi nama mata uang Anda.
Komentar ini diminimalkan oleh moderator di situs
Saya mencoba ini dan bekerja untuk saya ... buka modul, ctrl F untuk menemukan >>> lalu di temukan, masukkan Dolar dan kemudian pergi untuk mengganti (di kotak sembulan yang sama) dan masukkan Dirham, itu akan berhasil
Komentar ini diminimalkan oleh moderator di situs
Masalah pembulatan dengan angka. Contoh di data umum saya adalah 50.576 tetapi ketika saya membulatkannya menjadi 50.58, Words tidak berubah/dikonversi sesuai dengan nilai baru.
Komentar ini diminimalkan oleh moderator di situs
Ini adalah kode yang berfungsi dengan baik. Terima kasih banyak.
Komentar ini diminimalkan oleh moderator di situs
Ini adalah formula yang sangat bagus, Tapi saya membutuhkan kata-kata dalam format India
Komentar ini diminimalkan oleh moderator di situs
tolong jelaskan kepada saya bagaimana saya bisa melihatnya dalam format mata uang negara saya yaitu Rupee sebagai pengganti Dolar dan Paisa sebagai pengganti Sen.
Komentar ini diminimalkan oleh moderator di situs
DEAR SIR, Ini adalah formula yang sangat bagus, Tapi saya butuh kata-kata dalam format India, TOLONG SARAN
Komentar ini diminimalkan oleh moderator di situs
apakah mungkin untuk mendapatkan data ke-100 setelah desimal, misalnya .100 jawaban berteriak menjadi 100 bukannya sepuluh
Komentar ini diminimalkan oleh moderator di situs
terima kasih untuk rumusnya, namun, apakah mungkin untuk mendapatkan kata "Dolar/Rupee" sebagai awalan yaitu Rupee Seribu .... dan Paisas tiga puluh saja. akan sangat menghargai tanggapan Anda.
Komentar ini diminimalkan oleh moderator di situs
Bagaimana saya dapat mengubah jumlah dalam kata-kata bahasa Inggris dalam mata uang India
Komentar ini diminimalkan oleh moderator di situs
copy kode bahasa di atas pada lembar kata ganti kata "dollar" dengan "rupee" Kemudian ganti kata "sen" dengan "Paisa" kembali ke file excel tekan alt+F11 insert>>> module >> paste seluruh file word sampai "fungsi akhir" lakukan .....=SpellNumberToEnglish(cellref) & Anda siap melakukannya
Komentar ini diminimalkan oleh moderator di situs
Hai Pak, saya mencoba menyimpan makro seperti yang Anda sebutkan di atas. dan itu bekerja dengan baik. tetapi jika saya menutup excel dan membuka lembar baru, itu tidak berfungsi. mohon bantuannya
Komentar ini diminimalkan oleh moderator di situs
HELLO JUS ANDA BISA MENGINSTAL SPEL CURR ADDIN ANDA BISA CONVERT :) :) :lol:
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak, bisakah Anda memberi tahu saya sekarang bagaimana saya bisa mendapatkan format India (Rupee)
Komentar ini diminimalkan oleh moderator di situs
tidak bekerja. pop up mengatakan kelas tidak terdaftar. tidak ada pilihan untuk memilih bahasa. kode kesalahan
Komentar ini diminimalkan oleh moderator di situs
wow bagus untuk barang yang saya cari selama seminggu. Ini bekerja dengan baik. Terima kasih banyak
Komentar ini diminimalkan oleh moderator di situs
sangat membantu, terima kasih banyak :-)
Komentar ini diminimalkan oleh moderator di situs
THNX ATONE UNTUK TIPS TERSEBUT
Komentar ini diminimalkan oleh moderator di situs
Saya telah melakukan penelitian dan tidak dapat mengubah ke dalam sistem mata uang Pakistan, karena kami orang menggunakan format ini. 1,00,00,00,00,000.00 tetapi excel menggunakan format ini 1,000,000,000,000. dan kodenya dalam rumus jutaan triliun. Saya mencoba mengubah kekurangan, karor, arab dan kharab bukannya juta, miliar dan triliun, tetapi itu hanya akan mengubah kata-kata dan sistemnya akan tetap sama. seperti setelah perubahan itu akan menunjukkan yang ini. 100,000,000 seharusnya seratus juta, tetapi akan ditampilkan ratusan lakh. Jika seseorang dapat membantu saya, saya akan berterima kasih kepada Anda.
Komentar ini diminimalkan oleh moderator di situs
Saya ingin mengonversi bobot metrik dari angka menjadi kata. misalnya. 1. 10.50 Metrik Ton (MT) harus ditulis sebagai "10 Ton dan 500 kg" 2. 12.345 MT = Dua Belas Ton dan Tiga ratus Empat Puluh Lima Kg Membutuhkan minimal 3 tempat desimal dan 4 bahkan lebih baik. maks 9999.9999 adalah yang saya inginkan. Dapatkah seseorang tolong bantu?
Komentar ini diminimalkan oleh moderator di situs
Tolong jika Anda menemukan caranya ... tolong email saya islamrafat@gmail.com Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Jika Anda menemukan, silakan email saya islamrafat@gmail.com
Komentar ini diminimalkan oleh moderator di situs
Fantastis. Terima kasih kepada Extend Office
Komentar ini diminimalkan oleh moderator di situs
Terima kasih atas Bantuan ini berfungsi :-)
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan