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

Bagaimana cara mengubah angka menjadi kata-kata dalam rupee India di Excel?

Artikel ini, saya akan memperkenalkan cara mengonversi daftar angka menjadi kata-kata dalam rupee India atau dolar Inggris di Excel.

Ubah angka menjadi kata-kata dalam rupee India dengan kode VBA

Ubah angka menjadi kata-kata dalam dolar Inggris dengan fitur luar biasa


Ubah angka menjadi kata-kata dalam rupee India dengan kode VBA

Kode VBA berikut dapat membantu Anda mengonversi angka menjadi kata dalam rupee, lakukan seperti ini:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Module Window.

Kode VBA: Ubah angka menjadi kata dalam rupee

Public Function RupeeFormat(SNum As String)
'Updateby Extendoffice
Dim xDPInt As Integer
Dim xArrPlace As Variant
Dim xRStr_Paisas As String
Dim xNumStr As String
Dim xF As Integer
Dim xTemp As String
Dim xStrTemp As String
Dim xRStr As String
Dim xLp As Integer
xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "")
On Error Resume Next
If SNum = "" Then
  RupeeFormat = ""
  Exit Function
End If
xNumStr = Trim(str(SNum))
If xNumStr = "" Then
  RupeeFormat = ""
  Exit Function
End If

xRStr = ""
xLp = 0
If (xNumStr > 999999999.99) Then
    RupeeFormat = "Digit excced Maximum limit"
    Exit Function
End If
xDPInt = InStr(xNumStr, ".")
If xDPInt > 0 Then
    If (Len(xNumStr) - xDPInt) = 1 Then
       xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2))
    ElseIf (Len(xNumStr) - xDPInt) > 1 Then
       xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2))
    End If
        xNumStr = Trim(Left(xNumStr, xDPInt - 1))
    End If
    xF = 1
    Do While xNumStr <> ""
        If (xF >= 2) Then
            xTemp = Right(xNumStr, 2)
        Else
            If (Len(xNumStr) = 2) Then
                xTemp = Right(xNumStr, 2)
            ElseIf (Len(xNumStr) = 1) Then
                xTemp = Right(xNumStr, 1)
            Else
                xTemp = Right(xNumStr, 3)
            End If
        End If
        xStrTemp = ""
        If Val(xTemp) > 99 Then
            xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp)
            If Right(Trim(xStrTemp), 3) <> "Lac" Then
            xLp = xLp + 1
            End If
        ElseIf Val(xTemp) <= 99 And Val(xTemp) > 9 Then
            xStrTemp = RupeeFormat_GetT(Right(xTemp, 2))
        ElseIf Val(xTemp) < 10 Then
            xStrTemp = RupeeFormat_GetD(Right(xTemp, 2))
        End If
        If xStrTemp <> "" Then
            xRStr = xStrTemp & xArrPlace(xF) & xRStr
        End If
        If xF = 2 Then
            If Len(xNumStr) = 1 Then
                xNumStr = ""
            Else
                xNumStr = Left(xNumStr, Len(xNumStr) - 2)
            End If
       ElseIf xF = 3 Then
            If Len(xNumStr) >= 3 Then
                 xNumStr = Left(xNumStr, Len(xNumStr) - 2)
            Else
                xNumStr = ""
            End If
        ElseIf xF = 4 Then
          xNumStr = ""
    Else
        If Len(xNumStr) <= 2 Then
        xNumStr = ""
    Else
        xNumStr = Left(xNumStr, Len(xNumStr) - 3)
        End If
    End If
        xF = xF + 1
Loop
    If xRStr = "" Then
       xRStr = "No Rupees"
    Else
       xRStr = " Rupees " & xRStr
    End If
    If xRStr_Paisas <> "" Then
       xRStr_Paisas = " and " & xRStr_Paisas & " Paisas"
    End If
    RupeeFormat = xRStr & xRStr_Paisas & " Only"
    End Function
Function RupeeFormat_GetH(xStrH As String, xLp As Integer)
Dim xRStr As String
If Val(xStrH) < 1 Then
    RupeeFormat_GetH = ""
    Exit Function
Else
   xStrH = Right("000" & xStrH, 3)
   If Mid(xStrH, 1, 1) <> "0" Then
        If (xLp > 0) Then
         xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac "
        Else
         xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred "
        End If
    End If
    If Mid(xStrH, 2, 1) <> "0" Then
        xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2))
    Else
        xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3))
    End If
End If
    RupeeFormat_GetH = xRStr
End Function
Function RupeeFormat_GetT(xTStr As String)
    Dim xTArr1 As Variant
    Dim xTArr2 As Variant
    Dim xRStr As String
    xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
    xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
    Result = ""
    If Val(Left(xTStr, 1)) = 1 Then
        xRStr = xTArr1(Val(Mid(xTStr, 2, 1)))
    Else
        If Val(Left(xTStr, 1)) > 0 Then
            xRStr = xTArr2(Val(Left(xTStr, 1)) - 1)
        End If
        xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1))
    End If
      RupeeFormat_GetT = xRStr
End Function
Function RupeeFormat_GetD(xDStr As String)
Dim xArr_1() As Variant
    xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "")
    If Val(xDStr) > 0 Then
        RupeeFormat_GetD = xArr_1(Val(xDStr) - 1)
    Else
        RupeeFormat_GetD = ""
    End If
End Function 

3. Setelah memasukkan kode, simpan dan tutup jendela kode, kembali ke lembar kerja, dan masukkan rumus ini: = RupeeFormat (A2) ke dalam sel kosong, lalu seret gagang isian ke bawah untuk menerapkan rumus ini ke sel lain, semua angka telah dieja dalam rupee, lihat tangkapan layar:


