logo
search
list

תוכן העניינים

2 דרכים קלות להמרת מספרים למילים ברופי הודי ב-Excel:
החלופה החינמית הטובה ביותר ל-Microsoft Office - WPS Office
שאלות נפוצות:
סיכום:

כיצד להמיר מספרים למילים ברופי הודי ב-Excel

פורסם על ידי Algirdas Jasaitis

calendar

2026-09-24

views

868

likes

59

כאשר עובדים עם מספרים ב-Excel, לפעמים צריך להציג אותם גם במספרים וגם במילים עבור מסמכים רשמיים או לשם הבהרה. אך ל-Excel אין דרך מובנית לעשות זאת, במיוחד עבור רופי הודי. לכן, ייתכן שתמצאו את עצמכם משתמשים בנוסחאות מורכבות, כלים חיצוניים או עושים זאת באופן ידני.

במדריך זה, נלמד אתכם שיטה פשוטה שלב-אחר-שלב להמרת מספרים למילים עבור רופי הודי באמצעות Excel.

2 דרכים קלות להמרת מספרים למילים ברופי הודי ב-Excel:

כמובן, לפני הכל, תצטרכו לבצע הורדה של Microsoft Excel כראוי!

שיטה 1: המרת מספרים למילים ברופי הודי עם קוד VBA

לפני המרת מספרים למילים ברופי הודי באמצעות קוד VBA, ייתכן שתצטרכו להוסיף את כרטיסיית המפתחים (Developer) לסרט הכלים שלכם כדי לפתוח את פונקציית ה-VBA.

להלן השלבים להפעלת כרטיסיית המפתחים ב-Excel:

שלב 1: פתחו את הגיליון האלקטרוני של Excel המכיל את המספרים שברצונכם להמיר.


המספר להמרה בטבלה


שלב 2: לחצו על 'קובץ' (File) ובחרו ב'אפשרויות' (Options) מתוך הרשימה


אפשרות קובץ Alt: לחצן אפשרויות


שלב 3: באפשרויות Excel, בחרו ב'התאמה אישית של רצועת הכלים' (Customize Ribbon)


כרטיסיית אפשרויות ולחצן התאמה אישית של רצועת הכלים


שלב 4: בחרו ב'כל הכרטיסיות' (All Tabs) תחת האפשרות 'בחר פקודות מתוך' (Choose commands from)


רשימת 'בחר פקודות מתוך' עם 'כל הכרטיסיות' נבחרת


שלב 5: מצאו את 'מפתחים' (Developer) ברשימה ולחצו על 'הוסף' (Add)


כרטיסיית מפתחים ולחצן הוספה


שלב 6: לחצו על 'אישור' (OK)


כרטיסיית מפתחים שנוספה ולחצן אישור


השתמשו ב-Word, Excel ו-PPT בחינם

כעת, להלן השלבים להמרת מספרים למילים ברופי הודי באמצעות קוד VBA:

שלב 1: פתחו את הגיליון האלקטרוני של Excel המכיל את המספרים שברצונכם להמיר.


המספר להמרה בטבלה


שלב 2: לחצו על כרטיסיית 'מפתחים' (Developer). אם אינכם רואים כרטיסייה זו, בצעו את השלבים שלעיל כדי להפעיל אותה


כרטיסיית מפתחים


שלב 3: לחצו על Visual Basic או השתמשו בקיצור המקלדת Alt + F11


לחצן Visual Basic


שלב 4: לחצו על 'הוספה' (Insert) ובחרו ב'מודול' (Module).


לחיצה על אפשרות הוספה > מודול


שלב 5: הדביקו את קוד ה-VBA המצורף כמקור.

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


קוד VBA שהוזן במקור


שלב 5: שמרו (Ctrl + S) וסגרו את עורך ה-VBA. בחרו ב-Excel Macro-Enabled Workbook בעת השמירה


שמור כסוג


שלב 6: הזינו את הנוסחה =RupeeFormat(display cell) בתא שבו תרצו להציג את המילים ולחצו על Enter


נוסחה =RupeeFormat(display cell)


שלב 7: התוצאה תוצג. גררו כלפי מטה כדי להחיל את הנוסחה על תאים אחרים


תוצאת כל התאים מופיעה


המספרים בטווח שנבחר יומרו למילים ברופי הודי.

שיטה 2: המרת מספרים למילים ברופי הודי ב-Excel (שיטה נפוצה)

למדו את השיטה הנפוצה להמרת מספרים למילים ברופי הודי בתוך Excel, שלב שימושי בעת הכנת חשבוניות עבור הנהלת חשבונות.

שלב 1: פתחו את הגיליון האלקטרוני של Excel המכיל את המספרים שברצונכם להמיר.


