Menukar nombor kepada perkataan

Penting: Artikel ini diterjemahkan oleh mesin, lihatlah notis penafian. Sila dapatkan versi Bahasa Inggeris artikel ini di sini sebagai rujukan anda

Excel 2013 dan Excel 2016 tidak mempunyai fungsi lalai yang memaparkan nombor sebagai Perkataan Inggeris dalam sel hamparan, tetapi anda boleh menambah keupayaan ini dengan menampal kod fungsi SpellNumber ke dalam lembaran modul. Fungsi ini membolehkan anda menukar amaun dolar dan peratus perkataan.

Jika anda ingin menukar nilai angka kepada format teks tanpa memaparkannya sebagai perkataan, Gunakan fungsi TEXT sebaliknya.

Dalam artikel ini

Mencipta fungsi SpellNumber untuk menukar nombor kepada perkataan

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

    Nota: Anda juga boleh mencapai Editor Visual Basic dengan menunjukkan tab pembangun dalam reben anda.

  2. Klik tab selitkan , dan klik modul.

    Pada menu selitkan, klik modul.
  3. Salin baris kod berikut.

    Nota: Dikenali sebagai fungsi makro, Kod ini secara automatik tugas menukar nombor kepada teks di seluruh hamparan anda.

    Opsyen eksplisit

    ' Fungsi utama

    Fungsi SpellNumber (ByVal MyNumber)

    Dim Temp dolar, sen,

    DecimalPlace Dim, kiraan

    ReDim Place(9) sebagai rentetan

    Place(2) = "Ribu"

    Place(3) = "juta"

    Place(4) = "Bilion"

    Place(5) = "trilion"

    ' Rentetan perwakilan jumlah.

    MyNumber = Trim(Str(MyNumber))

    ' Kedudukan tempat perpuluhan 0 jika tiada.

    DecimalPlace = InStr (MyNumber, ".")

    ' Menukar sen dan set MyNumber amaun dolar.

    Jika DecimalPlace > 0 kemudian

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

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

    Menamatkan jika

    Kiraan = 1

    Semasa MyNumber <> ""

    Temp = GetHundreds (kanan (MyNumber, 3))

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

    Jika Len(MyNumber) > 3 kemudian

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

    Lagi

    MyNumber = ""

    Menamatkan jika

    Count = Count + 1

    Gelung

    Pilih huruf dolar

    Huruf ""

    Dolar = "Tiada dolar"

    Huruf "Satu"

    Dolar = "Satu dolar"

    Huruf yang lain

    Dolar = dolar & "Dolar"

    Pilih tamat

    Pilih huruf sen

    Huruf ""

    Sen = "dan tiada sen"

    Huruf "Satu"

    Sen = "dan satu peratus"

    Huruf yang lain

    Sen = "dan" & sen & "Sen"

    Pilih tamat

    SpellNumber = dolar & sen

    Fungsi akhir

    ' Menukar nombor daripada 100-999 teks

    Fungsi GetHundreds (ByVal MyNumber)

    Dim hasil sebagai rentetan

    Jika Val(MyNumber) = 0 keluar kemudian fungsi

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

    ' Tukar tempat ratusan.

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

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

    Menamatkan jika

    ' Tukar tempat puluhan dan pula.

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

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

    Lagi

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

    Menamatkan jika

    GetHundreds = hasil

    Fungsi akhir

    ' Menukar nombor daripada 10 hingga 99 teks.

    Fungsi GetTens(TensText)

    Dim hasil sebagai rentetan

    Hasil = "" ' nol keluar nilai fungsi sementara.

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

    Pilih huruf Val(TensText)

    Kes 10: Hasil = "Sepuluh"

    Kes 11: Hasil = "Sebelas"

    Kes 12: Hasil = "Dua belas"

    Kes 13: Hasil = "Tiga belas"

    Kes 14: Hasil = "Empat belas"

    Kes 15: Hasil = "Lima belas"

    Kes 16: Hasil = "Enam belas"

    Kes 17: Hasil = "Tujuh belas"

    Kes 18: Hasil = "Lapan belas"

    Kes 19: Hasil = "Nineteen"

    Huruf yang lain

    Pilih tamat

    Lagi ' jika nilai antara 20-99...

    Pilih huruf Val (kiri (TensText, 1))

    Kes 2: Hasil = "Dua puluh"

    Kes 3: Hasil = "Tiga puluh"

    Kes 4: Hasil = "40"

    Kes 5: Hasil = "Lima puluh"

    Kes 6: Hasil = "Enam puluh"

    Kes 7: Hasil = "70"

    Kes 8: Hasil = "Sebanyak-80"

    Kes 9: Hasil = "90"

    Huruf yang lain

    Pilih tamat

    Hasil = _ hasil & GetDigit

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

    Menamatkan jika

    GetTens = hasil

    Fungsi akhir

    ' Menukar nombor daripada 1 kepada 9 teks.

    Fungsi GetDigit(Digit)

    Pilih huruf Val(Digit)

    Kes 1: GetDigit = "Satu"

    Kes 2: GetDigit = "Dua"

    Kes 3: GetDigit = "Tiga"

    Kes 4: GetDigit = "Empat"

    Kes 5: GetDigit = "Lima"

    Kes 6: GetDigit = "Enam"

    Kes 7: GetDigit = "Tujuh"

    Kes 8: GetDigit = "Lapan"

    Kes 9: GetDigit = "Sembilan"

    Huruf yang lain: GetDigit = ""

    Pilih tamat

    Fungsi akhir

  4. Tampal kod ke dalam baris yang modul1 (Kod) kotak.

    Kod yang ditampalkan dalam modul1 pada kotak (Kod).
  5. Klik fail, dan klik tutup dan kembali ke Microsoft Excel. Fungsi SpellNumber ialah kini sedia untuk digunakan.

    Nota: Fungsi ini berfungsi hanya untuk fail Excel semasa yang anda buka. Untuk menggunakan fungsi ini dalam buku kerja Excel yang lain, anda mesti ulang langkah untuk Salin dan tampal kod ke dalam fail tersebut.

