تحويل الارقام الى حروف باللغة العربية excel

بقلمsilawy ‫نشر في

كَيْفَِيْة تحويل الأرقام إلَّى أحرف (number taqtif) باللغة العربية فِيْ Excel

لسوء الحظ، لا توجد وظيفة فِيْ Excel، حيث تقوم الوظيفة بتحويل الأرقام إلَّى أحرف، ولكن يمكنك استخدام لغة أخرى تسمى vba، لكتابة الرمز لإنشاء وظيفة مخصصة لتحويل الأرقام إلَّى أحرف

  • معَنّْى كلمة التقفِيْت هُو عملية كتابة الأرقام بالكلمات بدلاً من الأرقام.
    • كَمْا هُو الحال دائمًا، يأتي مع كلمة “طقطه” فقط، بحيث لا يحدث أي تلاعب بالأرقام.
  • هناك أيضًا وظيفة لتحويل الأرقام إلَّى أحرف للأرقام التي تحتوي على 3 أرقام بعد الفاصلة العشرية
    • مثل عملة الدينار الكويتي، يطلق عليه أيضًا رقم التحويل الآجل.
  • هناك أيضًا وظيفة أخرى لتحويل الأرقام إلَّى أحرف تحتوي على رقمين بعد الفاصلة العشرية.
    • مثل عملة الجنيه المصري، يطلق عليه رقم التحويل نحو.

برنامج لتحويل الأرقام إلَّى حروف فِيْ اللغة العربية من حيث النقود والعملات.

قد يصف البعض عملية taqweet بعبارات أخرى، لكن يفضل قول تحويل الأرقام إلَّى أحرف باللغتين العربية والإنجليزية

  • تتضمن مهمة تحويل الأرقام إلَّى أحرف بشكل أساسي الأمور المتعلقة بالمال وسوق الأوراق المالية وأسواق الصرف الأجنبي.
    • يحدث هذا عَنّْد إجراء معاملة مالية، مثل تحويل الأموال من الدولار الأمريكي إلَّى اليورو الأوروبي.
    • أو أي عملية أخرى، يتم ذكر تلك القيمة بالكلمات مع اسم العملة مع إضافة كلمة واحدة فقط.
  • كَمْا هنا عَنّْد تحويل سعر الدولار الى سعر اليورو بمبلغ 1580 دولار.
    • وكتب هذا الرقم بالأحرف العربية 1530 دولارًا فقط، أي ما يعادل 1305 يورو، و 80 يورو، و 30 سنتًا فقط.
  • حيث أن برنامج Excel يحتوي على العديد من الوظائف مثل وظيفة الإضافة لحساب المجموع.
    • ودالة العد لحساب عدد الخلايا التي تحتوي على أرقام، وأيضًا كحد أقصى لحساب المزيد من القيمة والعديد من الوظائف الأخرى.

كَيْفَِيْة تحويل الأرقام إلَّى أحرف (Excel number) باللغة العربية

  • نفتح ملف Excel جديدًا، ثم ننتقل إلَّى علامة التبويب Developer.
  • نضغط أيضًا على Visual Basic.
    • ثم يتم تحويل الأرقام إلَّى أحرف عربية فِيْ Excel.
  • كَمْا هُو الحال هنا، سيتم فتح نافذة Microsoft Visual Basic، ثم انقر بزر الماوس الأيمن على اسم الوظيفة التي تقوم بها.
    • ثم تظهر قائمة السياق، بحيث يمكنك اختيار خيار الدخول.
    • بعد ذلك، اختر من القائمة الفرعية وانقر فوق الوحدة لإضافة وحدة برامج جديدة.
  • أيضًا بعد ذلك ستتم إضافة وحدة جديدة تسمى module1.

العَنّْاصر التي قد تعجبك

فحص الفِيْروسات من الجهاز بدون برامج

استعادة الصور المحذوفة من محرك جوجل

كَيْفَِيْة توصيل الهاتف بالشاشة عبر USB

وظيفة لتحويل الأرقام إلَّى أحرف للأرقام التي تحتوي على رقمين

فِيْ حالة رغبتك فِيْ إنشاء دالة لتحويل الأرقام إلَّى أحرف لأرقام تحتوي على رقمين فقط، بعد الفاصلة العشرية، على سبيل المثال، عملة الجنيه المصري، انسخ الكود والصقه كَمْا يلي

وظيفة ConvertNumberToWords2 (رقم على هِيْئة مزدوجة، والعملة الأصلية كسلسلة، والعملة الفرعية كسلسلة)