Ubah angka menjadi kata-kata dalam dolar Inggris dengan fitur luar biasa

Jika Anda ingin mengubah angka menjadi kata-kata dalam dolar Inggris, Kutools untuk Excel'S Angka ke Kata Fitur ini dapat membantu Anda menyelesaikan pekerjaan ini dengan cepat dan mudah.

Tip:Untuk menerapkan ini Angka ke Kata fitur, pertama, Anda harus mengunduh Kutools untuk Excel, lalu terapkan fitur dengan cepat dan mudah.

Setelah menginstal Kutools untuk Excel, lakukan seperti ini:

1. Pilih daftar nomor yang ingin Anda ubah, lalu klik Kutools > Konten > Angka ke Kata, lihat tangkapan layar:

2. di Angka ke Kata Mata Uang kotak dialog, pilih English pilihan dari Bahasa bagian, lalu klik Ok tombol, angka dalam pemilihan telah dikonversi ke kata-kata mata uang bahasa Inggris, lihat tangkapan layar:

Klik untuk Mengunduh Kutools for Excel dan uji coba gratis Sekarang!

 


  • 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 dan Menyimpan Data; Pisahkan Konten Sel; Gabungkan Baris Duplikat dan Jumlah / Rata-rata... 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 ...
  • Favorit dan Sisipkan Rumus dengan Cepat, Rentang, Grafik dan Gambar; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • 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...
  • Pengelompokan Tabel Pivot menurut nomor minggu, hari dalam seminggu dan banyak lagi ... Tampilkan Sel yang Tidak Terkunci dan Terkunci dengan warna berbeda; Sorot Sel Yang Memiliki Rumus / Nama...
tab kte 201905
  • 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.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah

 

Urutkan komentar berdasarkan
komentar (22)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Excel mogok ketika sel referensi tidak memiliki katup!
Komentar ini diminimalkan oleh moderator di situs
Hai, Pengguna,
Terima kasih atas komentar Anda, kode dalam artikel ini telah diperbarui, silakan coba lagi, terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Saudara yg terhormat,

Hari baik,

Saya menguji rumus di atas yang tidak berfungsi dalam nilai minus tanda hubung seperti -100 -10,000 atau (100) (10,000)

Pak, saya menggunakan kode di bawah ini selama 1 tahun terakhir dan hari ini saya menemukan kesalahan yang sama.

Ketika saya menulis minus -10,000 atau (10,000) itu menunjukkan "Hanya Seratus Sepuluh Ribu"
Ketika saya menulis Positif 10,000 itu berfungsi dengan baik "Hanya Sepuluh Ribu"

Di bawah contoh:

(10,000.99) Hanya Seratus Sepuluh Ribu & 99/100 Riyal
10,000.99 Hanya Sepuluh Ribu & 99/100 Riyal
(10,000,000.99) Hanya Seratus Sepuluh Juta & 99/100 Riyal
10,000,000.99 Hanya Sepuluh Juta & 99/100 Riyal
(10,000,000,000.99) Hanya Seratus Sepuluh Miliar & 99/100 Riyal
10,000,000,000.99 Hanya Sepuluh Miliar & 99/100 Riyal
(10,000,000,000,000.90) Hanya Seratus Sepuluh Triliun & 90/100 Riyal
10,000,000,000,000.90 Hanya Sepuluh Triliun & 90/100 Riyal

Rumus = spellbilling

KODE VBA SAYA:

'Fungsi utama
Fungsi Penagihan Ejaan(ByVal MyNumber)
Riyal Redup, Halala, Temp
Dim DesimalTempat, Hitung
Tempat ReDim(9) Sebagai String
Tempat(2) = " Seribu "
Tempat(3) = " Juta "
Tempat(4) = " Miliar "
Tempat(5) = " Triliun "
' String representasi jumlah.
MyNumber = Pangkas(Str(MyNumber))
' Posisi desimal 0 jika tidak ada.
Tempat Desimal = InStr(Nomor Saya, ".")
' Konversikan Halala dan setel MyNumber ke jumlah Riyal.
Jika Tempat Desimal > 0 Maka
Halala = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Pangkas(Kiri(MyNumber, DesimalPlace - 1))
End If
Hitung = 1
Lakukan Sementara MyNumber <> ""
Temp = GetHundreds(Kanan(MyNumber, 3))
Jika Temp <> "" Maka Riyal = Temp & Tempat(Hitung) & Riyal
Jika Len(Nomor Saya) > 3 Maka
MyNumber = Kiri(MyNumber, Len(MyNumber) - 3)
Lain
Nomor Saya = ""
End If
Hitung = Hitung + 1
Lingkaran
Pilih Riyal Kasing
Kasus ""
Riyal = "Tidak Ada Riyal"
Kasus "Satu"
Riyal = "Hanya Satu Riyal"
Case Else
Riyal = "Hanya" & Riyal
Riyal = Riyal & ""
End Select
Pilih Kasus Halala
Kasus ""
Halala = " & 00/00 Riyal"
Kasus "Satu"
Halala = " & 01/100 Riyal"
Kasus "Dua"
Halala = " & 02/100 Riyal"
Kasus "Tiga"
Halala = " & 03/100 Riyal"
Kasus "Empat"
Halala = " & 04/100 Riyal"
Kasus "Lima"
Halala = " & 05/100 Riyal"
Kasus "Enam"
Halala = " & 06/100 Riyal"
Kasus "Tujuh"
Halala = " & 07/100 Riyal"
Kasus "Delapan"
Halala = " & 08/100 Riyal"
Kasus "Sembilan"
Halala = " & 09/100 Riyal"
Kasus "Sepuluh"
Halala = " & 10/100 Riyal"
Kasus "Sebelas"
Halala = " & 11/100 Riyal"
Kasus "Dua Belas"
Halala = " & 12/100 Riyal"
Kasus "Tiga Belas"
Halala = " & 13/100 Riyal"
Kasus "Empat Belas"
Halala = " & 14/100 Riyal"
Kasus "Lima belas"
Halala = " & 15/100 Riyal"
Kasus "Enam belas"
Halala = " & 16/100 Riyal"
Kasus "Tujuh Belas"
Halala = " & 17/100 Riyal"
Kasus "Delapan Belas"
Halala = " & 18/100 Riyal"
Kasus "Sembilan Belas"
Halala = " & 19/100 Riyal"
Kasus "Dua puluh"
Halala = " & 20/100 Riyal"
Kasus "Dua Puluh Satu"
Halala = " & 21/100 Riyal"
Kasus "Dua Puluh Dua"
Halala = " & 22/100 Riyal"
Kasus "Dua Puluh Tiga"
Halala = " & 23/100 Riyal"
Kasus "Dua Puluh Empat"
Halala = " & 24/100 Riyal"
Kasus "Dua Puluh Lima"
Halala = " & 25/100 Riyal"
Kasus "Dua Puluh Enam"
Halala = " & 26/100 Riyal"
Kasus "Dua Puluh Tujuh"
Halala = " & 27/100 Riyal"
Kasus "Dua Puluh Delapan"
Halala = " & 28/100 Riyal"
Kasus "Dua Puluh Sembilan"
Halala = " & 29/100 Riyal"
Kasus "Tiga Puluh"
Halala = " & 30/100 Riyal"
Kasus "Tiga Puluh Satu"
Halala = " & 31/100 Riyal"
Kasus "Tiga Puluh Dua"
Halala = " & 32/100 Riyal"
Kasus "Tiga Puluh Tiga"
Halala = " & 33/100 Riyal"
Kasus "Tiga Puluh Empat"
Halala = " & 34/100 Riyal"
Kasus "Tiga Puluh Lima"
Halala = " & 35/100 Riyal"
Kasus "Tiga Puluh Enam"
Halala = " & 36/100 Riyal"
Kasus "Tiga Puluh Tujuh"
Halala = " & 37/100 Riyal"
Kasus "Tiga Puluh Delapan"
Halala = " & 38/100 Riyal"
Kasus "Tiga Puluh Sembilan"
Halala = " & 39/100 Riyal"
Kasus "Empat puluh"
Halala = " & 40/100 Riyal"
Kasus "Empat Puluh Satu"
Halala = " & 41/100 Riyal"
Kasus "Empat Puluh Dua"
Halala = " & 42/100 Riyal"
Kasus "Empat Puluh Tiga"
Halala = " & 43/100 Riyal"
Kasus "Empat Puluh Empat"
Halala = " & 44/100 Riyal"
Kasus "Empat Puluh Lima"
Halala = " & 45/100 Riyal"
Kasus "Empat Puluh Enam"
Halala = " & 46/100 Riyal"
Kasus "Empat Puluh Tujuh"
Halala = " & 47/100 Riyal"
Kasus "Empat Puluh Delapan"
Halala = " & 48/100 Riyal"
Kasus "Empat Puluh Sembilan"
Halala = " & 49/100 Riyal"
Kasus "Lima puluh"
Halala = " & 50/100 Riyal"
Kasus "Lima Puluh Satu"
Halala = " & 51/100 Riyal"
Kasus "Lima Puluh Dua"
Halala = " & 52/100 Riyal"
Kasus "Lima Puluh Tiga"
Halala = " & 53/100 Riyal"
Kasus "Lima Puluh Empat"
Halala = " & 54/100 Riyal"
Kasus "Lima Puluh Lima"
Halala = " & 55/100 Riyal"
Kasus "Lima Puluh Enam"
Halala = " & 56/100 Riyal"
Kasus "Lima Puluh Tujuh"
Halala = " & 57/100 Riyal"
Kasus "Lima Puluh Delapan"
Halala = " & 58/100 Riyal"
Kasus "Lima Puluh Sembilan"
Halala = " & 59/100 Riyal"
Kasus "Enam Puluh"
Halala = " & 60/100 Riyal"
Kasus "Enam Puluh Satu"
Halala = " & 61/100 Riyal"
Kasus "Enam Puluh Dua"
Halala = " & 62/100 Riyal"
Kasus "Enam Puluh Tiga"
Halala = " & 63/100 Riyal"
Kasus "Enam Puluh Empat"
Halala = " & 64/100 Riyal"
Kasus "Enam Puluh Lima"
Halala = " & 65/100 Riyal"
Kasus "Enam Puluh Enam"
Halala = " & 66/100 Riyal"
Kasus "Enam Puluh Tujuh"
Halala = " & 67/100 Riyal"
Kasus "Enam Puluh Delapan"
Halala = " & 68/100 Riyal"
Kasus "Enam Puluh Sembilan"
Halala = " & 69/100 Riyal"
Kasus "Tujuh Puluh"
Halala = " & 70/100 Riyal"
Kasus "Tujuh Puluh Satu"
Halala = " & 71/100 Riyal"
Kasus "Tujuh Puluh Dua"
Halala = " & 72/100 Riyal"
Kasus "Tujuh Puluh Tiga"
Halala = " & 73/100 Riyal"
Kasus "Tujuh Puluh Empat"
Halala = " & 74/100 Riyal"
Kasus "Tujuh Puluh Lima"
Halala = " & 75/100 Riyal"
Kasus "Tujuh Puluh Enam"
Halala = " & 76/100 Riyal"
Kasus "Tujuh Puluh Tujuh"
Halala = " & 77/100 Riyal"
Kasus "Tujuh Puluh Delapan"
Halala = " & 78/100 Riyal"
Kasus "Tujuh Puluh Sembilan"
Halala = " & 79/100 Riyal"
Kasus "Delapan Puluh"
Halala = " & 80/100 Riyal"
Kasus "Delapan Puluh Satu"
Halala = " & 81/100 Riyal"
Kasus "Delapan Puluh Dua"
Halala = " & 82/100 Riyal"
Kasus "Delapan Puluh Tiga"
Halala = " & 83/100 Riyal"
Kasus "Delapan Puluh Empat"
Halala = " & 84/100 Riyal"
Kasus "Delapan Puluh Lima"
Halala = " & 85/100 Riyal"
Kasus "Delapan Puluh Enam"
Halala = " & 86/100 Riyal"
Kasus "Delapan Puluh Tujuh"
Halala = " & 87/100 Riyal"
Kasus "Delapan Puluh Delapan"
Halala = " & 88/100 Riyal"
Kasus "Delapan Puluh Sembilan"
Halala = " & 89/100 Riyal"
Kasus "Sembilan puluh"
Halala = " & 90/100 Riyal"
Kasus "Sembilan Puluh Satu"
Halala = " & 91/100 Riyal"
Kasus "Sembilan Puluh Dua"
Halala = " & 92/100 Riyal"
Kasus "Sembilan Puluh Tiga"
Halala = " & 93/100 Riyal"
Kasus "Sembilan Puluh Empat"
Halala = " & 94/100 Riyal"
Kasus "Sembilan Puluh Lima"
Halala = " & 95/100 Riyal"
Kasus "Sembilan Puluh Enam"
Halala = " & 96/100 Riyal"
Kasus "Sembilan Puluh Tujuh"
Halala = " & 97/100 Riyal"
Kasus "Sembilan Puluh Delapan"
Halala = " & 98/100 Riyal"
Kasus "Sembilan Puluh Sembilan"
Halala = " & 99/100 Riyal"