המספר להמרה בטבלה


שלב 2: לחצו לחיצה ימנית על שם הגיליון ובחרו 'הצג קוד' (View Code) כדי לפתוח את יישום ה-VBA. זה שימושי גם עבור ניתוח נתונים ב-Excel.


כרטיסיית גיליון ולחצן הצג קוד


שלב 3: לחצו על 'הוספה' (Insert) ובחרו ב'מודול' (Module).


לחיצה על אפשרות הוספה > מודול


שלב 4: הדביקו את קוד ה-VBA המצורף כמקור.

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


קוד VBA שהוזן במקור


שלב 5: בחרו ב-Excel Macro-Enabled Workbook ב'שמור כסוג'. סגרו את חלון עורך ה-VBA


שמור כסוג


שלב 6: הזינו את הנוסחה =RupeeFormat(display cell) לתא הנבחר כדי להציג את התוצאה.


נוסחה =RupeeFormat(display cell)


שלב 7: גררו כלפי מטה כדי להחיל את הנוסחה על תאים אחרים לאחר שהתוצאות מופיעות בתא הנבחר


תוצאת כל התאים מופיעה


המספרים בטווח שנבחר יומרו למילים ברופי הודי.

הורדת Office בחינם

  • השתמשו ב-Word, Excel ו-PPT בחינם, ללא פרסומות.

  • עריכת קבצי PDF בעזרת ערכת כלי PDF העוצמתית.

  • ממשק דמוי Microsoft. קל ללמידה. תאימות של 100%.

  • הגבירו את הפרודוקטיביות שלכם עם השפע של תבניות Word, Excel, PPT וקורות חיים חינמיות של WPS.

100% מאובטח
אווטאר
Algirdas Jasaitis

האלטרנטיבה החינמית הטובה ביותר ל-Microsoft Office - WPS Office

מלבד Microsoft Office, אציע לכם יישום נוסף. זהו WPS Office. אז, מה זה WPS?


WPS Office


WPS Office היא חבילת יישומי משרד חינמית התואמת ל-Microsoft Office. היא כוללת מעבד תמלילים, גיליון אלקטרוני, תוכנת מצגות וקורא קבצי PDF, כך שתוכלו לפתוח, לערוך ולשמור קבצים בקלות. היא גם קלה לשימוש, אפילו לאנשים ללא ניסיון קודם בתוכנות משרדיות.

לא רק זה, WPS Office היא חבילת יישומי משרד עוצמתית המציעה מגוון רחב של תכונות. זוהי חלופה טובה ל-NeoOffice, במיוחד עבור סטודנטים ועסקים בעלי תקציב מוגבל.

העיפו מבט מהיר על כמה מהתכונות של WPS:

●  שימוש חינמי ב-Word, Excel ו-PPT. ערכת כלי PDF עוצמתית

●  חנות תבניות עשירה

●  פונקציות עשירות, עזרי קורות חיים, טפסים חכמים, הקלטת מסך, תיקון קבצים וכלים קטנים נוספים המשולבים במוצר

● התוכנה קלת משקל, שוקלת כ-200MB בלבד, ותופסת כמות קטנה של זיכרון מחשב.

● גרסת ה-Mac של WPS Office היא עוצמתית מאוד. Microsoft Office נוטה להתעלם מחוויית המשתמש של לקוחות Mac, ו-WPS Office נותן לכך מענה מושלם.

● תמיכה ב מסמכים מקוונים (WPS AirPage), עריכה משותפת מרובת משתמשים

● WPS Office תומך גם במערכות Linux, Android ו-iOS. כדי להשתמש במוצרי WPS Office במערכות שונות, עליכם רק להתחבר לאותו חשבון, וכל הקבצים יסונכרנו


הורדה חינם במספר פלטפורמות


מרגישים ש-WPS Office היא הבחירה הטובה ביותר עבורכם ורוצים להוריד? אנא בקרו באתר הרשמי: https://www.wps.com והורידו כעת.

כיצד להוריד את WPS Office

שלב 1: בקרו באתר WPS Office בכתובת: wps.com.

שלב 2: לחצו על לחצן "Free Download" (הורדה בחינם)


בחרו


שלב 3: בחרו את המיקום בו תרצו לשמור את WPS Office -> שמור


שמירת קובץ WPS Office


שלב 4: לחצו לחיצה כפולה על קובץ WPS Office בתיקיית ההורדות שלכם, לחצו על "הפעל" (Run) ועקבו אחר ההוראות שעל המסך כדי להתקין


הפעלת התוכנה


שלב 5: בסיום, תוכלו ליהנות מכל העוצמה של WPS Office

