Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk menukar mata wang ke teks perkataan dalam Excel?

Bagi penutur bukan bahasa asli yang menggunakan bahasa Inggeris sebagai bahasa kedua mereka, kadang-kadang sukar untuk menukar nombor mata wang secara langsung kepada perkataan bahasa Inggeris apabila nombornya terlalu panjang. Dalam artikel ini, anda akan belajar cara menukar mata wang dengan mudah kepada teks perkataan dalam Excel.

Tukar mata wang kepada perkataan dengan kod VBA

Tukar mata wang kepada perkataan dengan Kutools untuk Excel


Mudah alihkan nombor mata wang kepada perkataan Bahasa Inggeris dalam Excel dengan Kutools untuk Excel

Klik Kutools > Kandungan > Nombor Ejaan. Yang Kutools untuk Excel's Nombor Ejaan utiliti boleh membantu anda dengan mudah menukarkan semua nombor mata wang kepada perkataan bahasa Inggeris dalam Excel. Lihat tangkapan skrin di bawah:


anak panah gelembung kanan biru Tukar mata wang kepada perkataan dengan kod VBA


Dengan kod VBA di bawah, anda boleh menukar nombor mata wang kepada perkataan Bahasa Inggeris.

1. Akhbar Alt + F11 untuk membuka Microsoft Visual Basic untuk Aplikasi kotak dialog.

2. Di dalam Microsoft Visual Basic untuk Aplikasi kotak dialog, klik Memasukkan > Modul. Kemudian salin dan tampal kod di bawah ke dalam tetingkap kod.

Kod VBA: Menukar nombor mata wang kepada Bahasa Inggeris Perkataan

Function NumberstoWords(ByVal pNumber)
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
NumberstoWords = 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. Akhbar Alt + Q kunci pada masa yang sama untuk menutup Microsoft Visual Basic untuk Aplikasi kotak dialog.

4. Pilih sel kosong (B1) yang bersebelahan dengan sel yang anda hendak tukar kepada perkataan, masukkan formula = NumberstoWords (A1), dan kemudian tekan Masukkan utama.

Nota: A1 adalah sel yang mengandungi nombor mata wang. Anda boleh mengubahnya seperti yang anda perlukan.

5. Pilih sel B1, seret Pengendalian Isi ke bawah untuk mendapatkan semua perkataan Bahasa Inggeris dari nombor mata wang.


anak panah gelembung kanan biru Tukar mata wang kepada perkataan dengan Kutools untuk Excel

Kod VBA yang lama ini kelihatan rumit. Di sini saya akan memperkenalkan utiliti berguna untuk menyelesaikan masalah ini dengan mudah. Dengan Nombor Ejaan utiliti Kutools untuk Excel, menukar mata wang kepada kata-kata tidak akan menjadi masalah lagi. Sila buat seperti berikut.

Kutools untuk Excel : dengan lebih daripada 300 berguna Excel tambahan, bebas untuk mencuba tanpa had pada hari 60.

1. Pilih sel dengan nombor mata wang yang anda ingin tukar.

2. klik Kutools > Kandungan > Nombor Ejaan. Lihat tangkapan skrin:

3. Di dalam Nombor Ejaan kotak dialog, pilih English pilihan, dan klik OK or Memohon butang.

Sekarang nombor mata wang yang dipilih akan ditukar dengan kata-kata bahasa Inggeris dengan serta-merta.

Anda boleh muat turun dan cuba percubaan percuma untuk Kutools untuk Excel sekarang!

Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    SAINUL · 3 years ago
    currency is always in Dollar and cents, How can we change this to other currency?