Note: The other languages of the website are Google-translated. Back to English
English English

Bagaimana cara cepat mengubah angka mata uang menjadi kata-kata di Excel?

Misalkan Anda memiliki serangkaian angka mata uang yang diperlukan untuk mengonversi menjadi teks kata di Excel, dan apakah Anda memiliki trik cepat untuk menyelesaikannya dengan cepat? Sekarang tutorial ini memberi tahu Anda beberapa cara mudah untuk mengubah beberapa angka mata uang menjadi kata-kata bahasa Inggris sekaligus di Excel.

nomor mata uang doc ke word 1

Mengeja angka mata uang menjadi kata-kata dengan VBA panjang

Eja angka mata uang menjadi kata-kata dengan fungsi Numbers to Words yang praktis ide bagus3


Mengeja angka mata uang menjadi kata-kata dengan VBA panjang

Di Excel, Anda tidak bisa dengan cepat mengonversi angka ke kata bahasa Inggris kecuali VBA.

1. tekan Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. klik Menyisipkan > Modul dan tempelkan di bawah VBA ke yang baru Modul jendela.

VBA: Ubah nomor mata uang menjadi kata-kata dalam bahasa Inggris.

Function SpellNumberToEnglish(ByVal pNumber)
'Updateby20131113
Dim Dollars, Cents
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, ".")
If xDecimal > 0 Then
    Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & "00", 2))
    pNumber = Trim(Left(pNumber, xDecimal - 1))
End If
xIndex = 1
Do While pNumber <> ""
    xHundred = ""
    xValue = Right(pNumber, 3)
    If Val(xValue) <> 0 Then
        xValue = Right("000" & xValue, 3)
        If Mid(xValue, 1, 1) <> "0" Then
            xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred "
        End If
        If Mid(xValue, 2, 1) <> "0" Then
            xHundred = xHundred & GetTens(Mid(xValue, 2))
        Else
            xHundred = xHundred & GetDigit(Mid(xValue, 3))
        End If
    End If
    If xHundred <> "" Then
        Dollars = xHundred & arr(xIndex) & Dollars
    End If
    If Len(pNumber) > 3 Then
        pNumber = Left(pNumber, Len(pNumber) - 3)
    Else
        pNumber = ""
    End If
    xIndex = xIndex + 1
Loop
Select Case Dollars
    Case ""
        Dollars = "No Dollars"
    Case "One"
        Dollars = "One Dollar"
    Case Else
        Dollars = Dollars & " Dollars"
End Select
Select Case Cents
    Case ""
        Cents = " and No Cents"
    Case "One"
        Cents = " and One Cent"
    Case Else
        Cents = " and " & Cents & " Cents"
End Select
SpellNumberToEnglish = Dollars & Cents
End Function
Function GetTens(pTens)
Dim Result As String
Result = ""
If Val(Left(pTens, 1)) = 1 Then
    Select Case Val(pTens)
        Case 10: Result = "Ten"
        Case 11: Result = "Eleven"
        Case 12: Result = "Twelve"
        Case 13: Result = "Thirteen"
        Case 14: Result = "Fourteen"
        Case 15: Result = "Fifteen"
        Case 16: Result = "Sixteen"
        Case 17: Result = "Seventeen"
        Case 18: Result = "Eighteen"
        Case 19: Result = "Nineteen"
        Case Else
    End Select
Else
Select Case Val(Left(pTens, 1))
    Case 2: Result = "Twenty "
    Case 3: Result = "Thirty "
    Case 4: Result = "Forty "
    Case 5: Result = "Fifty "
    Case 6: Result = "Sixty "
    Case 7: Result = "Seventy "
    Case 8: Result = "Eighty "
    Case 9: Result = "Ninety "
    Case Else
