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.

Langkah 2: Klik pada File dan pilih Option dalam daftar

Langkah 3: Di Excel Option, pilih Customize Ribbon

Langkah 4: Pilih All Tabs di opsi Choose commands from

Langkah 5: Temukan Developer dalam daftar dan klik Add

Langkah 6: Klik OK

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.

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

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

Langkah 4: Klik Insert dan pilih 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 |
|---|

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

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

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

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.

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

Langkah 3: Klik Insert dan pilih 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 |
|---|

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

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

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

Angka dalam rentang yang dipilih akan diubah menjadi kata-kata dalam Rupee India.
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 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.

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"

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

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

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.





