Dina artikel ieu kuring baris némbongkeun Anjeun dua cara gancang jeung bébas pikeun ngarobah angka mata uang kana kecap basa Inggris dina Excel 2019, 2016, 2013 jeung vérsi séjén.

Microsoft Excel téh hébat program keur ngitung ieu jeung éta. Ieu mimitina dimekarkeun pikeun ngolah arrays data badag. Nanging, éta ogé ngamungkinkeun nyiptakeun rékaman akuntansi sapertos invoice, évaluasi atanapi neraca sacara gancang sareng éfisién.

Dina dokumén pamayaran anu kirang langkung padet kedah duplikat nilai angka sareng bentuk kecapna. Éta langkung sesah pikeun ngapalkeun nomer anu diketik tibatan anu ditulis ku leungeun. Sababaraha swindler tiasa nyobian ngadamel 8000 tina 3000, bari ampir teu mungkin pikeun cicingeun ngagentos "tilu" ku "dalapan".

Jadi anu anjeun peryogikeun sanés ngan ukur ngarobih angka kana kecap dina Excel (misalna 123.45 ka Excel. "saratus dua puluh tilu, opat puluh lima"), tapi ngejah kaluar dollar na cents (misalna $29,95 salaku "dua puluh salapan dollar na salapan puluh salapan cents"), pon jeung pence pikeun GBP, euro jeung eurocents keur eur, jsb

Malah versi panganyarna tina Excel teu boga alat nu diwangun-di pikeun angka ejaan, teu nyebut versi saméméhna. Tapi éta nalika Excel saé pisan. Anjeun salawasna tiasa ningkatkeun fungsionalitasna nganggo rumus dina sadaya

kombinasi, makro VBA, atanapi tambihan pihak katilu.

Di handap ieu anjeun bakal mendakan dua cara pikeun ngarobih nomer tina inohong kana kecap

Jeung, jigana, Anjeun bisa jadi kudungarobah Kecap kana Angka dina Excel

Catetan. Upami anjeun milarian konversi angka kana téks , anu hartosna anjeun hoyong Excel ningali nomer anjeun salaku téks, éta hal anu rada béda. Pikeun ieu, anjeun tiasa nganggo pungsi TEXT atanapi sababaraha cara sanés anu dijelaskeun dina Kumaha ngarobih nomer kana téks dina Excel.

Makro SpellNumber VBA pikeun ngarobih angka kana kecap

Sapertos anu parantos disebatkeun. , Microsoft henteu hoyong nambihan alat pikeun tugas ieu. Nanging, nalika aranjeunna ningali sabaraha pangguna anu peryogi éta, aranjeunna nyiptakeun sareng nyebarkeun makro VBA khusus dina halaman wébna. Makro nu ngalakukeun naon ngaranna SpellNumber nunjukkeun. Sadaya makro sanésna anu kuring mendakan dumasar kana kode Microsoft.

Anjeun tiasa mendakan makro anu disebatkeun salaku "rumus angka ejaan". Nanging, éta sanés rumus, tapi fungsi makro, atanapi langkung tepatna Fungsi anu didefinisikeun ku pangguna Excel (UDF).

Pilihan nomer ejaan tiasa nyerat dolar sareng sén. Upami anjeun peryogi mata uang anu béda, anjeun tiasa ngarobih " dollar " sareng " cent " nganggo nami mata uang anjeun.

Upami anjeun sanés jalma anu pinter VBA. , di handap anjeun bakal manggihan salinan kode. Upami anjeun masih teu hoyong atanapi teu gaduh waktos pikeun nyortir ieu, mangga nganggo solusi ieu.