صفِيْف خافت 1 (من 0 إلَّى 9) كَمْصفوفة خافتة للسلسلة 2 (من 0 إلَّى 9) كَمْصفوفة خافتة للسلسلة 3 (من 0 إلَّى 9) كَمْصفوفة خافتة للسلسلة 3 (من 0 إلَّى 9) كَمْصفوفة خافتة للسلسلة مثل رقم خافت السلسلة، رقم خافت السلسلة، رقم خافت السلسلة، رقم خافت السلسلة My100 كسلسلة وخافتة My10 مثل خافت السلسلة My1 As String Dim My11 مثل String Dim My12 as String Dim GetText as String Dim Billion as String Dim Million as String Dim آلاف as string Dim Hundred as string Dim Fraction as String Dim MyA و as string Dim I as Integer Dim ReMark as string If Number> 9999999999999.99 ثم وظيفة الخروج إذا كان الرقم <0 ثم رقم = رقم * -1 ReMark = "سالب" End if number = 0 ثم ConvertNumberToWords2 = "صفر" إنهاء وظيفة إنهاء إذا كان MyAnd = "و" Array1 (0) = "" Array1 (1) = "مائة" Array1 (2) = "مائتان" Array1 (3) = "ثلاثمائة" Array1 (4) = "أربعمائة" Array1 (5) = "خمسمائة" Array1 (6) = "ستمائة" Array1 (7) = "سبعمائة" Matrix1 (8) = "ثمانمائة" Matrix1 (9) = "تسعمائة" Matrix2 (0) = "" Matrix2 (1) = "ten" Matrix2 (2) = "عشرون" مصفوفة iz2 (3) = "ثلاثون" Matrix2 (4) = "أربعون" Matrix2 (5) = "خمسون" Matrix2 (6) = "ستون" Matrix2 (7) = "سبعون" Matrix2 (8) = "ثمانون" Matrix 2 ( 9) = "90" Matrix3 (0) = "" Matrix3 (1) = "واحد" Matrix3 (2) = "اثنان" Matrix3 (3) = "ثلاثة" Matrix3 (4) = "أربعة" Matrix3 (5) = "خمسة" Matrix3 (6) = "ستة" Matrix3 (7) = "سبعة" Matrix3 (8) = "ثمانية" Matrix3 (9) = "تسعة" GetNumber = التنسيق (رقم، "000000000000.00") I = 0 DoWhile I <15 إذا كنت < 12 Entonces MiNúmero = Mid$(GetNumber, I + 1, 3) Else MyNumber = “0” + Mid$(GetNumber, I + 2, 2 ) End If If (Mid$(MyNumber, 1, 3)) > 0 ثم ReadNumber = Mid $ (MyNumber، 1، 1) My100 = Array1 (ReadNumber) ReadNumber = Mid $ (MyNumber، 3، 1) My1 = Array3 (ReadNumber) ReadNumber = Mid $ (MyNumber، 2، 1) My10 = Array2 (رقم القراءة) إذا كان Mid $ (MyNumber، 2، 2) = 11 ثم My11 = “أحد عشر” إذا كان Mid $ (MyNumber، 2، 2) = 12 ثم My12 = “اثنا عشر” إذا كان Mid $ (MyNumber، 2، 2) = 10 ثم My10 = “عشرة” If ((Mid $ (MyNumber، 1، 1))> 0) و ((Mid $ (MyNumber، 2)، 2))> 0) ثم My100 = My100 + MyY If ((منتصف $ (MyNumber، 3، 1))> 0) و ((Mid $ (MyNumber، 2، 1))> 1) ثم My1 = My1 + MyY GetText = My100 + My1 + My10 If ((Mid $ (M yNumber، 3، 1)) = 1) و ((Mid $ (MyNumber، 2، 1))) = 1) ثم GetText = My100 + My11 If ((Mid $ (MyNumber، 1، 1)) = 0) ثم GetText = My11 End If ((Mid $ (MyNumber، 3، 1)) = 2) And ((Mid $ (MyNumber، 2، 1)) = 1) ثم GetText = My100 + My12 If ((Mid $ (MyNumber، 1، 1)) = 0) ثم GetText = My12 End If (I = 0) و (GetText <> “”) ثم If ((Mid $ (MyNumber، 1، 3))> 10) ثم المليار = GetText + “المليار “المليار الآخر = GetText +” المليارات “إذا ((M id $ (MyNumber، 1، 3)) = 2) ثم Billion = “Billion” إذا ((Mid $ (MyNumber، 1، 3)) = 2) ثم Billion = “Two Billion” انتهى إذا (I = 3 ) و (GetText <> “”) ثم إذا ((Mid $ (MyNumber، 1، 3))> 10) ثم Million = GetText + “Million” Else Million = GetText + “الملايين” If ((Mid $ (MyNumber، 1، 3)) = 1) ثم مليون = “مليون” إذا ((متوسط ​​$ (MyNumber، 1، 3)) = 2) ثم Million = “Million” End If (I = 6) و (GetText <> “”) ثم إذا ((Mid $ (MyNumber، 1، 3))> 10) ثم Thousand = GetText + “Thousand” Else Thousand = GetText + “Thousand If ((Mid $ (MyNumber، 3، 1)) = 1 ) ثم ألف = “آلاف” إذا ((منتصف $ (MyNumber، 3، 1))) = 2) ثم ألف = “ألفان” تنتهِيْ إذا (I = 9) و (GetText <> “”) ثم مائة = GetText If (I = 12) And (GetText <> “”) ثم الكسر = GetText End If I = I + 3 Loop If (الملايين <> “”) ثم إذا (الملايين <> “”) أو (الآلاف <> ” “) أو (مائة <>” “) ثم المليار = مليار + بلادي وانتهت إذا (الملايين <>” “) ثم إذا (الآلاف <>” “) أو (مائة <>” “) ثم s الملايين = الملايين + My And Ends If (الآلاف <> “”) ثم إذا (مائة <> “”) ثم ألف = ألف + بلدي وينتهِيْ إذا كان الكسر <> “” ثم إذا (الملايين <> “”) أو (ملايين <> “”) أو (آلاف <> “”) أو (مائة <> “”) ثم ConvertNumberToWords2 = ملاحظة + مليار + مليون + ألف + مائة + “” + عملة رئيسية + MyAnd + كسر + “” + عملة فرعية أخرى ConvertNumberToWords2 = ملاحظة + كسر + “” + نهاية العملة الفرعية إذا كان آخر ConvertNumberToWords2 = ReMark + Billion + Million + Thousand + Hundred + “” + وظيفة نهاية العملة الرئيسية فِيْ حالة النهاية

