logo
search
list

Daftar Isi

2 Cara Mudah Mengubah Angka Menjadi Huruf dalam Rupee India di Excel:
Alternatif Gratis Terbaik untuk Microsoft Office - WPS Office
FAQ:
Ringkasan:

Cara Mengubah Angka Menjadi Huruf dalam Rupee India di Excel

Diposting oleh Rangga Hafidin

calendar

2026-09-24

views

868

likes

59

Saat Anda bekerja dengan angka di Excel, terkadang Anda perlu menampilkannya dalam bentuk angka dan kata-kata untuk dokumen resmi atau kejelasan. Namun, Excel tidak memiliki cara bawaan untuk melakukan ini, terutama untuk Rupee India. Jadi, Anda mungkin pada akhirnya menggunakan rumus yang rumit, alat eksternal, atau melakukannya secara manual.

Dalam panduan ini, kami akan mengajarkan metode langkah demi langkah yang sederhana untuk mengubah angka menjadi kata-kata untuk Rupee India menggunakan Excel.

2 Cara Mudah Mengubah Angka Menjadi Kata-kata dalam Rupee India di Excel:

Tentu saja, di atas segalanya, Anda harus mendapatkan unduhan Microsoft Excel yang tepat terlebih dahulu!

Metode 1: Mengubah angka menjadi kata-kata dalam Rupee India dengan kode VBA

Sebelum mengubah angka menjadi kata-kata dalam Rupee India menggunakan kode VBA, Anda mungkin perlu menambahkan tab Developer di pita (ribbon) Anda untuk membuka fungsi VBA.

Berikut adalah langkah untuk mengaktifkan tab Developer di Excel:

Langkah 1: Buka lembar bentang Excel yang berisi angka yang ingin Anda ubah.


Angka yang akan diubah dalam Tabel


Langkah 2: Klik pada File dan pilih Option dalam daftar


File OptionAlt: Tombol Option


Langkah 3: Di Excel Option, pilih Customize Ribbon


Tab Option dan Tombol Customize Ribbon


Langkah 4: Pilih All Tabs di opsi Choose commands from


Daftar Choose commands from dengan All Tabs yang dipilih


Langkah 5: Temukan Developer dalam daftar dan klik Add


Tab Developer dan tombol Add


Langkah 6: Klik OK


Tab Developer ditambahkan dan tombol OK


Gunakan Word, Excel, dan PPT secara GRATIS

Sekarang, berikut adalah langkah-langkah untuk mengubah angka menjadi kata-kata dalam Rupee India menggunakan kode VBA:

Langkah 1: Buka lembar bentang Excel yang berisi angka yang ingin Anda ubah.


Angka yang akan diubah dalam Tabel


Langkah 2: Klik tab Developer. Jika Anda tidak melihat tab ini, ikuti langkah di atas untuk mengaktifkannya.


Tab Developer


Langkah 3: Klik Visual Basic atau gunakan pintasan keyboard Alt + F11


Tombol Visual Basic


Langkah 4: Klik Insert dan pilih Module.


Klik opsi Insert > Module


Langkah 5: Tempelkan kode VBA yang disediakan di referensi.

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=""> 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


Kode VBA yang disisipkan di referensi


Langkah 5: Simpan (Ctrl + S) dan tutup editor VBA. Pilih Excel Macro-Enabled Workbook saat menyimpan


Save as type


Langkah 6: Masukkan rumus =RupeeFormat(sel tampilan) ke sel tempat Anda ingin menampilkan kata, lalu tekan Enter


rumus =RupeeFormat(sel tampilan)


Langkah 7: Hasilnya akan ditampilkan. Tarik ke bawah untuk menerapkan rumus ke sel lain


Hasil semua sel muncul


Angka dalam rentang yang dipilih akan diubah menjadi kata-kata dalam Rupee India.

Metode 2: Mengubah Angka Menjadi Kata-kata dalam Rupee India di Excel (Metode Umum)

Pelajari metode umum untuk mengubah angka menjadi kata-kata dalam Rupee India di Excel, sebuah langkah praktis saat Anda menyiapkan faktur untuk pembukuan.

Langkah 1: Buka lembar bentang Excel yang berisi angka yang ingin Anda ubah.


Angka yang akan diubah dalam Tabel


Langkah 2: Klik kanan pada nama lembar dan pilih View Code untuk membuka aplikasi VBA. Ini juga berguna untuk analisis data di Excel.


Tab Lembar dan Tombol View Code


Langkah 3: Klik Insert dan pilih Module.


Klik opsi Insert > Module


Langkah 4: Tempelkan kode VBA yang disediakan di referensi.

Public Function RupeeFormat(SNum As String)

'Update By Nirmal

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=""> 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


Kode VBA yang disisipkan di referensi


Langkah 5: Pilih Excel Macro-Enabled Workbook di bagian Save as type. Tutup jendela editor VBA


Save as type


Langkah 6: Masukkan rumus =RupeeFormat(sel tampilan) ke sel yang dipilih untuk menampilkan hasil.


rumus =RupeeFormat(sel tampilan)


Langkah 7: Tarik ke bawah untuk menerapkan rumus ke sel lain setelah hasil muncul di sel yang dipilih


Hasil semua sel muncul


Angka dalam rentang yang dipilih akan diubah menjadi kata-kata dalam Rupee India.

Unduh Office Gratis
  • Gunakan Word, Excel, dan PPT secara GRATIS, Tanpa Iklan.

  • Edit file PDF dengan toolkit PDF yang andal.

  • Antarmuka mirip Microsoft. Mudah dipelajari. Kompatibilitas 100%.

  • Tingkatkan produktivitas Anda dengan beragam templat Word, Excel, PPT, dan CV gratis dari WPS.

100% aman
avatar
Algirdas Jasaitis

Alternatif Gratis Terbaik untuk Microsoft Office - WPS Office

Selain Microsoft Office, saya akan menawarkan aplikasi lain. Ini adalah WPS Office. Jadi, apa itu WPS?


WPS Office


WPS Office adalah rangkaian aplikasi perkantoran gratis dan sumber terbuka yang kompatibel dengan Microsoft Office. Ini mencakup pengolah kata, lembar bentang, perangkat lunak presentasi, dan pembaca PDF, sehingga Anda dapat dengan mudah membuka, mengedit, dan menyimpan file. Rangkaian ini juga mudah digunakan, bahkan bagi mereka yang belum memiliki pengalaman sebelumnya dengan aplikasi perkantoran.

Tidak hanya itu, WPS Office adalah rangkaian aplikasi perkantoran andal yang menawarkan berbagai macam fitur. Ini merupakan alternatif yang bagus untuk NeoOffice, terutama bagi pelajar dan bisnis dengan anggaran terbatas.

Mari lihat sekilas beberapa fitur WPS:

●  Penggunaan Word, Excel, dan PPT secara gratis. Toolkit PDF yang andal

●  Toko templat yang lengkap

●  Fungsi yang beragam, terdapat asisten resume, formulir pintar, perekaman layar, perbaikan file, dan alat kecil lainnya yang terintegrasi di dalam produk

● Ukuran file produk ini sangat ringan, hanya 200M, dan menghabiskan sedikit ruang pada memori komputer.

● WPS Office versi MAC sangat andal. Microsoft Office sering kali mengabaikan pengalaman pengguna Mac, dan hal ini dapat diatasi oleh WPS Office.

● Mendukung dokumen online (WPS AirPage), pengeditan kolaboratif oleh banyak pengguna sekaligus

● WPS Office juga mendukung sistem Linux, Android, dan iOS. Untuk menggunakan produk WPS Office pada sistem yang berbeda, Anda hanya perlu masuk ke akun yang sama, dan semua file dapat disinkronkan.


Unduh gratis di Berbagai Platform


Anda merasa WPS Office adalah pilihan terbaik untuk Anda dan ingin mengunduhnya? Silakan kunjungi situs web resmi ini: https://www.wps.com dan unduh sekarang.

Cara mengunduh WPS Office