1. Buka buku kerja dimana anjeun kedah ngeja angka.
2. Pencét Alt +F11 pikeun muka jandela éditor Visual Basic.
3. Upami anjeun ngagaduhan sababaraha buku, pariksa yén buku kerja anu diperyogikeun aktip nganggodaptar proyék di belah kénca juru luhur redaktur (salah sahiji elemen workbook disorot ku biru).
4. Dina menu redaktur buka Selapkeun -> Modul .
5. Anjeun kedah ningali jandela anu namina YourBook - Module1. Pilih sadaya kode dina pigura di handap ieu teras lebetkeun kana jandela ieu.

   Pilihan Eksplisit 'Fungsi Utama SpellNumber( ByVal MyNumber) Taram Dollar, Cents, Temp Dim DecimalPlace, Cacah ReDim Place(9) Salaku String Place(2) = "Sarébu" Tempat(3) = "Juta" Tempat (4) = "Milyar" Tempat (5) = "Trilyun" MyNumber = Trim (Str (MyNumber)) DecimalPlace = InStr (MyNumber, ".") Lamun DecimalPlace & GT; 0 Lajeng Cents = GetTens (Kénca (Mid (MyNumber, DecimalPlace + 1) & amp; _ "00", 2)) MyNumber = Trim (Kénca (MyNumber, DecimalPlace - 1)) Tungtung Lamun Count = 1 Do Sedengkeun MyNumber "" Temp = GetHundreds (Katuhu (MyNumber, 3)) Lamun Temp "" Lajeng dollar = Temp & amp; tempat (cacah) & amp; Dollar Lamun Len(MyNumber) & GT; 3 Lajeng MyNumber = Kénca(MyNumber, Len(MyNomber) - 3) Lain MyNumber = "" Tungtung Lamun Cacah = Count + 1 Loop Pilih Case Dollars Case "" Dollars = "Euweuh Dollar" Case "Hiji" Dollar = "Hiji Dollar" Kasus Dollar séjén = dollar & amp; "Dolar" Tungtung Pilih Pilih Case cents Case "" cents = "jeung No cents" Case "Hiji" cents = "jeung Hiji cent" Case Séjén cents = "jeung" & amp; cents & amp; " Cents "Tungtung Pilih SpellNumber = dollar & amp; Cents End Function Function GetHundreds(ByVal MyNumber) Hasil Taram Salaku String Lamun Val(MyNumber) = 0 Lajeng Kaluar Fungsi MyNumber = Katuhu ( "000" & MyNumber, 3) ' Ngarobah ratusan tempat. Lamun Mid (MyNumber, 1, 1) "0" Lajeng hasilna = GetDigit (Mid (MyNumber, 1, 1)) & amp; " Saratus " Tamat Lamun ' Ngarobah puluhan jeung hiji tempat. Lamun Pertengahan (MyNumber, 2, 1) "0" Lajeng hasilna = hasilna & amp; GetTens (Mid (MyNumber, 2)) Lain hasilna = hasil & amp; GetDigit (Mid (MyNumber, 3)) Tungtung Lamun GetHundreds = Hasil Fungsi Tungtung Fungsi GetTens (TensText) Taram Hasil Salaku String Result = "" ' Null kaluar nilai fungsi samentara. Lamun Val(Kénca(TensText, 1)) = 1 Lajeng ' Lamun nilai antara 10-19... Pilih Case Val(TensText) Kasus 10: Hasil = "Sapuluh" Kasus 11: Hasil = "Sabelas" Kasus 12: Hasil = "Dua belas " Kasus 13: Hasil = "Tilu belas" Kasus 14: Hasil = "Opat Belas" Kasus 15: Hasil = "Lima Belas" Kasus 16: Hasil = "Genep Belas" Kasus 17: Hasil = "Tujuh Belas" Kasus 18: Hasil = "Dalapan Belas" Kasus 19: Hasil = "Salapan Belas" Case Lain Tungtung Pilih Lain ' Lamun nilai antara 20-99... Pilih Case Val(Kénca(TensText, 1)) Kasus 2: Hasil = "Dua Puluh" Kasus 3: Hasil = "Tilu Puluh" Kasus 4: Hasil = "Opat Puluh" Kasus 5: Hasil = "Lima Puluh" Kasus 6: Hasil = "Sawidak" Kasus 7: Hasil = "Tujuh Puluh" Kasus 8: Hasil = "Dalapan Puluh" Kasus 9: Hasil = "Salapan Puluh" Kasus Lain Tungtung Pilih Hasil = Hasil & amp; GetDigit _ (Katuhu(TensText, 1)) ' Meunangkeun hiji tempat. Tungtung Lamun GetTens = Hasil Fungsi Tungtung Fungsi GetDigit (Angka) Pilih CaseVal(Angka) Kasus 1: GetDigit = "Hiji" Kasus 2: GetDigit = "Dua" Kasus 3: GetDigit = "Tilu" Kasus 4: GetDigit = "Opat" Kasus 5: GetDigit = "Lima" Kasus 6: GetDigit = " Genep" Kasus 7: GetDigit = "Tujuh" Kasus 8: GetDigit = "Dalapan" Kasus 9: GetDigit = "Salapan" Kasus Sejenna: GetDigit = "" End Select End Function