Halaman atas

Menggunakan fungsi SpellNumber dalam sel individu

  1. Taipkan formula = SpellNumber(nilai) ke dalam sel yang anda ingin memaparkan nombor bertulis, menggantikan nilai dengan bilangan pilihan anda.

  2. Pada papan kekunci anda, tekan Enter.

    Contohnya, jika anda menaip =SpellNumber(22.50), sel harus membaca Dua puluh dolar dan lima puluh sen.

    Petua: Untuk menukar nombor kepada teks dalam sel berasingan, gantikan nilai berangka dengan rujukan sel dalam SpellNumber formula. Contohnya, taipkan =SpellNumber(A1) untuk memaparkan nilai bertulis sel A1.

Halaman atas

Menyimpan buku kerja fungsi SpellNumber anda

Excel tidak boleh menyimpan buku kerja dengan fungsi makro dalam format standard buku kerja makro bebas. Jika anda klik fail > Simpan. Kotak dialog projek VB terbuka. Klik tiada.

Dalam kotak dialog projek VB, klik tidak.

Anda boleh menyimpan fail anda sebagai Templat didayakan makro Excel untuk menyimpan fail anda dalam format semasa.

  1. Klik Fail > Simpan Sebagai.

  2. Klik menu juntai bawah Simpan sebagai jenis , dan pilih Excel Macro-Enabled Template.

    Pilih templat didayakan makro Excel.
  3. Klik Simpan.

Halaman atas

Nota: Notis Penafian Penterjemahan Mesin: Artikel ini telah diterjemah oleh sistem komputer tanpa campur tangan manusia. Microsoft menawarkan penterjemahan mesin ini untuk membantu pengguna-pengguna yang tidak bertutur dalam Bahasa Inggeris supaya dapat menikmati kandungan mengenai produk, perkhidmatan dan teknologi Microsoft. Artikel ini mungkin mengandungi ralat perbendaharaan kata, sintaks atau tatabahasa kerana ia diterjemahkan oleh mesin.

Lihat Juga

Fungsi TEXT

Kembangkan kemahiran anda
Jelajahi latihan
Dapatkan ciri baru terlebih dahulu
Sertai Office Insiders

Adakah maklumat ini membantu?

Terima kasih atas maklum balas anda!

Terima kasih atas maklum balas anda! Nampaknya ia mungkin akan membantu untuk menyambungkan anda kepada salah seorang daripada ejen sokongan Office kami.

×