logo
search
list

جدول المحتويات

طريقتان سهلتان لتحويل الأرقام إلى نصوص بالروبية الهندية في الإكسيل:
أفضل بديل مجاني لبرامج مايكروسوفت أوفيس - WPS Office
الأسئلة الشائعة:
الخلاصة:

كيفية تحويل الأرقام إلى نصوص بالروبية الهندية في الإكسيل

منشور بواسطة Algirdas Jasaitis

calendar

2026-09-24

views

868

likes

59

عندما تعمل بالأرقام في Excel، قد تحتاج أحيانًا إلى عرضها بالأرقام والكلمات معًا للمستندات الرسمية أو لتكون أكثر وضوحًا. ولكن Excel لا يحتوي على طريقة مضمنة للقيام بذلك، خاصة بالنسبة للروبية الهندية. لذا، قد ينتهي بك الأمر باستخدام صيغ معقدة أو أدوات خارجية أو القيام بذلك يدويًا.

في هذا الدليل، سنعلمك طريقة بسيطة خطوة بخطوة لتحويل الأرقام إلى كلمات للروبية الهندية باستخدام Excel.

طريقتان سهلتان لتحويل الأرقام إلى كلمات بالروبية الهندية في Excel:

بالطبع، قبل كل شيء، تحتاج إلى الحصول على تنزيل Microsoft Excel مناسب أولاً!

الطريقة 1: تحويل الأرقام إلى كلمات بالروبية الهندية باستخدام كود VBA

قبل تحويل الأرقام إلى كلمات بالروبية الهندية باستخدام كود VBA، قد تحتاج إلى إضافة علامة تبويب المطور (Developer) في الشريط الخاص بك لفتح وظيفة VBA.

إليك خطوة تمكين علامة تبويب المطور في Excel:

الخطوة 1: افتح جدول بيانات Excel الذي يحتوي على الأرقام التي تريد تحويلها.


الرقم المراد تحويله في الجدول


الخطوة 2: انقر على ملف (File) واختر خيارات (Options) من القائمة


File OptionAlt: زر الخيارات (Option Button)


الخطوة 3: في خيارات Excel (Excel Options)، اختر تخصيص الشريط (Customize Ribbon)


علامة تبويب الخيارات وزر تخصيص الشريط


الخطوة 4: اختر كل علامات التبويب (All Tabs) في خيار اختيار الأوامر من (Choose commands from)


اختيار الأوامر من القائمة مع تحديد خيار كل علامات التبويب (All Tabs)


الخطوة 5: ابحث عن المطور (Developer) في القائمة وانقر على إضافة (Add)


علامة تبويب المطور وزر الإضافة


الخطوة 6: انقر على موافق (OK)


إضافة علامة تبويب المطور وزر موافق


استخدم Word وExcel وPPT مجانًا

الآن إليك خطوات تحويل الأرقام إلى كلمات بالروبية الهندية باستخدام كود VBA:

الخطوة 1: افتح جدول بيانات Excel الذي يحتوي على الأرقام التي تريد تحويلها.


الرقم المراد تحويله في الجدول


الخطوة 2: انقر على علامة تبويب المطور (Developer). إذا لم تكن ترى هذه العلامة، فاتبع الخطوات أعلاه لتمكينها


علامة تبويب المطور


الخطوة 3: انقر على Visual Basic أو استخدم اختصار لوحة المفاتيح Alt + F11


زر Visual Basic


الخطوة 4: انقر على إدراج (Insert) واختر وحدة نمطية (Module).


