logo
search
list

Jadual Kandungan

2 Cara Mudah Menukar Nombor kepada Perkataan dalam Rupee India di Excel:
Alternatif Percuma Terbaik untuk Microsoft Office - WPS Office
Soalan Lazim:
Ringkasan:

Cara Menukar Nombor kepada Perkataan dalam Rupee India di Excel

Dihantar oleh Ahmad Fauzi

calendar

2026-09-24

views

868

likes

59

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.


Nombor untuk ditukar dalam Jadual


Langkah 2: Klik pada Fail dan pilih Pilihan dalam senarai


Fail Pilihan Alt: Butang Pilihan


Langkah 3: Dalam Pilihan Excel pilih Sesuaikan Reben


Tab Pilihan dan Butang Sesuaikan Reben


Langkah 4: Pilih semua tab dalam pilihan Pilih perintah daripada


Pilih perintah daripada senarai dengan Semua tab dipilih


Langkah 5: Cari Pembangun dalam senarai dan klik Tambah


Tab Pembangun dan Butang Tambah


Langkah 6: Klik pada OK


Tab Pembangun sedang ditambahkan dan butang OK


Gunakan Word, Excel dan PPT secara PERCUMA

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.


Nombor untuk ditukar dalam Jadual


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


Tab Pembangun


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


Butang Visual Basic


Langkah 4: Klik Sisip dan pilih modul.


Klik pilihan Sisip > 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


Kod VBA dimasukkan dalam rujukan


Langkah 5: Simpan (Ctrl + S) dan tutup editor VBA. Pilih Buku Kerja Didayakan Makro Excel apabila menyimpan


Simpan sebagai jenis


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


formula =RupeeFormat(sel paparan)


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


Hasil semua sel dipaparkan


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.


Nombor untuk ditukar dalam Jadual


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


Tab Helaian dan Butang Lihat kod


Langkah 3: Klik Sisip dan pilih modul.


Klik pilihan Sisip > 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


Kod VBA dimasukkan dalam rujukan


Langkah 5: Pilih Buku Kerja Didayakan Makro Excel dalam Simpan sebagai jenis. Tutup tetingkap editor VBA


Simpan sebagai jenis


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


formula =RupeeFormat(sel paparan)


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


Hasil semua sel dipaparkan


Nombor dalam julat yang dipilih akan ditukar kepada perkataan dalam Rupee India.

Muat Turun Office Percuma
  • Gunakan Word, Excel dan PPT secara PERCUMA, Tanpa Iklan.

  • Edit fail PDF dengan kit alat PDF yang berkuasa.

  • Antara muka seperti Microsoft. Mudah dipelajari. Keserasian 100%.

  • Tingkatkan produktiviti anda dengan templat Word, Excel, PPT dan CV percuma WPS yang banyak.

100% selamat
avatar
Algirdas Jasaitis

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


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


Muat turun percuma di Pelbagai Platform


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"


Pilih


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


Simpan fail WPS Office


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


Jalankan perisian


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.

100% selamat


Ahmad Fauzi

Bekas jurutera IT bertukar ke penulisan teknikal, 9 tahun fokus pada panduan pengguna dan penyelesaian pejabat digital. Saya berkongsi tutorial langkah-demi-langkah untuk memaksimumkan ciri WPS Office.