Pada artikel ini saya akan menunjukkan kepada Anda dua cara cepat dan gratis untuk mengubah angka mata uang menjadi kata-kata bahasa Inggris di Excel 2019, 2016, 2013, dan versi lainnya.

Microsoft Excel adalah program yang bagus untuk menghitung ini dan itu. Awalnya dikembangkan untuk memproses array data yang besar. Namun, ini juga memungkinkan membuat catatan akuntansi seperti faktur, evaluasi atau neraca dengan cepat dan efektif.

Dalam dokumen pembayaran yang kurang lebih solid, perlu untuk menduplikasi nilai numerik dengan bentuk kata mereka. Jauh lebih sulit untuk memalsukan angka yang diketik daripada yang ditulis dengan tangan. Beberapa penipu dapat mencoba membuat 8000 dari 3000, sementara hampir tidak mungkin untuk secara diam-diam mengganti "tiga" dengan "delapan".

Jadi, yang Anda perlukan bukan hanya mengonversi angka ke kata-kata di Excel (misalnya 123,45 menjadi "seratus dua puluh tiga, empat puluh lima"), tetapi juga mengeja dolar dan sen (misalnya $29,95 sebagai "dua puluh sembilan dolar dan sembilan puluh sembilan sen"), pound dan pence untuk GBP, euro dan eurocents untuk EUR, dll.

Bahkan versi terbaru Excel tidak memiliki alat bawaan untuk mengeja angka, belum lagi versi sebelumnya. Tapi saat itulah Excel benar-benar bagus. Anda selalu dapat meningkatkan fungsinya menggunakan rumus di semua

kombinasi, makro VBA, atau add-in pihak ketiga.

Di bawah ini, Anda akan menemukan dua cara untuk mengonversi angka dari angka ke kata-kata

Dan, mungkin, Anda mungkin perlu mengonversi Kata ke Angka di Excel

Catatan. Jika Anda mencari konversi angka ke teks Untuk ini, Anda dapat menggunakan fungsi TEXT atau beberapa cara lain yang dijelaskan dalam Cara mengubah angka menjadi teks di Excel.

SpellNumber VBA makro untuk mengubah angka menjadi kata-kata

Seperti yang sudah saya sebutkan, Microsoft tidak ingin menambahkan alat untuk tugas ini. Namun, ketika mereka melihat berapa banyak pengguna yang membutuhkannya, mereka membuat dan menerbitkan makro VBA khusus di situs web mereka. Makro melakukan apa yang disarankan oleh namanya SpellNumber. Semua makro lain yang saya temukan didasarkan pada kode Microsoft.

Anda dapat menemukan makro yang disebutkan sebagai "rumus angka ejaan". Namun, ini bukan rumus, tetapi fungsi makro, atau lebih tepatnya Fungsi yang ditentukan pengguna Excel (UDF).

Opsi spellnumber dapat menulis dolar dan sen. Jika Anda membutuhkan mata uang yang berbeda, Anda dapat mengubah " dolar " dan " cent " dengan nama Anda.

Jika Anda bukan orang yang paham VBA, di bawah ini Anda akan menemukan salinan kodenya. Jika Anda masih tidak ingin atau belum punya waktu untuk menyelesaikannya, silakan gunakan solusi ini.

