Dalam artikel ini saya akan menunjukkan dua kaedah yang cepat dan bebas kos untuk mengubah nilai berangka ke dalam kata-kata bahasa Inggeris dalam Excel 2019, 2016, 2013, dan edisi lain.

Microsoft Excel adalah alat yang sangat baik untuk melakukan pelbagai pengiraan. Pada mulanya direka untuk menguruskan dataset yang luas, ia juga memudahkan penciptaan SWIFT rekod perakaunan seperti invois, penilaian, atau lembaran imbangan.

Dalam dokumen pembayaran rasmi, penting untuk menduplikasi nilai angka dengan bentuk perkataan yang sepadan. Nombor yang ditaip lebih sukar untuk merosakkan dengan berbanding dengan yang ditulis tangan. Penipu mungkin mengubah 8000 untuk muncul sebagai 3000, sedangkan mengubah "tiga" menjadi "lapan" hampir tidak dapat dikesan.

Oleh itu, apa yang anda perlukan bukan sekadar menukar nombor kepada kata-kata dalam Excel (misalnya, 123.45 hingga "seratus dua puluh tiga, empat puluh lima"), tetapi juga menyatakan jumlah seperti $ 29.95 sebagai "dua puluh sembilan dolar dan sembilan puluh sembilan sen," atau pound dan pence untuk GBP, Euro dan Eurocents untuk Eurc.

Malah versi terkini Excel tidak mempunyai ciri terbina dalam untuk ejaan nombor, apalagi versi lama. Namun, ini adalah ketika Excel benar -benar cemerlang. Anda sentiasa dapat meningkatkan fungsinya menggunakan formula dalam semua kombinasi mereka, makro VBA, atau tambahan pihak ketiga.

Di bawah anda akan menemui dua pendekatan untuk menukar angka menjadi perkataan

Nota. Jika anda mencari penukaran nombor-ke-teks, bermakna anda mahu Excel merawat nombor anda sebagai teks, itu adalah perkara yang sedikit berbeza. Untuk tujuan ini, anda boleh menggunakan fungsi teks atau kaedah lain yang digariskan dalam cara menukar nombor ke teks dalam Excel.

Menggunakan makro VBA SpellNumber untuk menukar nombor ke perkataan

Seperti yang saya nyatakan sebelum ini, Microsoft tidak menggabungkan alat untuk tugas ini. Walau bagaimanapun, apabila menyedari berapa banyak pengguna yang memerlukannya, mereka membangun dan menerbitkan makro VBA khusus di laman web mereka. Makro ini melakukan apa namanya, SpellNumber, menyiratkan. Semua makro lain yang saya hadapi diperolehi dari kod Microsoft.

Anda boleh mencari makro yang dirujuk sebagai "Formula Spellnumber." Walau bagaimanapun, ia bukan formula tetapi fungsi makro, lebih khusus, fungsi pengguna Excel yang ditakrifkan (UDF).

Pilihan SpellNumber boleh menyatakan dolar dan sen. Jika anda memerlukan mata wang yang berbeza, anda boleh menggantikan " dolar " dan " sen " dengan nama mata wang pilihan anda.

Jika anda tidak biasa dengan VBA, di bawah ini anda akan dapati salinan kod. Jika anda masih memilih untuk tidak atau tidak mempunyai masa untuk bekerja melalui ini, jangan ragu untuk menggunakan penyelesaian ini.

1. Buka buku kerja di mana anda ingin menguraikan nombor.

2. Tekan Alt F11 untuk membuka tetingkap editor Visual Basic.

3. Jika berbilang buku dibuka, pastikan buku kerja yang dikehendaki aktif dengan menyemak senarai projek di sudut kiri atas editor (salah satu elemen buku kerja diserlahkan dengan biru).

4. Dalam menu editor pergi ke Insert -> Module .

5. Anda harus melihat tetingkap bernama Yourbook - Module1. Pilih semua kod dalam bingkai di bawah dan tampalkannya ke dalam tetingkap ini.

   Opsyen fungsi utama 'fungsi utama spellnumber (byval myNumber) redi, sen, temps decimalplace, mengira tempat redim (9) sebagai tempat rentetan (2) = "ribu" tempat (3) = "juta" tempat (4) = "bilion" tempat (5) = "trilion" GetTens (kiri (pertengahan (myNumber, decimalplace 1) & _ "00", 2)) myNumber = trim (myNumber, decimalplace - 1)) akhir jika count = 1 lakukan sementara myNumber "" temp = geth ratus (myNumber, 3)) Kiri (myNumber, len (myNumber) - 3) lain myNumber = "" akhir jika kiraan = kiraan 1 gelung pilih kes dolar kes "" dolar = "tidak ada dolar" satu "satu dolar =" satu dolar "kes lain dolar =" dolar " SpellNumber = Fungsi Fungsi Akhir Dolar & Cents Gethirss (Byval MyNumber) Hasil Dim sebagai Rentetan Jika Val (MyNumber) = 0 Kemudian keluar fungsi MyNumber = kanan ("000" & myNumber, 3) 'Tukar tempat beratus -ratus. Jika pertengahan (myNumber, 1, 1) "0" maka hasilnya = getDigit (pertengahan (myNumber, 1, 1)) & "Hundred" akhir jika 'menukar puluhan dan tempat. Jika pertengahan (myNumber, 2, 1) "0" maka hasil = hasil & getTens (pertengahan (myNumber, 2)) hasil lain = hasil & getDigit (pertengahan (myNumber, 3)) akhir jika gethus hundreds = hasil fungsi akhir fungsi getTens (TenStext) Jika val (kiri (tenstext, 1)) = 1 maka 'jika nilai antara 10-19 ... pilih kes val (tenstext) kes 10: hasil = "sepuluh" kes 11: hasil = "sebelas" kes 12: hasil = "dua belas" kes 13: hasil = "tiga belas" kes 14: hasil = "empat 19: hasil = "sembilan belas" kes lain akhir pilih lain 'jika nilai antara 20-99 ... pilih kes val (kiri (tenstext, 1)) kes 2: hasil = "dua puluh" kes 3: hasil = "tiga" kes 4: hasil = "empat puluh" kes 5: hasil = "lima" _ (Kanan (TenStext, 1)) 'Ambil tempat. Akhir jika getTens = fungsi akhir fungsi fungsi getDigit (digit) Pilih kes val (digit) Kes 1: getDigit = "one" kes 2: getDigit = "two" case 3: getDigit = "tiga" kes 4: getDigit = "empat" kes 5: getDigit = "lima" kes 6: GetDigit = "sembilan" kes lain: getDigit = "" Fungsi akhir pilih akhir

6. Tekan Ctrl S untuk menyimpan buku kerja yang dikemas kini. Anda perlu menyusun semula buku kerja anda. Apabila anda cuba menyimpan buku kerja dengan makro, anda akan menerima mesej " Ciri-ciri berikut tidak dapat disimpan dalam buku kerja bebas makro "

   

   Klik No. Apabila anda menemui dialog baru, pilih pilihan Simpan Sebagai. Dalam medan " Simpan As Type " Pilih pilihan " Excel Buku Kerja Macro-Enabled ".

   

Memohon makro Spellnumber di lembaran kerja anda

Sekarang anda boleh menggunakan fungsi Spellnumber dalam dokumen Excel anda. Masukkan =SpellNumber(A2) ke

Atas ialah kandungan terperinci Cara menukar nombor ke perkataan dalam excel. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!