Case Else
Halala = " & " & Halala & " Halala"
End Select
SpellBilling = Riyal & Halala
End Function


' Mengonversi angka dari 100-999 menjadi teks
Fungsi GetHundreds(ByVal MyNumber)
Hasil Redup Sebagai String
Jika Val(MyNumber) = 0 Kemudian Keluar dari Fungsi
MyNumber = Kanan("000" & MyNumber, 3)
' Ubah tempat ratusan.
Jika Mid(MyNumber, 1, 1) <> "0" Lalu
Hasil = GetDigit(Mid(MyNumber, 1, 1)) & " Ratusan "
End If
' Ubah tempat puluhan dan satuan.
Jika Mid(MyNumber, 2, 1) <> "0" Lalu
Hasil = Hasil & GetTens(Mid(MyNumber, 2))
Lain
Hasil = Hasil & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Hasil
End Function

' Mengonversi angka dari 10 hingga 99 menjadi teks.
Fungsi GetTens(TensText)
Hasil Redup Sebagai String
Result = "" ' Hapus nilai fungsi sementara.
If Val(Left(TensText, 1)) = 1 Kemudian ' Jika nilainya antara 10-19...
Pilih Kasus Val (TensText)
Kasus 10: Hasil = "Sepuluh"
Kasus 11: Hasil = "Sebelas"
Kasus 12: Hasil = "Dua Belas"
Kasus 13: Hasil = "Tiga Belas"
Kasus 14: Hasil = "Empat Belas"
Kasus 15: Hasil = "Lima belas"
Kasus 16: Hasil = "Enam belas"
Kasus 17: Hasil = "Tujuh Belas"
Kasus 18: Hasil = "Delapan Belas"
Kasus 19: Hasil = "Sembilan belas"
Case Else
End Select
Else ' Jika nilainya antara 20-99...
Pilih Case Val(Kiri(TensText, 1))
Kasus 2: Hasil = "Dua puluh"
Kasus 3: Hasil = "Tiga Puluh"
Kasus 4: Hasil = "Empat puluh"
Kasus 5: Hasil = "Lima puluh"
Kasus 6: Hasil = "Enam Puluh"
Kasus 7: Hasil = "Tujuh Puluh"
Kasus 8: Hasil = "Delapan Puluh"
Kasus 9: Hasil = "Sembilan puluh"
Case Else
End Select
Hasil = Hasil & GetDigit _
(Right(TensText, 1)) ' Ambil satu tempat.
End If
GetTens = Hasil
End Function

' Mengonversi angka dari 1 hingga 9 menjadi teks.
Fungsi GetDigit(Digit)
Pilih Kasus 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"
Kasus Lain: GetDigit = ""
End Select
End Function
Komentar ini diminimalkan oleh moderator di situs
Tidak ada yang perlu dikatakan! sangat luar biasa
Komentar ini diminimalkan oleh moderator di situs
Saudara yg terhormat,

Hari baik,
Saya menguji kode VBA Anda tetapi sayangnya tidak berfungsi dengan baik pada nilai negatif/minus seperti -100 -10,000 / (100) (10,000).