1. Buka buku kerja di mana Anda perlu mengeja angka-angka.
2. Tekan Alt+F11 untuk membuka jendela editor Visual Basic.
3. Jika Anda memiliki beberapa buku yang dibuka, periksa apakah buku kerja yang dibutuhkan aktif menggunakan daftar proyek di sudut kiri atas editor (salah satu elemen buku kerja disorot dengan warna biru).
4. Dalam menu editor, buka Sisipkan -> Modul .
5. Anda akan melihat jendela bernama YourBook - Module1. Pilih semua kode dalam bingkai di bawah ini dan tempelkan ke jendela ini.

   Option Explicit 'Fungsi Utama Function Function EjaNumber( 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 " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) 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 = "OneDollar" Case Else Dollars = Dollars & " Dollars" End Select Select Case Cents Case "" Cents = " dan Tanpa Sen" Case "One" Cents = " dan Satu Sen" Case Else Cents = " dan " & Cents & " Cents" End Select SpellNumber = Dollars & Cents End Function Function GetHundreds( ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right( "000" & MyNumber,3) ' Mengkonversi tempat ratusan. If Mid(MyNumber, 1, 1) "0" Then Hasil = GetDigit(Mid(MyNumber, 1, 1)) & " Seratus " End If ' Mengkonversi tempat puluhan dan satuan. If Mid(MyNumber, 2, 1) "0" Then Hasil = Hasil & GetTens(Mid(MyNumber, 2)) Else Hasil = Hasil & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Hasil End Function Function GetTens(TensText) Dim Hasil As String Hasil = ""'Null out nilai fungsi sementara. If Val(Left(TensText, 1)) = 1 Then 'Jika nilai antara 10-19... Select Case Val(TensText) Case 10: Hasil = "Sepuluh" Case 11: Hasil = "Sebelas" Case 12: Hasil = "Dua belas" Case 13: Hasil = "Tiga belas" Case 14: Hasil = "Empat belas" Case 15: Hasil = "Lima belas" Case 16: Hasil = "Enam belas" Case 17: Hasil = "Tujuh belas" Case 18: Hasil = "Delapan belas" Case 19: Hasil ="Sembilan belas" Case Else End Select Else ' Jika nilai antara 20-99... Select Case Val(Left(TensText, 1)) Case 2: Hasil = "Dua Puluh " Case 3: Hasil = "Tiga Puluh " Case 4: Hasil = "Empat Puluh " Case 5: Hasil = "Lima Puluh " Case 6: Hasil = "Enam Puluh " Case 7: Hasil = "Tujuh Puluh " Case 8: Hasil = "Delapan Puluh " Case 9: Hasil = "Sembilan Puluh " Case Else End Select Hasil = Hasil & GetDigit _ (Right(TensText, 1)) ' Retrievetempat yang satu. End If GetTens = Result End Function Function Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "Satu" Case 2: GetDigit = "Dua" Case 3: GetDigit = "Tiga" Case 4: GetDigit = "Empat" Case 5: GetDigit = "Lima" Case 6: GetDigit = "Enam" Case 7: GetDigit = "Tujuh" Case 8: GetDigit = "Delapan" Case 9: GetDigit = "Sembilan" Case Else : GetDigit = "" End Select End Function

6. Tekan Ctrl + S untuk menyimpan buku kerja yang sudah diperbarui.

   Anda perlu menyimpan ulang buku kerja Anda. Ketika Anda mencoba menyimpan buku kerja dengan makro, Anda akan mendapatkan pesan " Fitur-fitur berikut ini tidak bisa disimpan dalam buku kerja bebas makro "

   

   Klik No. Ketika Anda melihat dialog baru, pilih opsi Save as. Di bidang " Simpan sebagai tipe " pilih opsi " Buku kerja Excel yang mendukung makro ".

   

Gunakan makro SpellNumber di lembar kerja Anda

Sekarang Anda bisa menggunakan fungsi SpellNumber di dokumen Excel Anda. Masukkan =SpellNumber(A2) ke dalam sel di mana Anda perlu mendapatkan nomor yang ditulis dalam kata-kata. Di sini A2 adalah alamat sel dengan nomor atau jumlahnya.

Di sini Anda bisa melihat hasilnya:

Voila!

Salin fungsi SpellNumber dengan cepat ke sel lain.

Jika Anda perlu mengonversi seluruh tabel, bukan hanya 1 cell, letakkan kursor mouse Anda ke sudut kanan bawah cell dengan rumus tersebut sampai berubah menjadi tanda silang hitam kecil:

Klik kiri dan seret melintasi kolom untuk mengisi formula. Lepaskan tombol untuk melihat hasilnya:

Catatan Harap diingat bahwa jika Anda menggunakan SpellNumber dengan tautan ke sel lain, jumlah yang tertulis akan diperbarui setiap kali angka di sel sumber diubah.

Anda juga bisa memasukkan angka secara langsung ke dalam fungsi, misalnya, =SpellNumber(29.95) (29.95 - tanpa tanda kutip dan tanda Dolar).

Kerugian menggunakan makro untuk mengeja angka di Excel

Pertama, Anda harus mengetahui VBA untuk memodifikasi kode sesuai dengan kebutuhan Anda. Anda perlu menempelkan kode untuk setiap buku kerja, di mana Anda berencana untuk mengubahnya. Jika tidak, Anda perlu membuat file template dengan makro dan mengkonfigurasi Excel untuk memuat file ini di setiap awal.

Kerugian utama menggunakan makro adalah jika Anda mengirim buku kerja ke orang lain, orang ini tidak akan melihat teks kecuali jika makro dibangun ke dalam buku kerja. Dan bahkan jika itu built-in, mereka akan mendapatkan peringatan bahwa ada makro di buku kerja.

Mengeja angka menjadi kata-kata menggunakan add-in khusus