انقر على خيار إدراج (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 ممكّن بماكرو (Excel Macro-Enabled Workbook) عند الحفظ


حفظ كنوع (Save as type)


الخطوة 6: أدخل الصيغة =RupeeFormat(display cell) في الخلية التي تريد عرض الكلمة فيها واضغط على Enter


الصيغة =RupeeFormat(display cell)


الخطوة 7: سيتم عرض النتيجة. اسحب لأسفل لتطبيق الصيغة على الخلايا الأخرى


ظهور نتيجة كل الخلايا


سيتم تحويل الأرقام في النطاق المحدد إلى كلمات بالروبية الهندية.

الطريقة 2: تحويل الأرقام إلى كلمات بالروبية الهندية في Excel (الطريقة الشائعة)

تعرف على الطريقة الشائعة لتحويل الأرقام إلى كلمات بالروبية الهندية في Excel، وهي خطوة مفيدة عند إعداد الفواتير لـ مسك الدفاتر.

الخطوة 1: افتح جدول بيانات Excel الذي يحتوي على الأرقام التي تريد تحويلها.


الرقم المراد تحويله في الجدول


الخطوة 2: انقر بزر الماوس الأيمن على اسم الورقة وحدد عرض الكود (View Code) لفتح تطبيق VBA. كما أنه مفيد لـ تحليل البيانات في Excel.


علامة تبويب الورقة وزر عرض الكود


الخطوة 3: انقر على إدراج (Insert) واختر وحدة نمطية (Module).


انقر على خيار إدراج (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 ممكّن بماكرو (Excel Macro-Enabled Workbook) في نوع الحفظ. أغلق نوافذ محرر VBA


حفظ كنوع (Save as type)


الخطوة 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 قوية

●  متجر قوالب غني

●  وظائف غنية، حيث يتوفر مساعد السيرة الذاتية، والنماذج الذكية، وتسجيل الشاشة، وإصلاح الملفات، وأدوات صغيرة أخرى مدمجة في المنتج

● حجم البرنامج خفيف حيث يبلغ حوالي 200 ميجابايت فقط، ويشغل مساحة صغيرة من ذاكرة الكمبيوتر.

● إصدار 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 فيه -> حفظ (Save)


حفظ ملف WPS Office


الخطوة 4: انقر نقرًا مزدوجًا على ملف WPS Office في مجلد التنزيلات الخاص بك، ثم انقر على "تشغيل (Run)" واتبع التعليمات التي تظهر على الشاشة للتثبيت


تشغيل البرنامج


الخطوة 5: بعد الانتهاء، يمكنك الاستمتاع بجميع إمكانيات WPS Office

الأسئلة الشائعة:

س1: كيف يمكنني تحويل العملة إلى نص في Excel VBA؟

  • يمكنك استخدام VBA (Visual Basic for Applications) لتحويل العملة إلى نص في Excel. ستحتاج إلى كتابة ماكرو VBA مخصص لإجراء هذا التحويل. يمكنك العثور على أمثلة ومقاطع أكواد برمجية عبر الإنترنت أو الرجوع إلى وثائق Excel VBA للحصول على إرشادات.

س2: كيف يمكنني تحويل العملة إلى كلمات نصية في Excel؟

  • لتحويل العملة إلى كلمات في Excel، عادةً ما تستخدم مجموعة من الدوال والتنسيق المخصص. يمكنك العثور على العديد من البرامج التعليمية والأدلة عبر الإنترنت التي تشرح كيفية تحقيق ذلك.

س3: كيف تقوم بتنسيق الأرقام في Excel للروبية الهندية؟

  • لتنسيق الأرقام في Excel بالروبية الهندية، يمكنك استخدام خيارات تنسيق العملة المضمنة. حدد الخلية أو النطاق الذي تريد تنسيقه، وانتقل إلى علامة التبويب "رقم (Number)" في مربع حوار تنسيق الخلايا (Format Cells)، واختر فئة "عملة (Currency)". من هناك، يمكنك تحديد "₹ English (India)" كرمز للعملة.

س4: كيف أقوم بتحويل الأرقام إلى نص في Excel تلقائيًا؟

  • توجد عدة طرق لتحويل الأرقام إلى نص في Excel تلقائيًا. يمكنك استخدام دوال Excel مثل TEXT أو CONCATENATE أو التنسيق المخصص. يمكنك أيضًا استخدام وحدات ماكرو VBA للحصول على أتمتة أكثر تقدمًا.

س5: كيف يمكنني تحويل الدولار الأمريكي إلى الروبية الهندية في Excel؟

لتحويل الدولار الأمريكي إلى الروبية الهندية في Excel، يمكنك استخدام مجموعة من دوال Excel وخدمات الويب أو مصادر البيانات الخارجية التي توفر أسعار صرف العملات. يمكن أيضًا استخدام تنسيق "العملة (Currency)" في Excel لعرض المبالغ بالروبية الهندية بعد الحصول على أسعار الصرف.

س6. هل ترغب في استخدام Excel Online لتسهيل عملك؟

  • إذا كنت تفضل العمل في التخزين السحابي، فإن Excel Online يقدم لك نفس الميزات القوية لمساعدتك في إدارة بياناتك وتنظيفها من أي مكان. باستخدام Excel Online، يمكنك استخدام نفس الدوال لإزالة الأحرف من الجانب الأيسر أو الأيمن من بياناتك، مما يجعله خيارًا رائعًا لمن يحتاجون إلى المرونة أو لا يمكنهم الوصول إلى إصدار سطح المكتب من Excel.

ملخص:

تعرف على كيفية تحويل المبالغ الرقمية إلى كلمات بالروبية الهندية بسهولة داخل Excel، إما باستخدام كود VBA أو طريقة شائعة. أولاً، قم بتمكين علامة تبويب المطور (Developer) في Excel، وأضف كود VBA المقدم، واستخدم الصيغة =RupeeFormat(display cell).

بدلاً من ذلك، انقر بزر الماوس الأيمن على اسم الورقة للوصول إلى VBA، وأدرج وحدة نمطية (Module)، والصق الكود، واستخدم نفس الصيغة. هذه الطرق سهلة الاستخدام متوافقة أيضًا مع WPS Office، وهو بديل مجاني لـ Microsoft Office، مما يجعل تنسيق المستندات بشكل دقيق واحترافي أمرًا في غاية السهولة.

آمن بنسبة 100%


Algirdas Jasaitis

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