End Select
Result = Result & GetDigit(Right(pTens, 1))
End If
GetTens = Result
End Function
Function GetDigit(pDigit)
Select Case Val(pDigit)
    Case 1: GetDigit = "One"
    Case 2: GetDigit = "Two"
    Case 3: GetDigit = "Three"
    Case 4: GetDigit = "Four"
    Case 5: GetDigit = "Five"
    Case 6: GetDigit = "Six"
    Case 7: GetDigit = "Seven"
    Case 8: GetDigit = "Eight"
    Case 9: GetDigit = "Nine"
    Case Else: GetDigit = ""
End Select
End Function

3. Kemudian simpan kode ini dan tutup jendela untuk kembali ke lembar kerja, dan pilih sel kosong ketik rumus ini = SpellNumberToEnglish (A2) (A2 adalah nomor mata uang), dan tekan Enter kunci, lalu seret gagang isian ke bawah untuk menerapkan rumus ini ke sel yang Anda butuhkan. Lihat tangkapan layar:

nomor mata uang doc ke word 2
doc panah ke bawah
nomor mata uang doc ke word 1

Eja angka mata uang menjadi kata-kata dengan fungsi Spell Out Numbers yang praktis

Jika Anda biasanya perlu mengubah angka menjadi kata, metode di atas pasti bukan cara yang baik dan nyaman untuk Anda. Namun, Anda dapat menggunakan Angka ke Kata berfungsi untuk mengubah nomor mata uang dengan cepat ke kata-kata bahasa Inggris atau kata-kata Cina jika Anda punya Kutools untuk Excel.

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 nomor mata uang dan klik Kutools > Content > Angka ke Kata. Lihat tangkapan layar:

nomor mata uang doc ke word 7

2. Dalam Angka ke Kata Mata Uang dialog, periksa English or Cina pilihan yang Anda butuhkan. Lihat tangkapan layar:

nomor doc ke dunia 2

3. klik Ok or Apply. Kemudian nomor mata uang yang Anda pilih telah diubah menjadi kata-kata.

Nomor mata uang untuk kata-kata bahasa Inggris

nomor doc ke dunia 3

Nomor mata uang untuk kata-kata Cina

nomor doc ke dunia 4

Catatan: Anda dapat menyalin dan menempelkan nomor mata uang ke lembar kerja lain sebelum Anda menerapkan Angka ke Kata


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (2)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Hai, Kim Morse, pemberi kredit wang persendirian. (Kode360)
Kami menyediakan kredit dengan kadar faedah 2% setahun dan dalam jumlah $10,000.00 hingga $500,000.00 dan €10,000.00 hingga €500,000.00 sebagai tawaran kredit. Projek 100% yang dibiayai dengan kredit bercagar dan tidak bercagar boleh didapati. Kami menjamin perkhidmatan kewangan kepada pelanggan kami di seluruh dunia. Dengan pakej kredit yang fleksibel, boleh meminjamkan dan meminjamkan dana kepada peminjam dalam 2 hari. Kami bekerja dalam terma yang jelas dan mudah difahami dan menawarkan pelbagai jenis kredit kepada pelanggan, syarikat, individu swasta dan pelabur hartanah yang berminat. Cukup lengkapi borang di bawah dan kembali kepada kami melalui E-mel.
Pengguna Butiran:
Nama-nama:
Tarik lahir:
Jantina.
Status perkahwinan saya:
Alamat:
Bandar:
dan Negeri/Wilayah:
Kod pos /
negara:
telepon:
Email saya:
dengan tujuan kredit:
jumlah kredit:
kredit tempo:
Pendapatan bulanan anda:
Hubungi pegawai kredit Via Email: (Code360optionsloancompany@gmail.com) Dan untuk Maklumat, Hubungi alamat Web kami: Code360optionsloancompany.com

Salam sejahtera,
Puan Kim
Komentar ini diminimalkan oleh moderator di situs
Tinjau artikel saya Jutaan miliar triliun konversi artikel pembelajaran angka dasar yang membantu seseorang untuk mempelajari sistem angka dan konversi angka juga.
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan