Mengonversi angka menjadi kata

Penting: Artikel ini adalah terjemahan mesin, lihat penafian. Temukan versi bahasa Inggris artikel di sini sebagai rujukan Anda.

Excel 2013 dan Excel 2016 tidak memiliki fungsi default yang menampilkan angka sebagai kata bahasa Inggris dalam sel lembar bentang, tapi Anda bisa menambahkan kapabilitas ini dengan menempelkan kode fungsi SpellNumber ke lembar modul. Fungsi ini memungkinkan Anda mengubah jumlah dolar dan sen kata-kata.

Jika Anda ingin mengonversi nilai numerik ke format teks tanpa menampilkannya sebagai kata, gunakan fungsi TEXT sebagai gantinya.

Di artikel ini

Membuat fungsi SpellNumber untuk mengonversi bilangan ke kata

  1. Gunakan pintasan keyboard, Alt + F11 untuk membuka Visual Basic Editor.

    Catatan: Anda juga bisa mengakses Visual Basic Editor dengan memperlihatkan tab pengembang di pita Anda.

  2. Klik sisipkan tab, dan klik modul.

    Pada menu sisipkan, klik modul.
  3. Salin garis kode berikut.

    Catatan: Dikenal sebagai fungsi makro, kode ini Mengotomatiskan tugas mengonversi angka menjadi teks seluruh lembar bentang Anda.

    Opsi eksplisit

    ' Fungsi utama

    Fungsi SpellNumber (ByVal MyNumber)

    Dim dolar, sen, Temp

    Dim DecimalPlace, hitungan

    ReDim Place(9) sebagai String

    Place(2) = "Seribu"

    Place(3) = "juta"

    Place(4) = "Miliar"

    Place(5) = "triliun"

    ' String yang mewakili jumlah.

    MyNumber = Trim(Str(MyNumber))

    ' Posisi tempat desimal 0 jika tidak ada.

    DecimalPlace = InStr (MyNumber, ".")

    ' Konversi sen dan atur MyNumber ke jumlah dolar.

    Jika DecimalPlace > 0 lalu

    Sen = GetTens (kiri (Mid (MyNumber, DecimalPlace + 1) & _ "00", 2))

    MyNumber = Trim (kiri (MyNumber, DecimalPlace - 1))

    Mengakhiri jika

    Hitungan = 1

    Saat MyNumber <> ""

    Temp = GetHundreds (kanan (MyNumber, 3))

    Jika Temp <> "" lalu dolar = Temp & Place(Count) & dolar

    Jika Len(MyNumber) > 3 lalu

    MyNumber = kiri (MyNumber, Len(MyNumber) - 3)

    Else

    MyNumber = ""

    Mengakhiri jika

    Hitungan = hitungan + 1

    Pengulangan

    Pilih huruf dolar

    Huruf ""

    Dolar = "Tanpa dolar"

    Huruf "Satu"

    Dolar = "Satu dolar"

    Hal lain

    Dolar = dolar & "Dolar"

    Pilih berakhir

    Pilih huruf sen

    Huruf ""

    Sen = "dan tidak ada sen"

    Huruf "Satu"

    Sen = "dan satu sen"

    Hal lain

    Sen = "dan" & sen & "Sen"

    Pilih berakhir

    SpellNumber = dolar & sen

    Fungsi akhir

    ' Mengonversi angka dari 100 999 ke teks

    Fungsi GetHundreds (ByVal MyNumber)

    Dim hasil sebagai String

    Jika Val(MyNumber) = 0 lalu keluar fungsi

    MyNumber = kanan ("000" & MyNumber, 3)

    ' Konversi ratusan tempat.

    Jika Mid (MyNumber, 1, 1) <> "0" lalu

    Hasil = GetDigit (Mid (MyNumber, 1, 1)) & "seratus"

    Mengakhiri jika

    ' Mengonversi tempat rantai dan orang-orang.

    Jika Mid (MyNumber, 2, 1) <> "0" lalu

    Hasil = hasil & GetTens (Mid (MyNumber, 2))

    Else

    Hasil = hasil & GetDigit (Mid (MyNumber, 3))

    Mengakhiri jika

    GetHundreds = hasil

    Fungsi akhir

    ' Mengonversi angka dari 10 sampai 99 teks.

    Fungsi GetTens(TensText)

    Dim hasil sebagai String

    Hasil = "" ' Null keluar sementara fungsi nilai.

    Jika Val (kiri (TensText, 1)) = 1 lalu ' jika nilai antara 10-19...

    Pilih huruf Val(TensText)

    Kasus 10: Menghasilkan = "Sepuluh"

    Kasus 11: Menghasilkan = "Sebelas"

    Kasus 12: Menghasilkan = "Dua belas"

    Kasus 13: Menghasilkan = "Tiga belas"

    Kasus 14: Menghasilkan = "14"

    Kasus 15: Menghasilkan = "Lima belas"

    Kasus 16: Menghasilkan = "16"

    Kasus 17: Menghasilkan = "17 tahun"

    Kasus 18: Menghasilkan = "18 tahun"

    Kasus 19: Menghasilkan = "Sembilan belas"

    Hal lain

    Pilih berakhir

    Lain ' jika nilai antara 20-99...

    Pilih huruf Val (kiri (TensText, 1))

    Kasus 2: Menghasilkan = "Dua puluh"

    Kasus 3: Menghasilkan = "Tiga"

    Kasus 4: Menghasilkan = "Empat"

    Kasus 5: Menghasilkan = "Lima puluh"

    Kasus 6: Menghasilkan = "Enam puluh"

    Kasus 7: Menghasilkan = "Tujuh puluh"

    Kasus 8: Menghasilkan = "Delapan puluh"

    Kasus 9: Menghasilkan = "Sembilan puluh"

    Hal lain

    Pilih berakhir

    Hasil = hasil & GetDigit _

    (Kanan (TensText, 1)) ' Mengambil yang tempat.

    Mengakhiri jika

    GetTens = hasil

    Fungsi akhir

    ' Mengonversi angka dari 1 sampai 9 teks.

    Fungsi GetDigit(Digit)

    Pilih huruf Val(Digit)

    Kasus 1: GetDigit = "Satu"

    Kasus 2: GetDigit = "Dua"

    Kasus 3: GetDigit = "Tiga"

    Kasus 4: GetDigit = "Empat"

    Kasus 5: GetDigit = "Lima"

    Kasus 6: GetDigit = "Enam"

    Kasus 7: GetDigit = "Tujuh"

    Kasus 8: GetDigit = "Delapan"

    Kasus 9: GetDigit = "Sembilan"

    Huruf yang lain: GetDigit = ""

    Pilih berakhir

    Fungsi akhir

  4. Tempelkan baris kode ke Module1 (kode) kotak.

    Kode ditempelkan di Module1 kotak (kode).
  5. Klik File, dan klik tutup dan kembali ke Microsoft Excel. Fungsi SpellNumber kini siap untuk digunakan.

    Catatan: Fungsi ini berfungsi hanya untuk file Excel saat ini Anda buka. Untuk menggunakan fungsi ini di buku kerja Excel lain, Anda harus mengulangi langkah-langkah untuk menyalin dan menempelkan kode di file tersebut.

