Bagaimana cara mengubah angka menjadi kata di dokumen Word?
Artikel ini berbicara tentang metode untuk mengubah angka menjadi kata-kata bahasa Inggris di dokumen Word, silakan lanjutkan untuk melihat detailnya jika Anda tertarik.
Ubah angka menjadi kata-kata bahasa Inggris dengan VBA
Ubah angka menjadi kata-kata bahasa Inggris di Excel dengan Kutools for Excel
Ubah angka menjadi kata-kata bahasa Inggris dengan VBA
1. Pilih nomor yang ingin Anda ubah menjadi kata-kata, tekan Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. klik Menyisipkan > Modul, dan salin kode di bawah ini dan tempelkan ke Modul Script.
VBA: Mengonversi angka menjadi kata
Sub ConvertNumberToWord()
'UpdatebyExtendoffice20181010
Dim xDigit As Double
Dim xBuff As String
On Error Resume Next
Selection.MoveLeft wdWord, 1, wdMove
Selection.MoveRight wdWord, 1, wdExtend
xDigit = Val(Trim(Selection.Text))
If xDigit = 0 And Str(xDigit) <> Trim(Selection.Text) Then Exit Sub
If xDigit > 999999 Then
If xDigit <= 999999999 Then
xBuff = Trim(Int(Str(xDigit / 1000000)))
Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + xBuff + " \* CardText", True
Selection.MoveLeft wdWord, 1, wdExtend
xBuff = Selection.Text & " million "
xDigit = Right(Str(xDigit), 6)
End If
End If
If xDigit <= 999999 Then
Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + Str(xDigit) + " \* CardText", True
Selection.MoveLeft wdWord, 1, wdExtend
xDigit = xBuff & Selection.Text
Selection.TypeText xDigit + " "
Else
MsgBox "Number too large", vbOKOnly, "Kutool for Word"
End If
End Sub3. tekan F5 kunci untuk menjalankan kode, sekarang angkanya telah diubah menjadi kata-kata.
Note： Kode hanya bekerja di satu nomor setiap kali.
Ubah angka menjadi kata-kata bahasa Inggris dengan Kutools for Excel
Jika Anda ingin mengonversi angka menjadi kata di lembar Excel, ada alat praktis - Angka ke Kata dari Kutools for Excel, yang dapat mengonversi angka menjadi kata-kata bahasa Inggris atau Cina, atau mengonversi angka ke mata uang Inggris atau mata uang Cina.
| Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. |
Setelah pemasangan gratis Kutools for Excel, lakukan seperti di bawah ini:
1. Pilih sel yang ingin Anda ubah angka menjadi kata, lalu klik Kutools > Konten > Angka ke Kata.
2. Pada dialog popping, periksa Inggris dan Tidak dikonversi ke Mata Uang Pilihan.
3. klik Ok or Mendaftar, nomor yang dipilih akan diubah menjadi kata-kata.
Alat Produktivitas Kantor Terbaik
Kutools for Word - Tingkatkan Pengalaman Kata Anda dengan Over 100 Fitur Luar Biasa!
🤖 Asisten AI Kutools: Ubah tulisan Anda dengan AI - Hasilkan Konten / Menulis Ulang Teks / Meringkas Dokumen / Menanyakan Informasi berdasarkan Dokumen, semuanya dalam Word
📘 Penguasaan Dokumen: Halaman Terpisah / Gabungkan Dokumen / Ekspor Pilihan dalam Berbagai Format (PDF/TXT/DOC/HTML...) / Konversi Batch ke PDF / Ekspor Halaman sebagai Gambar / Cetak Banyak File sekaligus...
✏ Pengeditan Isi: Temukan dan Ganti Batch di Banyak File / Ubah Ukuran Semua Gambar / Ubah Urutan Baris dan Kolom Tabel / Ubah Tabel menjadi Teks...
🧹 Bersih dengan Mudah: Menyapu Spasi Ekstra / Bagian Istirahat / Semua Header / Teks box / Hyperlink / Untuk alat penghapus lainnya, kunjungi kami Hapus Grup...
➕ Sisipan Kreatif: Memasukkan Seribu Pemisah / Kotak Centang / Tombol Radio / Kode QR / barcode / Tabel Garis Diagonal / Keterangan Persamaan / Keterangan gambar / Keterangan Tabel / Banyak Gambar / Temukan lebih lanjut di Sisipkan Grup...
🔍 Pilihan Presisi: Tepat halaman tertentu / tabel / bentuk / paragraf judul / Tingkatkan navigasi dengan lebih Pilih fitur...
⭐ Peningkatan Bintang: Navigasi dengan cepat ke lokasi mana pun / menyisipkan teks berulang secara otomatis / beralih antar jendela dokumen dengan mulus / 11 Alat Konversi...