Pak, saya menggunakan kode di bawah ini selama 1 tahun terakhir dan hari ini saya menemukan kesalahan yang sama yang ditemukan dalam kode VBA Anda juga.

Ketika saya menulis minus -10,000 itu menunjukkan "Hanya Seratus Sepuluh Ribu"
Ketika saya menulis positif 10,000 itu menunjukkan "Hanya Sepuluh Ribu" berfungsi dengan baik

Di bawah contoh:

(10,000.99) Hanya Seratus Sepuluh Ribu & 99/100 Riyal
10,000.99 Hanya Sepuluh Ribu & 99/100 Riyal
(10,000,000.99) Hanya Seratus Sepuluh Juta & 99/100 Riyal
10,000,000.99 Hanya Sepuluh Juta & 99/100 Riyal
(10,000,000,000.99) Hanya Seratus Sepuluh Miliar & 99/100 Riyal
10,000,000,000.99 Hanya Sepuluh Miliar & 99/100 Riyal
(10,000,000,000,000.90) Hanya Seratus Sepuluh Triliun & 90/100 Riyal
10,000,000,000,000.90 Hanya Sepuluh Triliun & 90/100 Riyal

Rumus = spellbilling

KODE VBA SAYA:

'Fungsi utama
Fungsi Penagihan Ejaan(ByVal MyNumber)
Riyal Redup, Halala, Temp
Dim DesimalTempat, Hitung
Tempat ReDim(9) Sebagai String
Tempat(2) = " Seribu "
Tempat(3) = " Juta "
Tempat(4) = " Miliar "
Tempat(5) = " Triliun "
' String representasi jumlah.
MyNumber = Pangkas(Str(MyNumber))
' Posisi desimal 0 jika tidak ada.
Tempat Desimal = InStr(Nomor Saya, ".")
' Konversikan Halala dan setel MyNumber ke jumlah Riyal.
Jika Tempat Desimal > 0 Maka
Halala = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Pangkas(Kiri(MyNumber, DesimalPlace - 1))
End If
Hitung = 1
Lakukan Sementara MyNumber <> ""
Temp = GetHundreds(Kanan(MyNumber, 3))
Jika Temp <> "" Maka Riyal = Temp & Tempat(Hitung) & Riyal
Jika Len(Nomor Saya) > 3 Maka
MyNumber = Kiri(MyNumber, Len(MyNumber) - 3)
Lain
Nomor Saya = ""
End If
Hitung = Hitung + 1
Lingkaran
Pilih Riyal Kasing
Kasus ""
Riyal = "Tidak Ada Riyal"
Kasus "Satu"
Riyal = "Hanya Satu Riyal"
Case Else
Riyal = "Hanya" & Riyal
Riyal = Riyal & ""
End Select
Pilih Kasus Halala
Kasus ""
Halala = " & 00/00 Riyal"
Kasus "Satu"
Halala = " & 01/100 Riyal"
Kasus "Dua"
Halala = " & 02/100 Riyal"
Kasus "Tiga"
Halala = " & 03/100 Riyal"
Kasus "Empat"
Halala = " & 04/100 Riyal"
Kasus "Lima"
Halala = " & 05/100 Riyal"
Kasus "Enam"
Halala = " & 06/100 Riyal"
Kasus "Tujuh"
Halala = " & 07/100 Riyal"
Kasus "Delapan"
Halala = " & 08/100 Riyal"
Kasus "Sembilan"
Halala = " & 09/100 Riyal"
Kasus "Sepuluh"
Halala = " & 10/100 Riyal"
Kasus "Sebelas"
Halala = " & 11/100 Riyal"
Kasus "Dua Belas"
Halala = " & 12/100 Riyal"
Kasus "Tiga Belas"
Halala = " & 13/100 Riyal"
Kasus "Empat Belas"
Halala = " & 14/100 Riyal"
Kasus "Lima belas"
Halala = " & 15/100 Riyal"
Kasus "Enam belas"
Halala = " & 16/100 Riyal"
Kasus "Tujuh Belas"
Halala = " & 17/100 Riyal"
Kasus "Delapan Belas"
Halala = " & 18/100 Riyal"
Kasus "Sembilan Belas"
Halala = " & 19/100 Riyal"
Kasus "Dua puluh"
Halala = " & 20/100 Riyal"
Kasus "Dua Puluh Satu"
Halala = " & 21/100 Riyal"
Kasus "Dua Puluh Dua"
Halala = " & 22/100 Riyal"
Kasus "Dua Puluh Tiga"
Halala = " & 23/100 Riyal"
Kasus "Dua Puluh Empat"
Halala = " & 24/100 Riyal"
Kasus "Dua Puluh Lima"
Halala = " & 25/100 Riyal"
Kasus "Dua Puluh Enam"
Halala = " & 26/100 Riyal"
Kasus "Dua Puluh Tujuh"
Halala = " & 27/100 Riyal"
Kasus "Dua Puluh Delapan"
Halala = " & 28/100 Riyal"
Kasus "Dua Puluh Sembilan"
Halala = " & 29/100 Riyal"
Kasus "Tiga Puluh"
Halala = " & 30/100 Riyal"
Kasus "Tiga Puluh Satu"
Halala = " & 31/100 Riyal"
Kasus "Tiga Puluh Dua"
Halala = " & 32/100 Riyal"
Kasus "Tiga Puluh Tiga"
Halala = " & 33/100 Riyal"
Kasus "Tiga Puluh Empat"
Halala = " & 34/100 Riyal"
Kasus "Tiga Puluh Lima"
Halala = " & 35/100 Riyal"
Kasus "Tiga Puluh Enam"
Halala = " & 36/100 Riyal"
Kasus "Tiga Puluh Tujuh"
Halala = " & 37/100 Riyal"
Kasus "Tiga Puluh Delapan"
Halala = " & 38/100 Riyal"
Kasus "Tiga Puluh Sembilan"
Halala = " & 39/100 Riyal"
Kasus "Empat puluh"
Halala = " & 40/100 Riyal"
Kasus "Empat Puluh Satu"
Halala = " & 41/100 Riyal"
Kasus "Empat Puluh Dua"
Halala = " & 42/100 Riyal"
Kasus "Empat Puluh Tiga"
Halala = " & 43/100 Riyal"
Kasus "Empat Puluh Empat"
Halala = " & 44/100 Riyal"
Kasus "Empat Puluh Lima"
Halala = " & 45/100 Riyal"
Kasus "Empat Puluh Enam"
Halala = " & 46/100 Riyal"
Kasus "Empat Puluh Tujuh"
Halala = " & 47/100 Riyal"
Kasus "Empat Puluh Delapan"
Halala = " & 48/100 Riyal"
Kasus "Empat Puluh Sembilan"
Halala = " & 49/100 Riyal"
Kasus "Lima puluh"
Halala = " & 50/100 Riyal"
Kasus "Lima Puluh Satu"
Halala = " & 51/100 Riyal"
Kasus "Lima Puluh Dua"
Halala = " & 52/100 Riyal"
Kasus "Lima Puluh Tiga"
Halala = " & 53/100 Riyal"
Kasus "Lima Puluh Empat"
Halala = " & 54/100 Riyal"
Kasus "Lima Puluh Lima"
Halala = " & 55/100 Riyal"
Kasus "Lima Puluh Enam"
Halala = " & 56/100 Riyal"
Kasus "Lima Puluh Tujuh"
Halala = " & 57/100 Riyal"
Kasus "Lima Puluh Delapan"
Halala = " & 58/100 Riyal"
Kasus "Lima Puluh Sembilan"
Halala = " & 59/100 Riyal"
Kasus "Enam Puluh"
Halala = " & 60/100 Riyal"
Kasus "Enam Puluh Satu"
Halala = " & 61/100 Riyal"
Kasus "Enam Puluh Dua"
Halala = " & 62/100 Riyal"
Kasus "Enam Puluh Tiga"
Halala = " & 63/100 Riyal"
Kasus "Enam Puluh Empat"
Halala = " & 64/100 Riyal"
Kasus "Enam Puluh Lima"
Halala = " & 65/100 Riyal"
Kasus "Enam Puluh Enam"
Halala = " & 66/100 Riyal"
Kasus "Enam Puluh Tujuh"
Halala = " & 67/100 Riyal"
Kasus "Enam Puluh Delapan"
Halala = " & 68/100 Riyal"
Kasus "Enam Puluh Sembilan"
Halala = " & 69/100 Riyal"
Kasus "Tujuh Puluh"
Halala = " & 70/100 Riyal"
Kasus "Tujuh Puluh Satu"
Halala = " & 71/100 Riyal"
Kasus "Tujuh Puluh Dua"
Halala = " & 72/100 Riyal"
Kasus "Tujuh Puluh Tiga"
Halala = " & 73/100 Riyal"
Kasus "Tujuh Puluh Empat"
Halala = " & 74/100 Riyal"
Kasus "Tujuh Puluh Lima"
Halala = " & 75/100 Riyal"
Kasus "Tujuh Puluh Enam"
Halala = " & 76/100 Riyal"
Kasus "Tujuh Puluh Tujuh"
Halala = " & 77/100 Riyal"
Kasus "Tujuh Puluh Delapan"
Halala = " & 78/100 Riyal"
Kasus "Tujuh Puluh Sembilan"
Halala = " & 79/100 Riyal"
Kasus "Delapan Puluh"
Halala = " & 80/100 Riyal"
Kasus "Delapan Puluh Satu"
Halala = " & 81/100 Riyal"
Kasus "Delapan Puluh Dua"
Halala = " & 82/100 Riyal"
Kasus "Delapan Puluh Tiga"
Halala = " & 83/100 Riyal"
Kasus "Delapan Puluh Empat"
Halala = " & 84/100 Riyal"
Kasus "Delapan Puluh Lima"
Halala = " & 85/100 Riyal"
Kasus "Delapan Puluh Enam"
Halala = " & 86/100 Riyal"
Kasus "Delapan Puluh Tujuh"
Halala = " & 87/100 Riyal"
Kasus "Delapan Puluh Delapan"
Halala = " & 88/100 Riyal"
Kasus "Delapan Puluh Sembilan"
Halala = " & 89/100 Riyal"
Kasus "Sembilan puluh"
Halala = " & 90/100 Riyal"
Kasus "Sembilan Puluh Satu"
Halala = " & 91/100 Riyal"
Kasus "Sembilan Puluh Dua"
Halala = " & 92/100 Riyal"
Kasus "Sembilan Puluh Tiga"
Halala = " & 93/100 Riyal"
Kasus "Sembilan Puluh Empat"
Halala = " & 94/100 Riyal"
Kasus "Sembilan Puluh Lima"
Halala = " & 95/100 Riyal"
Kasus "Sembilan Puluh Enam"
Halala = " & 96/100 Riyal"
Kasus "Sembilan Puluh Tujuh"
Halala = " & 97/100 Riyal"
Kasus "Sembilan Puluh Delapan"
Halala = " & 98/100 Riyal"
Kasus "Sembilan Puluh Sembilan"
Halala = " & 99/100 Riyal"