وظيفة لتحويل الأرقام إلَّى أحرف للأرقام التي تحتوي على ثلاثة أرقام

فِيْ حالة رغبتك فِيْ إنشاء دالة لتحويل الأرقام إلَّى أحرف لأرقام تحتوي على 3 أرقام فقط، بعد الفاصلة العشرية، على سبيل المثال العملة دينار كويتي، انسخ والصق الرمز كَمْا يلي

الوظيفة ConvertNumberToWords3 (رقم مزدوج، العملة الرئيسية كسلسلة، العملة الفرعية كسلسلة) Dim MyArry1 (0 إلَّى 9) كسلسلة Dim MyArry2 (0 إلَّى 9) As String Dim MyArry3 (0 إلَّى 9) مثل String Dim Myno مثل String Dim GetNo مثل Dim String RdNo as Dim String My100 as Dim String My10 as Dim String My1 as Dim String My11 as Dim String My12 as Dim String GetTxt as Dim String MyBillion as Dim String MyMillion as Dim String MyThou as Dim String MyHun as Dim String MyFraction As Dim String MyAnd As String Dim I as Integer Dim ReMark as String If Number> 999999999999.999 ثم اخرج من الوظيفة إذا كان الرقم <0 ثم الرقم = الرقم * -1 ReMark = "سالب" End If Number = 0 ثم ConvertNumberToWords3 = "صفر" إنهاء وظيفة النهاية إذا كان MyAnd = "و" MyArry1 (0) = "" MyArry1 (1) = "مائة" MyArry1 (2) = "مائتان" MyArry1 (3) = "ثلاثمائة" MyArry1 (4) = "أربعمائة" MyArry1 (5) = "خمسة" MyArry1 (6) = "ستمائة" MyArry1 (7) = "سبعمائة" MyArry1 (8) = "ثمانمائة" MyArry1 (9) = "تسعمائة" MyArry2 (0) = " ”MyArry2 (1) =” عشر ”My 2) =" عش رون "MyArry2 (3) =" ثلاثون "MyArry2 (4) =" أربعون "MyArry2 (5) =" خمسون "MyArry2 (6) =" ستون "MyArry2 (7) = "سبعون" MyArry2 (8) = "ثونن" MyArry2 (9) = "تسعون" MyArry3 (0) = "" MyArry3 (1) = "واحد" MyArry3 (2) = "اثنان" MyArry3 (3) = "ثلاثة" MyArry3 (4) = "أربعة" MyArry3 (5) = "خمسة" MyArry3 (6) = "ستة" ستة "MyArry3 (7) =" سبعة "MyArry3 (8) =" ثمانية "MyArry3 (9) =" تسعة "GetNo = Round (Number، 3) GetNo = Format (Number،“ 000000000000.000 ”) I = 0 بينما أنا <16 إذا كنت < 12 Entonces Myno = Mid$(GetNo, I + 1, 3) Else Myno = Mid$(GetNo, I + 2, 3) + “0” End If If (Mid$(Myno, 1, 3)) > 0 ثم RdNo = Mid $ (Myno، 1، 1) My100 = MyArry1 (RdNo) RdNo = Mid $ (Myno، 3، 1) My1 = MyArry3 (RdNo) RdNo = Mid $ (Myno، 2، 1) My10 = MyArry2 (RdNo) إذا كان Mid $ (Myno، 2، 2) = 11 ثم My11 = “إحدى عشر” وإذا كان Mid $ (Myno، 2، 2) = 12 ثم My12 = “إثنى عشر” إذا كان Mid $ (Myno، 2، 2 ) = 10 ثم My10 = “عشرة” إذا ((Mid $ (Myno، 1، 1))> 0) و ((Mid $ (Myno، 2، 2)))> 0) ثم My100 = My100 + MyY If ( (Mid $ (Min، 3، 1))> 0) و ((Mid $ (Min، 2، 1))> 1) ثم My1 = My1 + MyAnd GetTxt = My100 + My1 + My10 If ((Mid $ (Myno، 3، 1)) = 1) و ((Mid $ (Myno، 2، 1)) = 1) ثم GetTxt = My100 + My11 If ((Mid $ (Myno، 1، 1)) = 0) ثم GetTxt = My11 End If ((Mid $ (Myno، 3، 1)) = 2) و ((Mid $ (Myno، 2، 1)) = 1) ثم GetTxt = My100 + My12 If ((Mid $ (Myno، 1، 1)) = 0) ثم GetTxt = My12 End If (I = 0) و (GetTxt <> “”) ثم If ((Mid $ (Myno، 1، 3))> 10) ثم Mybillion = GetTxt + ”مليار” Else Mybillion = GetTxt + ”مليارات” If ((Mid $ (Myno، 1، 3)) = 2) ثم Mybillion = ”مليار” If ((Mid $ (Myno، 1، 3)) = 2) ثم Mybillion = “ملياران” End If End If (I = 3) And (GetTxt <> “”) ثم إذا ((Mid $ (Myno، 1، 3))> 10) ثم MyMillion = GetTxt + ”مليون” Else MyMillion = GetTxt + ”ملايين” If ((Mid $ (Myno، 1، 3)) = 1) ثم MyMillion = ”مليون” If ((Mid $ (Myno، 1، 3)) = 2) ثم MyMillion = ”مليونان” انتهى إذا انتهى If (I = 6) And (GetTxt <> “”) ثم If ((Mid $ (Myno، 1، 3))> 10) ثم MyYou = GetTxt + ”ألف” Else MyYou = GetTxt + ”آلاف” إذا (( Mid $ (Myno، 3، 1)) = 1) ثم MyYou = ”أل ف” If ((Mid $ (Myno، 3، 1)) = 2) ثم MyThou = ”ألفان” End If (I = 9 ) و (GetTxt <> “”) ثم MyHun = GetTxt If (I = 12) و (GetTxt <> “”) ثم MyFraction = GetTxt End If I = I + 3 Loop If (Mybillion <> “”) ثم إذا ( MyMillion <> “”) أو (MyThou <> “”) أو (MyHun <> “”) ثم MyMillion = MyMillion + MyY Ends If (MyMillion <> “”) ثم إذا (MyYou <> “”) أو (MyHun <> “”) ثم MyMillion = MyMillion + MyY EndsIf (MyYou < > “”) ثم إذا (MyHun <> “”) ثم MyYou = MyYou + MyY End If MyFraction <> “” ثم إذا (MyMillion <> “”) أو (MyMillion <> “”) أو (MyYou <> “” ) أو (MyHun <> “”) ثم ConvertNumberToWords3 = ReMark + Mybillion + MyMillion + MyThou + MyHun + ”” + MainCurrency + MyAnd + MyFraction + ”” + SubCurrency Else ConvertNumberToWords3 = ReMark + MyFraction + ”” + عملة نهاية فرعية إذا كان آخر تحويل 3NumberToWords = ReMark + Mybillion + MyMillion + MyThou + MyHun + ”” + وظيفة MainCurrency End If End

اشرح ما فعلناه

لقد قمنا بتنفِيْذ وظيفتين لتحويل الأرقام إلَّى أحرف بالتنسيق التالي = ConvertNumberToWords2 (Number، MainCurrency، SubCurrency) = ConvertNumberToWords3 (Number، MainCurrency، SubCurrency)

يمكنك استخدام أي وظيفة مثل أي وظيفة عادية فِيْ Excel، فقط استبدل المعلمة Number بالرقم، واستبدل معلمة MainCurrency باسم العملة الرئيسية، واستبدل معلمة SubCurrency باسم العملة الفرعية.

فِيْ الشكل التالي، استخدمنا وظيفة ConvertNumberToWords2

بالنظر إلَّى الشكل أدناه، نستخدم وظيفة ConvertNumberToWords3

ملاحظة أقوم بحفظ الملف كَمْصنف Excel ممكن بماكرو لأنه يحتوي على تعليمات برمجية مكتوبة فِيْ VBA

‫0 تعليق

اترك تعليقاً