عندما تعمل بالأرقام في Excel، قد تحتاج أحيانًا إلى عرضها بالأرقام والكلمات معًا للمستندات الرسمية أو لتكون أكثر وضوحًا. ولكن Excel لا يحتوي على طريقة مضمنة للقيام بذلك، خاصة بالنسبة للروبية الهندية. لذا، قد ينتهي بك الأمر باستخدام صيغ معقدة أو أدوات خارجية أو القيام بذلك يدويًا.
في هذا الدليل، سنعلمك طريقة بسيطة خطوة بخطوة لتحويل الأرقام إلى كلمات للروبية الهندية باستخدام Excel.
طريقتان سهلتان لتحويل الأرقام إلى كلمات بالروبية الهندية في Excel:
بالطبع، قبل كل شيء، تحتاج إلى الحصول على تنزيل Microsoft Excel مناسب أولاً!
الطريقة 1: تحويل الأرقام إلى كلمات بالروبية الهندية باستخدام كود VBA
قبل تحويل الأرقام إلى كلمات بالروبية الهندية باستخدام كود VBA، قد تحتاج إلى إضافة علامة تبويب المطور (Developer) في الشريط الخاص بك لفتح وظيفة VBA.
إليك خطوة تمكين علامة تبويب المطور في Excel:
الخطوة 1: افتح جدول بيانات Excel الذي يحتوي على الأرقام التي تريد تحويلها.

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

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

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

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

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

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

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

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

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

الخطوة 5: احفظ (Ctrl + S) وأغلق محرر VBA. اختر مصنف Excel ممكّن بماكرو (Excel Macro-Enabled Workbook) عند الحفظ

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

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

الخطوة 5: اختر مصنف Excel ممكّن بماكرو (Excel Macro-Enabled Workbook) في نوع الحفظ. أغلق نوافذ محرر VBA

الخطوة 6: أدخل الصيغة =RupeeFormat(display cell) في الخلية المحددة لعرض النتيجة.

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

سيتم تحويل الأرقام في النطاق المحدد إلى كلمات بالروبية الهندية.
أفضل بديل مجاني لـ Microsoft Office - WPS Office
إلى جانب Microsoft Office، سأقدم لك تطبيقًا آخر. وهو WPS Office. إذًا، ما هو WPS؟

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)

الخطوة 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، مما يجعل تنسيق المستندات بشكل دقيق واحترافي أمرًا في غاية السهولة.





