Dalam artikel ini, saya akan menunjukkan kepada anda dua cara cepat dan percuma untuk menukar nombor mata wang kepada perkataan bahasa Inggeris dalam Excel 2019, 2016, 2013 dan versi lain.

Microsoft Excel adalah hebat program untuk mengira ini dan itu. Ia pada mulanya dibangunkan untuk memproses tatasusunan data yang besar. Walau bagaimanapun, ia juga membolehkan mencipta rekod perakaunan seperti invois, penilaian atau kunci kira-kira dengan cepat dan berkesan.

Dalam dokumen pembayaran yang lebih kurang kukuh, nilai angka perlu diduplikasi dengan bentuk perkataannya. Adalah lebih sukar untuk memalsukan nombor yang ditaip daripada yang ditulis dengan tangan. Sesetengah penipu boleh cuba membuat 8000 daripada 3000, manakala hampir mustahil untuk menggantikan "tiga" dengan "lapan" secara rahsia.

Jadi apa yang anda perlukan bukan sekadar menukar nombor kepada perkataan dalam Excel (mis. 123.45 kepada "seratus dua puluh tiga, empat puluh lima"), tetapi nyatakan dolar dan sen (mis. $29.95 sebagai "dua puluh sembilan dolar dan sembilan puluh sembilan sen"), paun dan pence untuk GBP, euro dan eurosen untuk EUR, dsb.

Malah versi terkini Excel tidak mempunyai alat terbina dalam untuk mengeja nombor, apatah lagi versi terdahulu. Tetapi ketika itulah Excel benar-benar bagus. Anda sentiasa boleh meningkatkan kefungsiannya menggunakan formula dalam semua

kombinasi, makro VBA atau alat tambah pihak ketiga mereka.

Di bawah anda akan menemui dua cara untuk menukar nombor daripada angka kepada perkataan

Dan, mungkin, anda mungkin perlutukar Words kepada Nombor dalam Excel

Nota. Jika anda mencari penukaran nombor kepada teks , yang bermaksud anda mahu Excel melihat nombor anda sebagai teks, ini adalah perkara yang agak berbeza. Untuk ini, anda boleh menggunakan fungsi TEXT atau beberapa cara lain yang diterangkan dalam Cara menukar nombor kepada teks dalam Excel.

Makro VBA SpellNumber untuk menukar nombor kepada perkataan

Seperti yang telah saya nyatakan , Microsoft tidak mahu menambah alat untuk tugasan ini. Walau bagaimanapun, apabila mereka melihat bilangan pengguna yang memerlukannya, mereka mencipta dan menerbitkan makro VBA khas di tapak web mereka. Makro melakukan apa yang dicadangkan oleh namanya SpellNumber. Semua makro lain yang saya temui adalah berdasarkan kod Microsoft.

Anda boleh menemui makro yang disebut sebagai "formula nombor ejaan". Walau bagaimanapun, ia bukan formula, tetapi fungsi makro, atau lebih tepatnya Fungsi takrifan Pengguna Excel (UDF).

Pilihan nombor ejaan mampu menulis dolar dan sen. Jika anda memerlukan mata wang yang berbeza, anda boleh menukar " dolar " dan " sen " dengan nama mata wang anda.

Jika anda bukan lelaki yang mahir VBA , di bawah anda akan menemui salinan kod tersebut. Jika anda masih tidak mahu atau tidak mempunyai masa untuk menyelesaikan masalah ini, sila gunakan penyelesaian ini.

