Loncat ke daftar isi utama

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 Sub

3. tekan F5 kunci untuk menjalankan kode, sekarang angkanya telah diubah menjadi kata-kata.
nomor doc ke kata 1

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.
nomor doc ke kata 1

2. Pada dialog popping, periksa Inggris dan Tidak dikonversi ke Mata Uang Pilihan.
nomor doc ke kata 1

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!

Selami fitur-fitur yang disorot di bawah atau klik di sini untuk menjelajahi kekuatan penuh Kutools for Word.

πŸ“˜ Penguasaan Dokumen: Halaman Terpisah  /  Gabungkan Dokumen  /  Ekspor Pilihan dalam Berbagai Format (PDF/TXT/DOC/XLSX)  /  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 MudahSapu Spasi Ekstra  /  Bagian Istirahat  /   Semua Header  /  Teks box  /  Hyperlink  /  Untuk alat penghapus lainnya, kunjungi Grup Hapus kami

βž• Sisipan Kreatif: Menyisipkan Seribu Pemisah  /  Kotak Centang  /  Tombol Radio  /  Kode QR  /  barcode  /  Tabel Garis Diagonal  /  Keterangan Persamaan  /  Keterangan gambar  /  Keterangan Tabel  /  Banyak Gambar  /  Temukan lebih lanjut di Grup Sisipkan kami

πŸ” Pilihan Presisi: Tentukan halaman tertentu  /  tabel  /  bentuk  /  paragraf judul  /  Navigasi dengan mudah menggunakan Grup Pilihan kami

⭐ Peningkatan Bintang: Navigasi dengan cepat ke lokasi mana pun  /  menyisipkan teks berulang secara otomatis  /  beralih antar jendela dokumen dengan mulus  /  11 Alat Konversi ...

Ubah tugas Word Anda dengan Kutools. πŸ‘‰ Unduh dengan uji coba 30 hari Sekarang πŸš€.

 
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations