Apabila anda bekerja dengan nombor dalam Excel, kadangkala anda perlu memaparkannya dalam bentuk nombor dan perkataan untuk dokumen rasmi atau kejelasan. Tetapi Excel tidak mempunyai cara terbina dalam untuk melakukan ini, terutamanya untuk Rupee India. Jadi, anda mungkin akhirnya menggunakan formula yang rumit, alat luaran atau melakukannya secara manual.
Dalam panduan ini, kami akan mengajar anda kaedah langkah demi langkah yang mudah untuk menukar nombor kepada perkataan bagi Rupee India menggunakan Excel.
2 Cara Mudah untuk Menukar Nombor kepada Perkataan dalam Rupee India di Excel:
Sudah tentu, paling utama, anda perlu mendapatkan muat turun Microsoft Excel yang betul terlebih dahulu!
Kaedah 1: Menukar nombor kepada perkataan dalam Rupee India dengan kod VBA
Sebelum menukar nombor kepada perkataan dalam Rupee India menggunakan kod VBA, anda mungkin perlu menambahkan tab Pembangun pada reben anda untuk membuka fungsi VBA.
Berikut ialah langkah untuk mendayakan tab Pembangun dalam Excel:
Langkah 1: Buka lembaran kerja Excel yang mengandungi nombor yang ingin anda tukar.

Langkah 2: Klik pada Fail dan pilih Pilihan dalam senarai

Langkah 3: Dalam Pilihan Excel pilih Sesuaikan Reben

Langkah 4: Pilih semua tab dalam pilihan Pilih perintah daripada

Langkah 5: Cari Pembangun dalam senarai dan klik Tambah

Langkah 6: Klik pada OK

Berikut ialah langkah untuk menukar nombor kepada perkataan dalam Rupee India menggunakan kod VBA:
Langkah 1: Buka lembaran kerja Excel yang mengandungi nombor yang ingin anda tukar.

Langkah 2: Klik pada tab Pembangun. Jika anda tidak melihat tab ini, ikuti langkah di atas untuk mendayakannya

Langkah 3: Klik pada Visual Basic atau gunakan pintasan papan kekunci Alt + F11

Langkah 4: Klik Sisip dan pilih modul.

Langkah 5: Tampalkan kod VBA yang disediakan dalam rujukan.
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 Buku Kerja Didayakan Makro Excel apabila menyimpan

Langkah 6: Masukkan formula =RupeeFormat(sel paparan) ke dalam sel yang ingin anda paparkan perkataan dan klik Enter

Langkah 7: Hasil akan dipaparkan. Seret ke bawah untuk menggunakan formula pada sel lain

Nombor dalam julat yang dipilih akan ditukar kepada perkataan dalam Rupee India.
Kaedah 2: Menukar Nombor kepada Perkataan dalam Rupee India di Excel (Kaedah Biasa)
Pelajari kaedah biasa untuk menukar nombor kepada perkataan dalam Rupee India dalam Excel, langkah yang berguna apabila anda menyediakan invois untuk simpan kira.
Langkah 1: Buka lembaran kerja Excel yang mengandungi nombor yang ingin anda tukar.

Langkah 2: Klik kanan pada nama helaian dan pilih Lihat kod untuk membuka aplikasi VBA. Ini juga berguna untuk analisis data dalam Excel.

Langkah 3: Klik Sisip dan pilih modul.

Langkah 4: Tampalkan kod VBA yang disediakan dalam rujukan.
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 Buku Kerja Didayakan Makro Excel dalam Simpan sebagai jenis. Tutup tetingkap editor VBA

Langkah 6: Masukkan formula =RupeeFormat(sel paparan) ke dalam sel yang dipilih untuk memaparkan hasil.

Langkah 7: Seret ke bawah untuk menggunakan formula pada sel lain selepas hasil muncul dalam sel yang dipilih

Nombor dalam julat yang dipilih akan ditukar kepada perkataan dalam Rupee India.
Alternatif Percuma Terbaik kepada Microsoft Office - WPS Office
Selain Microsoft Office, saya akan menawarkan anda satu lagi aplikasi. Ini ialah WPS Office. Jadi, apakah itu WPS?