1. Buka buku kerja di mana anda perlu mengeja nombor.
2. Tekan Alt +F11 untuk membuka tetingkap editor Visual Basic.
3. Jika anda mempunyai beberapa buku dibuka, pastikan buku kerja yang diperlukan aktif menggunakansenarai projek di penjuru kiri sebelah atas editor (salah satu elemen buku kerja diserlahkan dengan warna biru).
4. Dalam menu editor pergi ke Sisipkan -> Modul .
5. Anda sepatutnya melihat tetingkap bernama YourBook - Module1. Pilih semua kod dalam bingkai di bawah dan tampalkannya ke tetingkap ini.

   Pilihan Eksplisit 'Fungsi Fungsi Utama SpellNumber( ByVal MyNumber) Dolar Malap, Sen, Tempat Perpuluhan Malap Suhu, Kira Tempat Malap Semula(9) Sebagai Tempat Rentetan(2) = " Ribu " Tempat(3) = " Juta " Place(4) = " Billion " Place(5) = " Trilion " MyNumber = Trim(Str(MyNomber)) DecimalPlace = InStr(MyNomber, "." ) Jika DecimalPlace > 0 Kemudian Cents = GetTens(Left(Mid(MyNomber, DecimalPlace + 1) & _ "00" , 2)) MyNumber = Trim(Left(MyNomber, DecimalPlace - 1)) Tamat Jika Count = 1 Do While MyNumber "" Temp = GetHundreds(Right(MyNomber, 3)) Jika Temp "" Maka Dolar = Temp & Tempat(Kiraan) & Dolar Jika Len(Nombor Saya) > 3 Kemudian Nombor Saya = Kiri(Nombor Saya, Len(Nombor Saya) - 3) Lain Nombor Saya = "" Tamat Jika Kira = Kira + 1 Gelung Pilih Sarung Dolar Sarung "" Dolar = "Tiada Dolar" Sarung "Satu" Dolar = "Satu Dolar" Kes Lain Dolar = Dolar & " Dollars" End Select Select Cases Cents Cases "" Cents = " and No Cents" Case "Satu" Cents = " and One Cents" Case Else Cents = " dan " & Sen & " Sen" Tamat Pilih SpellNumber = Dolar & Fungsi Fungsi Tamat Sen GetHundreds(ByVal MyNumber) Hasil Malapkan Sebagai Rentetan Jika Val(MyNumber) = 0 Kemudian Keluar Fungsi MyNumber = Kanan( "000" & MyNumber, 3) ' Tukar tempat ratusan. Jika Pertengahan(Nombor Saya, 1, 1) "0" Maka Keputusan = GetDigit(Pertengahan(Nombor Saya, 1, 1)) & " Seratus " Tamat Jika ' Tukarkan tempat puluh dan satu. Jika Pertengahan(Nombor Saya, 2, 1) "0" Maka Keputusan = Keputusan & GetTens(Mid(MyNomber, 2)) Lain Keputusan = Keputusan & GetDigit(Mid(MyNomber, 3)) End If GetHundreds = Result End Function Function GetTens(TensText) Dim Result Sebagai String Result = "" ' batalkan nilai fungsi sementara. Jika Val(Kiri(TensText, 1)) = 1 Kemudian ' Jika nilai antara 10-19… Pilih Kes Val(TensText) Kes 10: Keputusan = "Sepuluh" Kes 11: Keputusan = "Sebelas" Kes 12: Keputusan = "Dua Belas " Kes 13: Keputusan = "Tiga Belas" Kes 14: Keputusan = "Empat Belas" Kes 15: Keputusan = "Lima Belas" Kes 16: Keputusan = "Enam Belas" Kes 17: Keputusan = "Tujuh Belas" Kes 18: Keputusan = "Lapan Belas" Kes 19: Keputusan = "Sembilan Belas" Kes Lain Tamat Pilih Lain ' Jika nilai antara 20-99… Pilih Kes Val(Kiri(TensText, 1)) Kes 2: Keputusan = "Dua Puluh" Kes 3: Keputusan = "Tiga Puluh" Kes 4: Keputusan = "Empat Puluh" Kes 5: Keputusan = "Lima Puluh" Kes 6: Keputusan = "Enam Puluh" Kes 7: Keputusan = "Tujuh Puluh" Kes 8: Keputusan = "Lapan Puluh" Kes 9: Keputusan = "Sembilan Puluh" Kes Lain Akhir Pilih Keputusan = Keputusan & GetDigit _ (Right(TensText, 1)) ' Dapatkan satu tempat. Tamat Jika GetTens = Keputusan Tamat Fungsi Fungsi GetDigit(Digit) Pilih KesKes Val(Digit) 1: GetDigit = "Satu" Kes 2: GetDigit = "Dua" Kes 3: GetDigit = "Tiga" Kes 4: GetDigit = "Empat" Kes 5: GetDigit = "Lima" Kes 6: GetDigit = " Kes Enam" 7: GetDigit = "Tujuh" Kes 8: GetDigit = "Lapan" Kes 9: GetDigit = "Sembilan" Kes Lain : GetDigit = "" End Select End Function