6. Pencét Ctrl+S pikeun nyimpen workbook diropéa.

   Anjeun kedah nyimpen deui buku kerja anjeun. Nalika anjeun nyobian nyimpen buku kerja nganggo makro anjeun bakal nampi pesen " Fitur di handap ieu teu tiasa disimpen dina buku kerja bébas makro "

   

   Klik No. Nalika anjeun ningali dialog anyar, milih Simpen salaku pilihan. Dina widang " Simpen salaku tipe " pilih pilihan " Buku kerja macro-diaktipkeun Excel ".

   

Paké makro SpellNumber dina lembar kerja anjeun

Ayeuna anjeun tiasa nganggo fungsi SpellNumber dina dokumén Excel anjeun. Lebetkeun =SpellNumber(A2) kana sél dimana anjeun kedah nyerat nomer dina kecap. Di dieu A2 nyaéta alamat sél sareng jumlah atanapi jumlah.

Di dieu anjeun bisa nempo hasilna:

Voila!

Gancang nyalin fungsi SpellNumber ka sél séjén.

Lamun anjeun kudu ngarobah sakabéh tabel, teu ngan 1 sél, nempatkeun kursor mouse anjeun ka pojok katuhu handap sél jeung rumus nepi ka robah jadi cross hideung leutik:

Klik-kénca sarta sered ka sakuliah kolom pikeun ngeusian rumus. Leupaskeun tombol pikeun ningali hasilna:

Catetan. Puntenémut yén upami anjeun nganggo SpellNumber sareng tautan ka sél anu sanés, jumlah anu ditulis bakal diropéa unggal waktos nomer dina sél sumber dirobih.

Anjeun ogé tiasa ngalebetkeun nomer langsung kana fungsina, pikeun conto, =SpellNumber(29.95) (29.95 - tanpa tanda petik jeung tanda Dollar).

Kalemahan ngagunakeun makro pikeun ngeja angka dina Excel

Mulai, anjeun kudu nyaho VBA pikeun ngarobah kodeu nurutkeun anjeun. kabutuhan. Perlu nempelkeun kodeu pikeun unggal buku kerja, dimana anjeun badé ngarobih. Upami teu kitu, anjeun kedah ngadamel file citakan sareng makro sareng ngonpigurasikeun Excel pikeun ngamuat file ieu dina unggal ngamimitian.

Karugian utama ngagunakeun makro nyaéta upami anjeun ngirim buku kerja ka batur, jalma ieu moal tingali téks iwal makro diwangun kana workbook nu. Sareng upami éta diwangun, aranjeunna bakal nampi peringatan yén aya makro dina buku kerja.

Eja angka kana kecap maké tambihan husus

Pikeun pamaké Excel anu kudu gancang ngeja jumlah tapi teu boga waktu pikeun neuleuman VBA atawa manggihan workarounds, urang nyieun alat husus. anu tiasa gancang ngalakukeun konversi jumlah-ka-kecap pikeun sababaraha mata uang populér. Mangga pendak sareng tambihan Nomer Éja anu kalebet sareng sékrési panganyarna tina Suite Ultimate kami pikeun Excel.

Salain geus siap dipake, alat ieu bener-bener fleksibel dina ngarobah jumlah jadi téks:

• Anjeun bisa milih salah sahijimata uang di handap ieu: USD, EUR, GBP, BIT, AUD.
• Eja bagian pecahan dina cent, pennies, atawa bitcents.
• Pilih sagala hurup téks pikeun hasilna: hurup leutik, HURUF UPPER , Title Case, atawa Kalimah leutik.
• Eja bagian desimal ku sababaraha cara.
• Asupkeun atawa hapus enol cents.

Add-in ngarojong sagala modern versi kaasup Excel 365, Excel 2029, Excel 2016, Excel 2013, jeung Excel 2010. Mangga ngarasa Luncat ka ngajajah kamampuhan sejenna dina kaca imah produk nu numbu di luhur.

Jeung ayeuna, hayu urang tingali utilitas ejaan angka ieu dina aksi. :

1. Pilih sél kosong pikeun hasilna.
2. Dina tab Ablebits , dina grup Utilitas , klik Ejaan Nomer .
3. Dina jandela dialog Spill Number , konfigurasikeun hal-hal ieu:
   • Pikeun kotak Pilih nomer anjeun , pilih sél nu ngandung jumlah nu rék ditulis salaku téks.
   • Sebutkeun nu dipikahoyong ayeuna , huruf leutik jeung cara desimal bagian jumlahna kudu dieja.
   • Tetepkeun naha bakal kaasup nol cents atawa henteu.
   • Pilih naha rék nyelapkeun hasil salaku nilai atawa rumus.
4. Di handapeun jandela dialog, tilik hasilna. Upami anjeun resep kana cara nomer anjeun ditulis, klik Eja . Upami teu kitu, cobian setélan anu béda.

Potret layar di handap nunjukkeun standarpilihan jeung nomer dieja dina B2. Punten perhatikeun rumus (langkung tepatna, fungsi anu ditetepkeun ku pangguna) dina bar rumus:

Sareng ieu mangrupikeun demonstrasi gancang kumaha mata uang sanés tiasa diéja:

Tip sareng catetan:

• Kusabab tambihan Nomer Éja dirancang pikeun nanganan kasus pamakean kahirupan nyata sapertos invoice sareng dokumén kauangan sanés, éta ngan ukur tiasa ngarobih hiji angka dina hiji waktu.
• Pikeun ngeja kolom angka , selapkeun rumus dina sél kahiji, terus salin rumusna ka handap.
• Lamun aya kasempetan. data sumber anjeun bisa robah dina mangsa nu bakal datang, leuwih sae pikeun nyelapkeun hasil salaku rumus , jadi eta otomatis ngamutahirkeun salaku robah angka aslina.
• Nalika milih hasil salaku rumus pilihan, a custom fungsi-diartikeun pamaké (UDF) diselapkeun. Upami anjeun badé ngabagikeun buku kerja anjeun ka jalma anu teu acan dipasang Ultimate Suite, émut pikeun ngagentos rumus sareng nilai sateuacan ngabagi.

Konversi sabalikna - kecap Inggris kana angka

Terus terang , Abdi teu tiasa ngabayangkeun naha anjeun bisa butuh eta. Bisi wae... :)

Tétéla yén Excel MVP, Jerry Latham, nyiptakeun fungsi Excel User Define (UDF) sapertos WordsToDigits . Éta ngarobah kecap-kecap basa Inggris deui kana angka.

Anjeun tiasa ngaunduh buku kerja WordsToDigits Jerry pikeun ningali kodeu UDF. Di dieu anjeun ogé bakal mendakan conto kumaha cara ngagunakeun étafungsi.

Anjeun tiasa ningali kumaha fungsina dianggo dina lambaran " Entri Sampel ", dimana anjeun ogé tiasa ngalebetkeun conto anjeun nyalira. Upami anjeun badé nganggo WordsToDigits dina dokumén anjeun, punten terang yén fungsi ieu ngagaduhan larangan. Contona, éta henteu mikawanoh fraksi anu diasupkeun dina kecap. Anjeun bakal mendakan sadaya detil dina lambaran " Inpormasi ".