שאלות נפוצות:

ש1: כיצד ניתן להמיר מטבע לטקסט ב-Excel VBA?

  • ניתן להשתמש ב-VBA (Visual Basic for Applications) כדי להמיר מטבע לטקסט ב-Excel. תצטרכו לכתוב מאקרו VBA מותאם אישית כדי לבצע המרה זו. תוכלו למצוא דוגמאות וקטעי קוד באינטרנט או לעיין בתיעוד VBA של Excel לקבלת הדרכה.

ש2: כיצד להמיר מטבע למילים ב-Excel?

  • כדי להמיר מטבע למילים ב-Excel, בדרך כלל משתמשים בשילוב של פונקציות ועיצוב מותאם אישית. תוכלו למצוא מדריכים רבים באינטרנט המסבירים כיצד לעשות זאת.

ש3: כיצד מעצבים מספרים ב-Excel לרופי הודי?

  • כדי לעצב מספרים ב-Excel לרופי הודי, תוכלו להשתמש באפשרויות עיצוב המטבע המובנות. בחרו את התא או הטווח שברצונכם לעצב, עברו לכרטיסיית "מספר" (Number) בתיבת הדו-שיח 'עיצוב תאים' (Format Cells), ובחרו בקטגוריה "מטבע" (Currency). משם, תוכלו לבחור ב-"₹ אנגלית (הודו)" כסמל המטבע.

ש4: כיצד אני ממיר מספרים לטקסט ב-Excel באופן אוטומטי?

  • ישנן מספר דרכים להמיר מספרים לטקסט ב-Excel באופן אוטומטי. ניתן להשתמש בפונקציות Excel כגון TEXT, CONCATENATE, או בעיצוב מותאם אישית. ניתן גם להשתמש בפקודות מאקרו ב-VBA לאוטומציה מתקדמת יותר.

ש5: כיצד להמיר דולר אמריקאי לרופי הודי ב-Excel?

כדי להמיר דולרים אמריקאים לרופי הודי ב-Excel, ניתן להשתמש בשילוב של פונקציות Excel ושירותי אינטרנט או מקורות נתונים חיצוניים המספקים שערי חליפין. פורמט ה"מטבע" של Excel יכול לשמש גם להצגת סכומים ברופי הודי לאחר קבלת שערי החליפין.

ש6. רוצים להשתמש ב-Excel Online לעבודה קלה יותר?

  • אם אתם מעדיפים לעבוד בענן, Excel Online מציע את אותן תכונות עוצמתיות שיעזרו לכם לנהל ולנקות את הנתונים שלכם מכל מקום. עם Excel Online, תוכלו להשתמש באותן פונקציות כדי להסיר תווים מצד ימין או שמאל של הנתונים שלכם, מה שהופך אותו לאפשרות נהדרת עבור אלו שזקוקים לגמישות או שאין להם גישה לגרסת שולחן העבודה של Excel.

סיכום:

למדו כיצד להמיר בקלות סכומים מספריים למילים ברופי הודי בתוך Excel, באמצעות קוד VBA או שיטה נפוצה. תחילה, הפעילו את כרטיסיית המפתחים ב-Excel, הוסיפו את קוד ה-VBA שסופק, והשתמשו בנוסחה =RupeeFormat(display cell).

לחלופין, לחצו לחיצה ימנית על שם הגיליון כדי לגשת ל-VBA, הוסיפו מודול, הדביקו את הקוד, והשתמשו באותה נוסחה. שיטות ידידותיות אלו למשתמש תואמות גם ל-WPS Office, חלופה חינמית ל-Microsoft Office, מה שהופך עיצוב מסמכים מדויק ומקצועי למשחק ילדים.

100% מאובטח


Algirdas Jasaitis

Algirdas Jasaitis

facebooktwitteryoutube

15 years of office industry experience, tech lover and copywriter. Follow me for product reviews, comparisons, and recommendations for new apps and software.

פוסטים נוספים שעשויים לעניין אותך

Messages

LibreOffice Draw: מדריך להורדה בחינם

icon-arrowPencil

סקירת WPS Office: יתרונות, חסרונות ולמי זה הכי מתאים

icon-arrowNotifications

מפתח רישיון בחינם ב-Giveaway of the Day עבור WPS Premium 2026

icon-arrowFolder

3 דרכים קלות להשתמש ב-Microsoft Office בחינם במכשירי iOS (המדריך המלא)

icon-arrowLight

איך לתקן מילוי אוטומטי שלא עובד באקסל

icon-arrowCalendar

5 אפליקציות חינמיות לקריאת מסמכי Word לאנדרואיד בשנת 2026

icon-arrow