6. Tekan Ctrl+S untuk menyimpan buku kerja yang dikemas kini.

   Anda perlu menyimpan semula buku kerja anda. Apabila anda cuba menyimpan buku kerja dengan makro, anda akan mendapat mesej " Ciri berikut tidak boleh disimpan dalam buku kerja bebas makro "

   

   Klik Tidak. Apabila anda melihat dialog baharu, pilih pilihan Simpan sebagai. Dalam medan " Simpan sebagai jenis " pilih pilihan " Buku kerja didayakan makro Excel ".

   

Gunakan makro SpellNumber dalam lembaran kerja anda

Kini anda boleh menggunakan fungsi SpellNumber dalam dokumen Excel anda. Masukkan =SpellNumber(A2) ke dalam sel di mana anda perlu mendapatkan nombor yang ditulis dalam perkataan. Di sini A2 ialah alamat sel dengan nombor atau jumlah.

Di sini anda boleh melihat hasilnya:

Voila!

Cepat salin fungsi SpellNumber ke sel lain.

Jika anda perlu menukar keseluruhan jadual, bukan hanya 1 sel, letakkan kursor tetikus anda ke sudut kanan bawah sel dengan formula sehingga ia bertukar menjadi salib hitam kecil:

Klik kiri dan seretnya merentasi lajur untuk mengisi formula. Lepaskan butang untuk melihat keputusan:

Nota. Tolonglahperlu diingat bahawa jika anda menggunakan SpellNumber dengan pautan ke sel lain, jumlah bertulis akan dikemas kini setiap kali nombor dalam sel sumber ditukar.

Anda juga boleh memasukkan nombor terus ke dalam fungsi, untuk contoh, =SpellNumber(29.95) (29.95 - tanpa tanda petikan dan tanda Dolar).

Kelemahan menggunakan makro untuk mengeja nombor dalam Excel

Mula-mula, anda mesti tahu VBA untuk mengubah suai kod anda keperluan. Ia adalah perlu untuk menampal kod untuk setiap buku kerja, tempat anda bercadang untuk menukarnya. Jika tidak, anda perlu mencipta fail templat dengan makro dan mengkonfigurasi Excel untuk memuatkan fail ini pada setiap permulaan.

Kelemahan utama menggunakan makro ialah jika anda menghantar buku kerja kepada orang lain, orang ini tidak akan lihat teks melainkan makro dibina ke dalam buku kerja. Dan walaupun ia terbina dalam, mereka akan mendapat makluman bahawa terdapat makro dalam buku kerja.

Eja nombor ke dalam perkataan menggunakan alat tambah khas

Untuk pengguna Excel yang perlu mengeja jumlah dengan cepat tetapi tidak mempunyai masa untuk mempelajari VBA atau mencari penyelesaian, kami mencipta alat khas yang boleh melakukan penukaran jumlah kepada perkataan dengan cepat untuk beberapa mata wang popular. Sila temui tambahan Nombor Ejaan yang disertakan dengan keluaran terbaharu Suite Ultimate untuk Excel kami.

Selain sedia untuk digunakan, alat ini benar-benar fleksibel dalam menukar amaun kepada teks:

• Anda boleh memilih salah satu daripadamata wang berikut: USD, EUR, GBP, BIT, AUD.
• Eja bahagian pecahan dalam sen, sen atau bitsen.
• Pilih mana-mana huruf besar untuk keputusan: huruf kecil, HURUF BESAR , Huruf Tajuk atau Huruf Ayat.
• Eja bahagian perpuluhan dengan cara yang berbeza.
• Sertakan atau tinggalkan sifar sen.

Tambah masuk menyokong semua moden versi termasuk Excel 365, Excel 2029, Excel 2016, Excel 2013 dan Excel 2010. Sila terokai keupayaan lain pada halaman utama produk yang dipautkan di atas.

Dan sekarang, mari lihat utiliti ejaan nombor ini dalam tindakan :

1. Pilih sel kosong untuk hasilnya.
2. Pada tab Ablebits , dalam kumpulan Utiliti , klik Eja Nombor .
3. Dalam tetingkap dialog Spill Number yang muncul, konfigurasikan perkara berikut:
   • Untuk kotak Pilih nombor anda , pilih sel yang mengandungi amaun yang anda mahu tulis sebagai teks.
   • Nyatakan pada masa ini , huruf besar dan cara perpuluhan bahagian nombor hendaklah dieja.
   • Tentukan sama ada hendak memasukkan sifar sen atau tidak.
   • Pilih sama ada hendak memasukkan hasil sebagai nilai atau formula.
4. Di bahagian bawah tetingkap dialog, pratonton hasilnya. Jika anda berpuas hati dengan cara nombor anda ditulis, klik Eja . Jika tidak, cuba tetapan yang berbeza.

Tangkapan skrin di bawah menunjukkan tetapan lalaipilihan dan nombor yang dieja dalam B2. Sila perhatikan formula (lebih tepat, fungsi yang ditakrifkan pengguna) dalam bar formula:

Dan ini ialah demonstrasi pantas tentang cara mata wang lain boleh dinyatakan:

Petua dan nota:

• Oleh kerana tambahan Eja Nombor direka untuk mengendalikan kes penggunaan kehidupan sebenar seperti invois dan dokumen kewangan lain, ia hanya boleh menukar satu nombor pada satu masa.
• Untuk mengeja lajur nombor , masukkan formula dalam sel pertama, dan kemudian salin formula ke bawah.
• Jika ada kemungkinan bahawa data sumber anda mungkin berubah pada masa hadapan, sebaiknya menyisipkan hasil sebagai formula , jadi ia dikemas kini secara automatik apabila nombor asal berubah.
• Apabila memilih hasil sebagai formula pilihan, fungsi takrif pengguna (UDF) tersuai dimasukkan. Jika anda bercadang untuk berkongsi buku kerja anda dengan seseorang yang tidak memasang Ultimate Suite, ingat untuk menggantikan formula dengan nilai sebelum berkongsi.

Penukaran terbalik - Perkataan Inggeris kepada nombor

Terus-terang , saya tidak dapat bayangkan mengapa anda mungkin memerlukannya. Untuk berjaga-jaga... :)

Nampaknya Excel MVP, Jerry Latham, mencipta fungsi Excel User takrif (UDF) seperti WordsToDigits . Ia menukar perkataan Inggeris kembali kepada nombor.

Anda boleh memuat turun buku kerja WordsToDigits Jerry untuk melihat kod UDF. Di sini anda juga akan menemui contoh beliau tentang cara menggunakanfungsi.

Anda boleh melihat cara fungsi berfungsi pada helaian " Entri Contoh ", di mana anda juga boleh memasukkan contoh anda sendiri. Jika anda bercadang untuk menggunakan WordsToDigits dalam dokumen anda, sila maklum bahawa fungsi ini mempunyai sekatan. Contohnya, ia tidak mengenali pecahan yang dimasukkan dalam perkataan. Anda akan menemui semua butiran pada helaian " Maklumat ".