Case Else
Halala = " & " & Halala & " Halala"
End Select
SpellBilling = Riyal & Halala
End Function


' Mengonversi angka dari 100-999 menjadi teks
Fungsi GetHundreds(ByVal MyNumber)
Hasil Redup Sebagai String
Jika Val(MyNumber) = 0 Kemudian Keluar dari Fungsi
MyNumber = Kanan("000" & MyNumber, 3)
' Ubah tempat ratusan.
Jika Mid(MyNumber, 1, 1) <> "0" Lalu
Hasil = GetDigit(Mid(MyNumber, 1, 1)) & " Ratusan "
End If
' Ubah tempat puluhan dan satuan.
Jika Mid(MyNumber, 2, 1) <> "0" Lalu
Hasil = Hasil & GetTens(Mid(MyNumber, 2))
Lain
Hasil = Hasil & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Hasil
End Function

' Mengonversi angka dari 10 hingga 99 menjadi teks.
Fungsi GetTens(TensText)
Hasil Redup Sebagai String
Result = "" ' Hapus nilai fungsi sementara.
If Val(Left(TensText, 1)) = 1 Kemudian ' Jika nilainya antara 10-19...
Pilih Kasus Val (TensText)
Kasus 10: Hasil = "Sepuluh"
Kasus 11: Hasil = "Sebelas"
Kasus 12: Hasil = "Dua Belas"
Kasus 13: Hasil = "Tiga Belas"
Kasus 14: Hasil = "Empat Belas"
Kasus 15: Hasil = "Lima belas"
Kasus 16: Hasil = "Enam belas"
Kasus 17: Hasil = "Tujuh Belas"
Kasus 18: Hasil = "Delapan Belas"
Kasus 19: Hasil = "Sembilan belas"
Case Else
End Select
Else ' Jika nilainya antara 20-99...
Pilih Case Val(Kiri(TensText, 1))
Kasus 2: Hasil = "Dua puluh"
Kasus 3: Hasil = "Tiga Puluh"
Kasus 4: Hasil = "Empat puluh"
Kasus 5: Hasil = "Lima puluh"
Kasus 6: Hasil = "Enam Puluh"
Kasus 7: Hasil = "Tujuh Puluh"
Kasus 8: Hasil = "Delapan Puluh"
Kasus 9: Hasil = "Sembilan puluh"
Case Else
End Select
Hasil = Hasil & GetDigit _
(Right(TensText, 1)) ' Ambil satu tempat.
End If
GetTens = Hasil
End Function