Langkah 1: Kunjungi situs web WPS Office: wps.com.

Langkah 2: Klik tombol "Free Download"


Pilih


Langkah 3: Pilih lokasi tempat Anda ingin menyimpan WPS Office -> Save


Simpan file WPS Office


Langkah 4: Klik ganda pada file WPS Office di folder Unduhan Anda, klik "Run", dan ikuti petunjuk di layar untuk menginstal


Jalankan perangkat lunak


Langkah 5: Setelah selesai, Anda dapat menikmati semua kemampuan dari WPS Office

FAQ:

T1: Bagaimana cara mengubah mata uang menjadi teks di Excel VBA?

  • Anda dapat menggunakan VBA (Visual Basic for Applications) untuk mengubah mata uang menjadi teks di Excel. Anda harus menulis makro VBA kustom untuk melakukan pengubahan ini. Anda dapat menemukan contoh dan cuplikan kode secara online atau melihat dokumentasi Excel VBA untuk panduannya.

T2: Bagaimana cara mengubah mata uang menjadi teks kata-kata di Excel?

  • Untuk mengubah mata uang menjadi kata-kata di Excel, Anda biasanya menggunakan kombinasi fungsi dan pemformatan kustom. Anda dapat menemukan berbagai tutorial dan panduan online yang menjelaskan cara untuk mencapainya.

T3: Bagaimana Anda memformat angka di Excel untuk Rupee India?

  • Untuk memformat angka di Excel bagi Rupee India, Anda dapat menggunakan opsi pemformatan mata uang bawaan. Pilih sel atau rentang yang ingin Anda format, buka tab "Number" pada kotak dialog Format Cells, lalu pilih kategori "Currency". Dari sana, Anda dapat memilih "₹ English (India)" sebagai simbol mata uang.

T4: Bagaimana cara mengubah angka menjadi teks di Excel secara otomatis?

  • Terdapat beberapa cara untuk mengubah angka menjadi teks di Excel secara otomatis. Anda dapat menggunakan fungsi Excel seperti TEXT, CONCATENATE, atau pemformatan kustom. Anda juga dapat menggunakan makro VBA untuk otomatisasi yang lebih tingkat lanjut.

T5: Bagaimana cara mengubah Dolar AS ke Rupee India di Excel?

Untuk mengubah Dolar AS menjadi Rupee India di Excel, Anda dapat menggunakan kombinasi fungsi Excel dengan layanan web atau sumber data eksternal yang menyediakan nilai tukar mata uang. Format "Currency" dari Excel juga dapat digunakan untuk menampilkan jumlah dalam Rupee India setelah mendapatkan nilai tukarnya.

T6. Ingin menggunakan Excel Online agar pekerjaan lebih mudah?

  • Jika Anda lebih suka bekerja di cloud, Excel Online menawarkan fitur andal yang sama guna membantu Anda mengelola dan membersihkan data dari mana saja. Dengan Excel Online, Anda dapat menggunakan fungsi yang sama untuk menghapus karakter dari sisi kiri atau kanan data Anda, menjadikannya pilihan tepat bagi mereka yang membutuhkan fleksibilitas atau tidak memiliki akses ke Excel versi desktop.

Ringkasan:

Pelajari cara mudah untuk mengubah jumlah numerik menjadi kata-kata dalam Rupee India di Excel, menggunakan kode VBA ataupun metode umum. Pertama, aktifkan tab Developer di Excel, tambahkan kode VBA yang disediakan, lalu gunakan rumus =RupeeFormat(sel tampilan).

Sebagai alternatif, klik kanan nama lembar untuk mengakses VBA, sisipkan modul, tempelkan kode, lalu terapkan rumus yang sama. Metode praktis ini juga kompatibel dengan WPS Office, alternatif gratis untuk Microsoft Office, yang membuat proses pemformatan dokumen yang presisi dan profesional menjadi sangat mudah.

100% aman


Rangga Hafidin

Penulis teknologi dan linguis 10+ tahun di industri Office. Specialist review produk jelas dan analisis teknis mendalam.