Atas halaman

Menggunakan fungsi SpellNumber dalam sel individual

  1. Ketikkan rumus = SpellNumber(nilai) ke dalam sel tempat Anda ingin menampilkan angka ditulis, mengganti nilai dengan nomor Anda pilihan.

  2. Pada keyboard Anda, tekan Enter.

    Misalnya, jika Anda mengetikkan =SpellNumber(22.50), sel hendaknya membaca Dua puluh dolar dan lima puluh sen.

    Tips: Untuk mengonversi angka menjadi teks dalam sel yang terpisah, ganti nilai numerik dengan referensi sel dalam rumus SpellNumber. Sebagai contoh, ketik =SpellNumber(A1) untuk menampilkan nilai ditulis sel A1.

Atas halaman

Menyimpan buku kerja fungsi SpellNumber Anda

Excel tidak bisa menyimpan buku kerja dengan fungsi makro dalam format standar bebas makro buku kerja. Jika Anda mengklik File > Simpan. Kotak dialog proyek VB terbuka. Klik tidak.

Di kotak dialog proyek VB, klik tidak.

Anda bisa menyimpan file Anda sebagai Templat Excel makro aktif untuk menyimpan file Anda dalam format saat ini.

  1. Klik File > Simpan Sebagai.

  2. Klik menu turun bawah Simpan sebagai tipe , dan pilih Excel Macro-Enabled Template.

    Pilih Templat makro-difungsikan Excel.
  3. Klik Simpan.

Atas halaman

Catatan: Penafian Terjemahan Mesin: Artikel ini telah diterjemahan oleh sistem komputer tanpa campur tangan manusia. Microsoft menawarkan terjemahan mesin ini untuk membantu pengguna yang bukan penutur bahasa Inggris agar dapat menikmati konten tentang produk, layanan, dan teknologi Microsoft. Karena artikel ini diterjemahkan oleh mesin, mungkin akan terdapat kesalahan kosa kata, sintaksis, atau tata bahasa.

Lihat Juga

Fungsi TEXT

Kembangkan keterampilan Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung ke Office Insiders

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×