' Mengonversi angka dari 1 hingga 9 menjadi teks.
Fungsi GetDigit(Digit)
Pilih Kasus 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"
Kasus Lain: GetDigit = ""
End Select
End Function
Komentar ini diminimalkan oleh moderator di situs
Saya Perlu menerapkan semua Buku Kerja Excell. Bagaimana menerapkan pengkodean ini ke semua buku kerja excel.
Komentar ini diminimalkan oleh moderator di situs
Rupee Empat Belas Ribu Delapan Ratus Tujuh Puluh Lima Hanya jumlah terakhir yang harus memiliki kata dan contohnya
Rupiah Empat Belas Ribu Delapan Ratus Tujuh Puluh Lima Saja
Komentar ini diminimalkan oleh moderator di situs
tidak bisa membaca lebih dari 10 crore.
Komentar ini diminimalkan oleh moderator di situs
Satu Lac Enam Puluh Sembilan Ribu Delapan Puluh Satu dan Empat Puluh Dua Paise - Tidak dikonversi dengan benar. Juga tidak mengubah angka di atas saat dibulatkan.
Komentar ini diminimalkan oleh moderator di situs
TERIMA KASIH ATAS KODENYA...
Komentar ini diminimalkan oleh moderator di situs
Terima kasih untuk codingnya. Saya melamar & Bekerja. Tapi itu hanya berlaku untuk buku kerja tertentu saja. Saya Perlu menerapkan semua Buku Kerja Excell. Bagaimana menerapkan pengkodean ini ke semua buku kerja excel.
Komentar ini diminimalkan oleh moderator di situs
Halo,SivaG
Ya, kode ini adalah Fungsi Buatan Pengguna, Anda harus menerapkan rumus ke file satu per satu, jika Anda memerlukan kode untuk diterapkan ke beberapa buku kerja, itu akan diterapkan ke semua nomor, jadi semua nomor akan diubah. Dan kode tidak dapat mendukung undo, ada beberapa risiko keamanan. Tidak disarankan untuk melakukan ini. Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara menghapus kata "Rupee"? Biasanya daun cek sudah ada kata "Rupee".
Komentar ini diminimalkan oleh moderator di situs
Halo, Sakariya
Untuk mengatasi masalah Anda, silakan terapkan kode di bawah ini:
Public Function RupeeFormat(SNum As String)
'Updateby Extendoffice
Dim xDPInt As Integer
Dim xArrPlace As Variant
Dim xRStr_Paisas As String
Dim xNumStr As String
Dim xF As Integer
Dim xTemp As String
Dim xStrTemp As String
Dim xRStr As String
Dim xLp As Integer
xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "")
On Error Resume Next
If SNum = "" Then
  RupeeFormat = ""
  Exit Function
End If
xNumStr = Trim(Str(SNum))
If xNumStr = "" Then
  RupeeFormat = ""
  Exit Function
End If