Untuk pengguna Excel yang perlu mengeja jumlah dengan cepat tetapi tidak punya waktu untuk mempelajari VBA atau mencari solusi, kami membuat alat khusus yang dapat dengan cepat melakukan konversi jumlah-ke-kata untuk beberapa mata uang populer. Silakan temui add-in Eja Angka yang disertakan dengan rilis terbaru dari Ultimate Suite untuk Excel kami.

Selain siap digunakan, alat ini sangat fleksibel dalam mengonversi jumlah ke teks:

• Anda dapat memilih salah satu mata uang berikut: USD, EUR, GBP, BIT, AUD.
• Mengeja bagian pecahan dalam sen, sen, atau bit sen.
• Pilih huruf teks apa pun untuk hasilnya: huruf kecil, huruf besar, huruf judul, atau huruf kalimat.
• Mengeja bagian desimal dengan cara yang berbeda.
• Sertakan atau hilangkan nol sen.

Add-in mendukung semua versi modern termasuk Excel 365, Excel 2029, Excel 2016, Excel 2013, dan Excel 2010. Jangan ragu untuk menjelajahi kemampuan lain di halaman beranda produk yang ditautkan di atas.

Dan sekarang, mari kita lihat utilitas pengejaan angka ini dalam tindakan:

1. Pilih sel kosong untuk hasilnya.
2. Pada Ablebits tab, di tab Utilitas kelompok, klik Nomor Mantra .
3. Dalam Nomor Tumpahan jendela dialog yang muncul, konfigurasikan hal-hal berikut ini:
   • Untuk Pilih nomor Anda kotak, pilih sel yang berisi jumlah yang ingin Anda tulis sebagai teks.
   • Tentukan yang diinginkan saat ini , kasus huruf dan cara bagian desimal dari angka tersebut harus dieja.
   • Tentukan apakah akan menyertakan nol sen atau tidak.
   • Pilih apakah akan menyisipkan hasil sebagai nilai atau formula.
4. Di bagian bawah jendela dialog, pratinjau Jika Anda senang dengan cara penulisan nomor Anda, klik Mantra Jika tidak, cobalah pengaturan yang berbeda.

Tangkapan layar di bawah ini mendemonstrasikan pilihan default dan angka yang dieja di B2. Harap perhatikan rumus (lebih tepatnya, fungsi yang ditentukan pengguna) di bilah rumus:

Dan ini adalah demonstrasi cepat tentang bagaimana mata uang lainnya dapat dijabarkan:

Kiat dan catatan:

• Karena Nomor Mantra add-in dirancang untuk menangani kasus penggunaan kehidupan nyata seperti faktur dan dokumen keuangan lainnya, add-in ini hanya dapat mengonversi satu nomor pada suatu waktu.
• Untuk mengeja kolom angka , sisipkan rumus di sel pertama, lalu salin rumus ke bawah.
• Jika ada kemungkinan bahwa sumber data Anda bisa berubah di masa mendatang, yang terbaik adalah masukkan hasilnya sebagai rumus sehingga secara otomatis diperbarui saat nomor asli berubah.
• Ketika memilih hasil sebagai rumus opsi, sebuah opsi fungsi yang ditentukan pengguna (Jika Anda berencana untuk membagikan buku kerja Anda dengan seseorang yang tidak menginstal Ultimate Suite, ingatlah untuk mengganti rumus dengan nilai sebelum berbagi.

Konversi terbalik - Kata-kata bahasa Inggris menjadi angka

Terus terang, saya tidak bisa membayangkan mengapa Anda mungkin membutuhkannya. Untuk berjaga-jaga... :)

Tampaknya Excel MVP, Jerry Latham, menciptakan fungsi yang ditentukan Pengguna Excel (UDF) seperti WordsToDigits Ini mengubah kata-kata bahasa Inggris kembali ke angka.

Anda dapat mengunduh buku kerja WordsToDigits Jerry untuk melihat kode UDF. Di sini Anda juga akan menemukan contoh-contohnya tentang cara menggunakan fungsi tersebut.

Anda bisa melihat bagaimana fungsi ini bekerja pada lembar " Contoh Entri ", di mana Anda juga dapat memasukkan contoh Anda sendiri. Jika Anda berencana untuk menggunakan WordsToDigits dalam dokumen Anda, harap diketahui bahwa fungsi ini memiliki batasan. Misalnya, fungsi ini tidak mengenali pecahan yang dimasukkan dalam kata-kata. Anda akan menemukan semua detailnya di " Informasi " lembar.