WPS Office ialah suite pejabat percuma dan sumber terbuka yang serasi dengan Microsoft Office. Ia termasuk pemproses perkataan, hamparan elektronik, perisian pembentangan dan pembaca PDF, jadi anda boleh membuka, mengedit dan menyimpan fail dengan mudah. Ia juga mudah digunakan, walaupun untuk orang yang tiada pengalaman terdahulu dengan suite pejabat.
Bukan itu sahaja, WPS Office ialah suite pejabat yang berkuasa yang menawarkan pelbagai ciri. Ia merupakan alternatif yang baik kepada NeoOffice, terutamanya untuk pelajar dan perniagaan dengan bajet terhad.
Lihat sekilas beberapa ciri WPS:
● Percuma untuk menggunakan Word, Excel dan PPT. Kit alat PDF yang berkuasa
● Gedung templat yang kaya
● Fungsi yang kaya; terdapat pembantu resume, borang pintar, rakaman skrin, pembaikan fail dan alat kecil lain yang disepadukan dalam produk
● Produk ini ringan, saiznya hanya 200M, dan menggunakan sedikit memori komputer.
● Versi MAC WPS Office sangat berkuasa. Microsoft Office mengabaikan pengalaman pengguna Mac, yang boleh ditampung oleh WPS Office
● Menyokong dokumen dalam talian (WPS AirPage), penyuntingan kolaboratif berbilang pengguna
● WPS Office juga menyokong sistem Linux, Android dan iOS. Untuk menggunakan produk WPS Office pada sistem yang berbeza, anda hanya perlu log masuk ke akaun yang sama, dan semua fail boleh disegerakkan

Anda rasa WPS Office ialah pilihan terbaik untuk anda dan ingin memuat turun? Sila lawati laman web rasmi ini: https://www.wps.com dan muat turun sekarang.
Cara memuat turun WPS Office
Langkah 1: Lawati laman web WPS Office: wps.com.
Langkah 2: Klik butang "Muat Turun Percuma"

Langkah 3: Pilih lokasi anda ingin menyimpan WPS Office -> Simpan

Langkah 4: Klik dua kali pada fail WPS Office dalam folder Muat Turun anda, klik "Jalankan" dan ikut arahan pada skrin untuk memasang

Langkah 5: Selepas selesai, anda boleh menikmati semua keupayaan WPS Office
Soalan Lazim:
S1: Bagaimana cara saya menukar mata wang kepada teks dalam Excel VBA?
Anda boleh menggunakan VBA (Visual Basic for Applications) untuk menukar mata wang kepada teks dalam Excel. Anda perlu menulis makro VBA tersuai untuk melakukan penukaran ini. Anda boleh mencari contoh dan coretan kod dalam talian atau merujuk dokumentasi Excel VBA untuk panduan.
S2: Bagaimana cara menukar mata wang kepada teks perkataan dalam Excel?
Untuk menukar mata wang kepada perkataan dalam Excel, anda biasanya menggunakan gabungan fungsi dan pemformatan tersuai. Anda boleh menemui pelbagai tutorial dan panduan dalam talian yang menerangkan cara melakukannya.
S3: Bagaimana anda memformat nombor dalam Excel untuk Rupee India?
Untuk memformat nombor dalam Excel untuk Rupee India, anda boleh menggunakan pilihan pemformatan mata wang terbina dalam. Pilih sel atau julat yang ingin anda format, pergi ke tab "Nombor" dalam kotak dialog Format Sel, dan pilih kategori "Mata Wang". Dari situ, anda boleh memilih "₹ English (India)" sebagai simbol mata wang.
S4: Bagaimana cara saya menukar nombor kepada teks dalam Excel secara automatik?
Terdapat beberapa cara untuk menukar nombor kepada teks dalam Excel secara automatik. Anda boleh menggunakan fungsi Excel seperti TEXT, CONCATENATE atau pemformatan tersuai. Anda juga boleh menggunakan makro VBA untuk automasi yang lebih maju.
S5: Bagaimana cara menukar dolar AS kepada Rupee India dalam Excel?
Untuk menukar dolar AS kepada Rupee India dalam Excel, anda boleh menggunakan gabungan fungsi Excel dan perkhidmatan web atau sumber data luaran yang menyediakan kadar pertukaran mata wang. Format "Mata Wang" Excel juga boleh digunakan untuk memaparkan jumlah dalam Rupee India selepas mendapatkan kadar pertukaran.
S5. Ingin menggunakan Excel Online untuk kerja yang lebih mudah?
Jika anda lebih suka bekerja dalam awan, Excel Online menawarkan ciri berkuasa yang sama untuk membantu anda mengurus dan membersihkan data anda dari mana-mana sahaja. Dengan Excel Online, anda boleh menggunakan fungsi yang sama untuk membuang aksara dari sebelah kiri atau kanan data anda, menjadikannya pilihan hebat bagi mereka yang memerlukan fleksibiliti atau tidak mempunyai akses kepada versi desktop Excel.
Ringkasan:
Pelajari cara menukar jumlah berangka kepada perkataan dalam Rupee India dengan mudah dalam Excel, menggunakan sama ada kod VBA atau kaedah biasa. Mula-mula, dayakan tab Pembangun dalam Excel, tambahkan kod VBA yang disediakan, dan gunakan formula =RupeeFormat(sel paparan).
Sebagai alternatif, klik kanan nama helaian untuk mengakses VBA, sisipkan modul, tampalkan kod, dan gunakan formula yang sama. Kaedah mesra pengguna ini juga serasi dengan WPS Office, alternatif percuma kepada Microsoft Office, menjadikan pemformatan dokumen yang tepat dan profesional sangat mudah.