xRStr = ""
xLp = 0
If (xNumStr > 999999999.99) Then
    RupeeFormat = "Digit excced Maximum limit"
    Exit Function
End If
xDPInt = InStr(xNumStr, ".")
If xDPInt > 0 Then
    If (Len(xNumStr) - xDPInt) = 1 Then
       xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2))
    ElseIf (Len(xNumStr) - xDPInt) > 1 Then
       xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2))
    End If
        xNumStr = Trim(Left(xNumStr, xDPInt - 1))
    End If
    xF = 1
    Do While xNumStr <> ""
        If (xF >= 2) Then
            xTemp = Right(xNumStr, 2)
        Else
            If (Len(xNumStr) = 2) Then
                xTemp = Right(xNumStr, 2)
            ElseIf (Len(xNumStr) = 1) Then
                xTemp = Right(xNumStr, 1)
            Else
                xTemp = Right(xNumStr, 3)
            End If
        End If
        xStrTemp = ""
        If Val(xTemp) > 99 Then
            xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp)
            If Right(Trim(xStrTemp), 3) <> "Lac" Then
            xLp = xLp + 1
            End If
        ElseIf Val(xTemp) <= 99 And Val(xTemp) > 9 Then
            xStrTemp = RupeeFormat_GetT(Right(xTemp, 2))
        ElseIf Val(xTemp) < 10 Then
            xStrTemp = RupeeFormat_GetD(Right(xTemp, 2))
        End If
        If xStrTemp <> "" Then
            xRStr = xStrTemp & xArrPlace(xF) & xRStr
        End If
        If xF = 2 Then
            If Len(xNumStr) = 1 Then
                xNumStr = ""
            Else
                xNumStr = Left(xNumStr, Len(xNumStr) - 2)
            End If
       ElseIf xF = 3 Then
            If Len(xNumStr) >= 3 Then
                 xNumStr = Left(xNumStr, Len(xNumStr) - 2)
            Else
                xNumStr = ""
            End If
        ElseIf xF = 4 Then
          xNumStr = ""
    Else
        If Len(xNumStr) <= 2 Then
        xNumStr = ""
    Else
        xNumStr = Left(xNumStr, Len(xNumStr) - 3)
        End If
    End If
        xF = xF + 1
Loop
    If xRStr = "" Then
       xRStr = "No Rupees"
    Else
       xRStr = xRStr
    End If
    If xRStr_Paisas <> "" Then
       xRStr_Paisas = " and " & xRStr_Paisas & " Paisas"
    End If
    RupeeFormat = xRStr & xRStr_Paisas & " Only"
    End Function
Function RupeeFormat_GetH(xStrH As String, xLp As Integer)
Dim xRStr As String
If Val(xStrH) < 1 Then
    RupeeFormat_GetH = ""
    Exit Function
Else
   xStrH = Right("000" & xStrH, 3)
   If Mid(xStrH, 1, 1) <> "0" Then
        If (xLp > 0) Then
         xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac "
        Else
         xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred "
        End If
    End If
    If Mid(xStrH, 2, 1) <> "0" Then
        xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2))
    Else
        xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3))
    End If
End If
    RupeeFormat_GetH = xRStr
End Function
Function RupeeFormat_GetT(xTStr As String)
    Dim xTArr1 As Variant
    Dim xTArr2 As Variant
    Dim xRStr As String
    xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
    xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
    Result = ""
    If Val(Left(xTStr, 1)) = 1 Then
        xRStr = xTArr1(Val(Mid(xTStr, 2, 1)))
    Else
        If Val(Left(xTStr, 1)) > 0 Then
            xRStr = xTArr2(Val(Left(xTStr, 1)) - 1)
        End If
        xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1))
    End If
      RupeeFormat_GetT = xRStr
End Function
Function RupeeFormat_GetD(xDStr As String)
Dim xArr_1() As Variant
    xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "")
    If Val(xDStr) > 0 Then
        RupeeFormat_GetD = xArr_1(Val(xDStr) - 1)
    Else
        RupeeFormat_GetD = ""
    End If
End Function



Silakan dicoba, semoga bisa membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak... 🙂
Komentar ini diminimalkan oleh moderator di situs
Tapi ini hanya berlaku untuk satu excel. Jika saya memasukkan rumus ini di excel lain, ini tidak berfungsi
apa solusi untuk ini
tolong kembalikan
Komentar ini diminimalkan oleh moderator di situs
Halo,

Jika Anda memiliki beberapa buku kerja, Anda perlu menyalin kode ke beberapa buku kerja.
Jika Anda hanya menyalinnya ke satu buku kerja, itu tidak akan berfungsi di buku kerja lain. 😀
Silakan coba, terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak sangat membantu
Komentar ini diminimalkan oleh moderator di situs
Hai Pak, Apakah mungkin mengatur ini secara default untuk setiap lembar kerja excel atau tidak?
Komentar ini diminimalkan oleh moderator di situs
Halo, Mukesh

Ya, selama kode tersebut disalin ke dalam modul jendela vba, rumus tersebut dapat diterapkan ke seluruh buku kerja.
Tapi saat menutup buku kerja, Anda harus menyimpannya sebagai Buku Kerja Excel dengan Makro Aktif format file.
Silakan dicoba, terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Dicoba berkali-kali tetap tidak bisa. Tolong bantu
Komentar ini diminimalkan oleh moderator di situs
Hei, Sangat Membantu! Terima kasih telah membuat kode yang luar biasa.

Ini telah menghemat banyak waktu. "Tuhan memberkati Anda!!"
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL