Note: The other languages of the website are Google-translated. Back to English

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

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

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

تحويل الأرقام إلى كلمات بالدولار الإنجليزي مع ميزة مذهلة


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

يمكن أن يساعدك رمز فبا التالي في تحويل الأرقام إلى كلمات بالروبية ، يرجى القيام بذلك على النحو التالي:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق التعليمة البرمجية التالية في نافذة الوحدة النمطية.

كود فبا: تحويل الأرقام إلى كلمات بالروبية

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(xTemp) > 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 

3. بعد إدخال الرمز ، احفظ وأغلق نافذة التعليمات البرمجية ، عد إلى ورقة العمل ، وأدخل هذه الصيغة: = RupeeFormat (A2) في خلية فارغة ، ثم اسحب مقبض التعبئة لأسفل لتطبيق هذه الصيغة على الخلايا الأخرى ، تم توضيح جميع الأرقام بالروبية ، انظر الصورة:


تحويل الأرقام إلى كلمات بالدولار الإنجليزي مع ميزة مذهلة

إذا كنت تريد تحويل الأرقام إلى كلمات بالدولار الإنجليزي ، كوتولس ل إكسيلالصورة أرقام إلى كلمات يمكن أن تساعدك الميزة في حل هذه الوظيفة بسرعة وسهولة.

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

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

1. حدد قائمة الأرقام التي تريد تحويلها ، ثم انقر فوق كوتولس > وصف المنتج > أرقام إلى كلمات، انظر لقطات الشاشة:

2. في الأرقام إلى كلمات العملات مربع الحوار، حدد الانجليزية الخيار من اللغات ، ثم انقر فوق Ok زر ، تم تحويل الأرقام الموجودة في التحديد إلى كلمات العملة الإنجليزية ، انظر الصورة:

انقر لتنزيل Kutools for Excel والتجربة المجانية الآن!

 


  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة وحفظ البيانات. تقسيم محتوى الخلايا ؛ اجمع الصفوف المكررة والمجموع / المتوسط... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • المفضلة وإدراج الصيغ بسرعةوالنطاقات والمخططات والصور ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • تجميع الجدول المحوري حسب رقم الأسبوع واليوم من الأسبوع والمزيد ... إظهار الخلايا غير المؤمنة والمغلقة بألوان مختلفة قم بتمييز الخلايا التي لها صيغة / اسم
علامة تبويب kte 201905
  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع

 

فرز التعليقات حسب
التعليقات (22)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يتعطل برنامج Excel عندما لا تحتوي الخلية المرجعية على صمام!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا المستخدم ،
شكرا لتعليقك ، لقد تم تحديث الكود في هذا المقال ، يرجى المحاولة مرة أخرى ، شكرا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
سيدي العزيز،

يوم جيد،

لقد اختبرت الصيغة أعلاه أنها لا تعمل في الواصلة ناقص القيم مثل -100-10,000،100 أو (10,000) (XNUMX،XNUMX)

سيدي ، أنا أستخدم الكود أدناه للسنوات 1 الماضية واليوم اكتشفت نفس الخطأ.

عندما أكتب سالب -10,000 أو (10,000) يظهر "فقط مائة وعشرة آلاف"
عندما أكتب موجب 10,000 ، فإنه يعمل بشكل رائع "فقط عشرة آلاف"

المثال أدناه:

(10,000.99،99) فقط مائة وعشرة آلاف و 100/XNUMX ريال
10,000.99،99 فقط عشرة آلاف و 100/XNUMX ريال
(10,000,000.99،99،100) فقط مائة وعشرة ملايين و XNUMX/XNUMX ريال
10,000,000.99،99،100 فقط عشرة ملايين و XNUMX/XNUMX ريال
(10,000,000,000.99،99،100،XNUMX) فقط مائة وعشرة مليارات و XNUMX/XNUMX ريال
10,000,000,000.99،99،100،XNUMX فقط عشرة مليارات و XNUMX/XNUMX ريال
(10,000,000,000,000.90،90،100،XNUMX،XNUMX) فقط مائة وعشرة ترليون و XNUMX/XNUMX ريال
10,000,000,000,000.90،90،100،XNUMX،XNUMX فقط عشرة تريليونات و XNUMX/XNUMX ريال

الصيغة = spellbilling

كود فبا الخاص بي:

'الوظيفة الأساسية
الوظيفة SpellBilling (ByVal MyNumber)
ديم ريال ، هللة ، درجة الحرارة
خافت عشري مكان ، عد
ReDim Place (9) كسلسلة
المكان (2) = "ألف"
المكان (3) = "مليون"
المكان (4) = "مليار"
المكان (5) = "تريليون"
تمثيل سلسلة من المبلغ.
MyNumber = Trim (Str (MyNumber))
"موضع المكان العشري 0 إذا لم يكن هناك شيء.
DecimalPlace = InStr (MyNumber، ".")
قم بتحويل حلالات وقم بتعيين MyNumber على مبلغ الريال.
إذا كان DecimalPlace> 0 ثم
Halalas = GetTens (يسار (منتصف (MyNumber ، DecimalPlace + 1) & _
"00" ، 2))
MyNumber = Trim (يسار (MyNumber ، DecimalPlace - 1))
إنهاء حالة
العد = 1
القيام أثناء MyNumber <> ""
Temp = GetHundreds (Right (MyNumber، 3))
إذا كانت درجة الحرارة <> "" فالريال = درجة الحرارة والمكان (العد) والريال
إذا Len (MyNumber)> 3 ثم
MyNumber = يسار (MyNumber ، Len (MyNumber) - 3)
آخر
MyNumber = ""
إنهاء حالة
العد = العد + 1
أنشوطة
حدد ريال الحالة
قضية ""
الريال = "لا ريال"
الحالة "واحد"
ريال = "ريال واحد فقط"
حالة أخرى
الريالات = "فقط" والريال
الريالات = الريالات & ""
إنهاء اختر
حدد حالة الحلال
قضية ""
هللة = "& 00/00 ريال"
الحالة "واحد"
هللة = "& 01/100 ريال"
الحالة "اثنان"
هللة = "& 02/100 ريال"
الحالة "ثلاثة"
هللة = "& 03/100 ريال"
الحالة "أربعة"
هللة = "& 04/100 ريال"
الحالة "خمسة"
هللة = "& 05/100 ريال"
الحالة "ستة"
هللة = "& 06/100 ريال"
الحالة "سبعة"
هللة = "& 07/100 ريال"
الحالة "ثمانية"
هللة = "& 08/100 ريال"
الحالة "تسعة"
هللة = "& 09/100 ريال"
الحالة "عشرة"
هللة = "& 10/100 ريال"
الحالة "أحد عشر"
هللة = "& 11/100 ريال"
الحالة "اثنا عشر"
هللة = "& 12/100 ريال"
القضية "ثلاثة عشر"
هللة = "& 13/100 ريال"
الحالة "أربعة عشر"
هللة = "& 14/100 ريال"
القضية "خمسة عشر"
هللة = "& 15/100 ريال"
الحالة السادسة عشرة
هللة = "& 16/100 ريال"
القضية "سبعة عشر"
هللة = "& 17/100 ريال"
القضية "ثمانية عشر"
هللة = "& 18/100 ريال"
القضية "التاسعة عشرة"
هللة = "& 19/100 ريال"
القضية "عشرون"
هللة = "& 20/100 ريال"
القضية "واحد وعشرون"
هللة = "& 21/100 ريال"
القضية "اثنان وعشرون"
هللة = "& 22/100 ريال"
القضية "ثلاثة وعشرون"
هللة = "& 23/100 ريال"
القضية "أربعة وعشرون"
هللة = "& 24/100 ريال"
القضية "خمسة وعشرون"
هللة = "& 25/100 ريال"
القضية "السادسة والعشرون"
هللة = "& 26/100 ريال"
الحالة "Twenty Seven"
هللة = "& 27/100 ريال"
القضية "Twenty Eight"
هللة = "& 28/100 ريال"
القضية "Twenty Nine"
هللة = "& 29/100 ريال"
القضية "ثلاثون"
هللة = "& 30/100 ريال"
القضية "واحد وثلاثون"
هللة = "& 31/100 ريال"
القضية "اثنان وثلاثون"
هللة = "& 32/100 ريال"
القضية "ثلاثة وثلاثون"
هللة = "& 33/100 ريال"
القضية "أربعة وثلاثون"
هللة = "& 34/100 ريال"
القضية "خمسة وثلاثون"
هللة = "& 35/100 ريال"
القضية "ستة وثلاثون"
هللة = "& 36/100 ريال"
القضية "السابعة والثلاثون"
هللة = "& 37/100 ريال"
القضية "ثمانية وثلاثون"
هللة = "& 38/100 ريال"
القضية "تسعة وثلاثون"
هللة = "& 39/100 ريال"
الحالة "الأربعون"
هللة = "& 40/100 ريال"
القضية "واحد وأربعون"
هللة = "& 41/100 ريال"
القضية "اثنان وأربعون"
هللة = "& 42/100 ريال"
الحالة "ثلاثة وأربعون"
هللة = "& 43/100 ريال"
القضية "أربعة وأربعون"
هللة = "& 44/100 ريال"
القضية "خمسة وأربعون"
هللة = "& 45/100 ريال"
القضية "ستة وأربعون"
هللة = "& 46/100 ريال"
القضية "سبعة وأربعون"
هللة = "& 47/100 ريال"
القضية "ثمانية وأربعون"
هللة = "& 48/100 ريال"
القضية "تسعة وأربعون"
هللة = "& 49/100 ريال"
القضية "خمسون"
هللة = "& 50/100 ريال"
القضية "واحد وخمسون"
هللة = "& 51/100 ريال"
القضية "اثنان وخمسون"
هللة = "& 52/100 ريال"
القضية "ثلاثة وخمسون"
هللة = "& 53/100 ريال"
القضية "الرابعة والخمسون"
هللة = "& 54/100 ريال"
القضية "خمسة وخمسون"
هللة = "& 55/100 ريال"
القضية "ستة وخمسون"
هللة = "& 56/100 ريال"
القضية "السابعة والخمسون"
هللة = "& 57/100 ريال"
القضية "ثمانية وخمسون"
هللة = "& 58/100 ريال"
القضية "تسعة وخمسون"
هللة = "& 59/100 ريال"
القضية "الستون"
هللة = "& 60/100 ريال"
القضية "واحد وستون"
هللة = "& 61/100 ريال"
القضية "اثنان وستون"
هللة = "& 62/100 ريال"
القضية "ثلاثة وستون"
هللة = "& 63/100 ريال"
القضية "الرابعة والستون"
هللة = "& 64/100 ريال"
القضية "خمسة وستون"
هللة = "& 65/100 ريال"
القضية "ستة وستون"
هللة = "& 66/100 ريال"
القضية "السابعة والستون"
هللة = "& 67/100 ريال"
القضية "ثمانية وستون"
هللة = "& 68/100 ريال"
القضية "تسعة وستون"
هللة = "& 69/100 ريال"
القضية "السبعون"
هللة = "& 70/100 ريال"
القضية "واحد وسبعون"
هللة = "& 71/100 ريال"
القضية "اثنان وسبعون"
هللة = "& 72/100 ريال"
القضية "ثلاثة وسبعون"
هللة = "& 73/100 ريال"
القضية "أربعة وسبعون"
هللة = "& 74/100 ريال"
القضية "خمسة وسبعون"
هللة = "& 75/100 ريال"
القضية "ستة وسبعون"
هللة = "& 76/100 ريال"
القضية "سبعة وسبعون"
هللة = "& 77/100 ريال"
القضية "ثمانية وسبعون"
هللة = "& 78/100 ريال"
القضية "تسعة وسبعون"
هللة = "& 79/100 ريال"
القضية "ثمانون"
هللة = "& 80/100 ريال"
القضية "واحد وثمانون"
هللة = "& 81/100 ريال"
القضية "اثنان وثمانون"
هللة = "& 82/100 ريال"
القضية "ثلاثة وثمانون"
هللة = "& 83/100 ريال"
القضية "أربعة وثمانون"
هللة = "& 84/100 ريال"
القضية "خمسة وثمانون"
هللة = "& 85/100 ريال"
القضية "ستة وثمانون"
هللة = "& 86/100 ريال"
القضية "سبعة وثمانون"
هللة = "& 87/100 ريال"
القضية "ثمانية وثمانون"
هللة = "& 88/100 ريال"
القضية "تسعة وثمانون"
هللة = "& 89/100 ريال"
القضية "تسعون"
هللة = "& 90/100 ريال"
القضية "واحد وتسعون"
هللة = "& 91/100 ريال"
القضية "اثنان وتسعون"
هللة = "& 92/100 ريال"
القضية "ثلاثة وتسعون"
هللة = "& 93/100 ريال"
القضية "أربعة وتسعون"
هللة = "& 94/100 ريال"
القضية "خمسة وتسعون"
هللة = "& 95/100 ريال"
القضية "ستة وتسعون"
هللة = "& 96/100 ريال"
القضية "السابعة والتسعون"
هللة = "& 97/100 ريال"
القضية "ثمانية وتسعون"
هللة = "& 98/100 ريال"
القضية "تسعة وتسعون"
هللة = "& 99/100 ريال"


حالة أخرى
Halalas = "&" & Halalas & "Halalas"
إنهاء اختر
SpellBilling = ريال وحلال
نهاية وظيفة


"تحويل رقم من 100-999 إلى نص
وظيفة GetHundreds (ByVal MyNumber)
نتيجة خافتة كسلسلة
إذا كان Val (MyNumber) = 0 ، فقم بالخروج من الوظيفة
MyNumber = اليمين ("000" & MyNumber، 3)
حوّل خانة المئات.
إذا كان Mid (MyNumber، 1، 1) <> "0" ثم
النتيجة = GetDigit (Mid (MyNumber، 1، 1)) & "Hundred"
إنهاء حالة
تحويل خانة العشرات والآحاد.
إذا كان Mid (MyNumber، 2، 1) <> "0" ثم
النتيجة = النتيجة & GetTens (منتصف (MyNumber، 2))
آخر
النتيجة = النتيجة & GetDigit (Mid (MyNumber، 3))
إنهاء حالة
GetHundreds = النتيجة
نهاية وظيفة

يحول رقمًا من 10 إلى 99 إلى نص.
دالة GetTens (TensText)
نتيجة خافتة كسلسلة
النتيجة = "" 'إبطال قيمة الوظيفة المؤقتة.
إذا فال (يسار (TensText، 1)) = 1 ثم 'إذا كانت القيمة بين 10-19 ...
حدد حالة Val (TensText)
الحالة 10: النتيجة = "عشرة"
الحالة 11: النتيجة = "أحد عشر"
الحالة 12: النتيجة = "اثنا عشر"
الحالة 13: النتيجة = "ثلاثة عشر"
الحالة 14: النتيجة = "أربعة عشر"
الحالة 15: النتيجة = "خمسة عشر"
الحالة 16: النتيجة = "ستة عشر"
الحالة 17: النتيجة = "سبعة عشر"
الحالة 18: النتيجة = "ثمانية عشر"
الحالة 19: النتيجة = "تسعة عشر"
حالة أخرى
إنهاء اختر
عدا ذلك "إذا كانت القيمة بين 20-99 ...
حدد حالة Val (يسار (TensText، 1))
الحالة 2: النتيجة = "عشرين"
الحالة 3: النتيجة = "ثلاثون"
الحالة 4: النتيجة = "أربعون"
الحالة 5: النتيجة = "خمسون"
الحالة 6: النتيجة = "ستون"
الحالة 7: النتيجة = "سبعون"
الحالة 8: النتيجة = "ثمانون"
الحالة 9: النتيجة = "تسعون"
حالة أخرى
إنهاء اختر
النتيجة = النتيجة & GetDigit _
(يمين (TensText ، 1)) "استرداد مكان واحد.
إنهاء حالة
GetTens = النتيجة
نهاية وظيفة

يحول رقمًا من 1 إلى 9 إلى نص.
وظيفة GetDigit (Digit)
حدد حالة Val (رقم)
الحالة 1: GetDigit = "One"
الحالة 2: GetDigit = "Two"
الحالة 3: GetDigit = "ثلاثة"
الحالة 4: GetDigit = "أربعة"
الحالة 5: GetDigit = "خمسة"
الحالة 6: GetDigit = "ستة"
الحالة 7: GetDigit = "Seven"
الحالة 8: GetDigit = "ثمانية"
الحالة 9: GetDigit = "تسعة"
حالة أخرى: GetDigit = ""
إنهاء اختر
نهاية وظيفة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا شيء يقال! إكستريمليسوبر
تم تصغير هذا التعليق بواسطة المشرف على الموقع
سيدي العزيز،

يوم جيد،
لقد اختبرت كود VBA الخاص بك ولكن لسوء الحظ لا يعمل بشكل جيد مع القيم السلبية / السالبة مثل -100-10,000،100 / (10,000) (XNUMX،XNUMX).

سيدي ، أنا أستخدم الكود أدناه للسنوات 1 الماضية واليوم اكتشفت نفس الخطأ الموجود في كود VBA أيضًا.

عندما أكتب سالب -10,000 آلاف ، يظهر على "فقط مائة وعشرة آلاف"
عندما أكتب موجب 10,000 يظهر على "فقط عشرة آلاف" يعمل بشكل جيد

المثال أدناه:

(10,000.99،99) فقط مائة وعشرة آلاف و 100/XNUMX ريال
10,000.99،99 فقط عشرة آلاف و 100/XNUMX ريال
(10,000,000.99،99،100) فقط مائة وعشرة ملايين و XNUMX/XNUMX ريال
10,000,000.99،99،100 فقط عشرة ملايين و XNUMX/XNUMX ريال
(10,000,000,000.99،99،100،XNUMX) فقط مائة وعشرة مليارات و XNUMX/XNUMX ريال
10,000,000,000.99،99،100،XNUMX فقط عشرة مليارات و XNUMX/XNUMX ريال
(10,000,000,000,000.90،90،100،XNUMX،XNUMX) فقط مائة وعشرة ترليون و XNUMX/XNUMX ريال
10,000,000,000,000.90،90،100،XNUMX،XNUMX فقط عشرة تريليونات و XNUMX/XNUMX ريال

الصيغة = spellbilling

كود فبا الخاص بي:

'الوظيفة الأساسية
الوظيفة SpellBilling (ByVal MyNumber)
ديم ريال ، هللة ، درجة الحرارة
خافت عشري مكان ، عد
ReDim Place (9) كسلسلة
المكان (2) = "ألف"
المكان (3) = "مليون"
المكان (4) = "مليار"
المكان (5) = "تريليون"
تمثيل سلسلة من المبلغ.
MyNumber = Trim (Str (MyNumber))
"موضع المكان العشري 0 إذا لم يكن هناك شيء.
DecimalPlace = InStr (MyNumber، ".")
قم بتحويل حلالات وقم بتعيين MyNumber على مبلغ الريال.
إذا كان DecimalPlace> 0 ثم
Halalas = GetTens (يسار (منتصف (MyNumber ، DecimalPlace + 1) & _
"00" ، 2))
MyNumber = Trim (يسار (MyNumber ، DecimalPlace - 1))
إنهاء حالة
العد = 1
القيام أثناء MyNumber <> ""
Temp = GetHundreds (Right (MyNumber، 3))
إذا كانت درجة الحرارة <> "" فالريال = درجة الحرارة والمكان (العد) والريال
إذا Len (MyNumber)> 3 ثم
MyNumber = يسار (MyNumber ، Len (MyNumber) - 3)
آخر
MyNumber = ""
إنهاء حالة
العد = العد + 1
أنشوطة
حدد ريال الحالة
قضية ""
الريال = "لا ريال"
الحالة "واحد"
ريال = "ريال واحد فقط"
حالة أخرى
الريالات = "فقط" والريال
الريالات = الريالات & ""
إنهاء اختر
حدد حالة الحلال
قضية ""
هللة = "& 00/00 ريال"
الحالة "واحد"
هللة = "& 01/100 ريال"
الحالة "اثنان"
هللة = "& 02/100 ريال"
الحالة "ثلاثة"
هللة = "& 03/100 ريال"
الحالة "أربعة"
هللة = "& 04/100 ريال"
الحالة "خمسة"
هللة = "& 05/100 ريال"
الحالة "ستة"
هللة = "& 06/100 ريال"
الحالة "سبعة"
هللة = "& 07/100 ريال"
الحالة "ثمانية"
هللة = "& 08/100 ريال"
الحالة "تسعة"
هللة = "& 09/100 ريال"
الحالة "عشرة"
هللة = "& 10/100 ريال"
الحالة "أحد عشر"
هللة = "& 11/100 ريال"
الحالة "اثنا عشر"
هللة = "& 12/100 ريال"
القضية "ثلاثة عشر"
هللة = "& 13/100 ريال"
الحالة "أربعة عشر"
هللة = "& 14/100 ريال"
القضية "خمسة عشر"
هللة = "& 15/100 ريال"
الحالة السادسة عشرة
هللة = "& 16/100 ريال"
القضية "سبعة عشر"
هللة = "& 17/100 ريال"
القضية "ثمانية عشر"
هللة = "& 18/100 ريال"
القضية "التاسعة عشرة"
هللة = "& 19/100 ريال"
القضية "عشرون"
هللة = "& 20/100 ريال"
القضية "واحد وعشرون"
هللة = "& 21/100 ريال"
القضية "اثنان وعشرون"
هللة = "& 22/100 ريال"
القضية "ثلاثة وعشرون"
هللة = "& 23/100 ريال"
القضية "أربعة وعشرون"
هللة = "& 24/100 ريال"
القضية "خمسة وعشرون"
هللة = "& 25/100 ريال"
القضية "السادسة والعشرون"
هللة = "& 26/100 ريال"
الحالة "Twenty Seven"
هللة = "& 27/100 ريال"
القضية "Twenty Eight"
هللة = "& 28/100 ريال"
القضية "Twenty Nine"
هللة = "& 29/100 ريال"
القضية "ثلاثون"
هللة = "& 30/100 ريال"
القضية "واحد وثلاثون"
هللة = "& 31/100 ريال"
القضية "اثنان وثلاثون"
هللة = "& 32/100 ريال"
القضية "ثلاثة وثلاثون"
هللة = "& 33/100 ريال"
القضية "أربعة وثلاثون"
هللة = "& 34/100 ريال"
القضية "خمسة وثلاثون"
هللة = "& 35/100 ريال"
القضية "ستة وثلاثون"
هللة = "& 36/100 ريال"
القضية "السابعة والثلاثون"
هللة = "& 37/100 ريال"
القضية "ثمانية وثلاثون"
هللة = "& 38/100 ريال"
القضية "تسعة وثلاثون"
هللة = "& 39/100 ريال"
الحالة "الأربعون"
هللة = "& 40/100 ريال"
القضية "واحد وأربعون"
هللة = "& 41/100 ريال"
القضية "اثنان وأربعون"
هللة = "& 42/100 ريال"
الحالة "ثلاثة وأربعون"
هللة = "& 43/100 ريال"
القضية "أربعة وأربعون"
هللة = "& 44/100 ريال"
القضية "خمسة وأربعون"
هللة = "& 45/100 ريال"
القضية "ستة وأربعون"
هللة = "& 46/100 ريال"
القضية "سبعة وأربعون"
هللة = "& 47/100 ريال"
القضية "ثمانية وأربعون"
هللة = "& 48/100 ريال"
القضية "تسعة وأربعون"
هللة = "& 49/100 ريال"
القضية "خمسون"
هللة = "& 50/100 ريال"
القضية "واحد وخمسون"
هللة = "& 51/100 ريال"
القضية "اثنان وخمسون"
هللة = "& 52/100 ريال"
القضية "ثلاثة وخمسون"
هللة = "& 53/100 ريال"
القضية "الرابعة والخمسون"
هللة = "& 54/100 ريال"
القضية "خمسة وخمسون"
هللة = "& 55/100 ريال"
القضية "ستة وخمسون"
هللة = "& 56/100 ريال"
القضية "السابعة والخمسون"
هللة = "& 57/100 ريال"
القضية "ثمانية وخمسون"
هللة = "& 58/100 ريال"
القضية "تسعة وخمسون"
هللة = "& 59/100 ريال"
القضية "الستون"
هللة = "& 60/100 ريال"
القضية "واحد وستون"
هللة = "& 61/100 ريال"
القضية "اثنان وستون"
هللة = "& 62/100 ريال"
القضية "ثلاثة وستون"
هللة = "& 63/100 ريال"
القضية "الرابعة والستون"
هللة = "& 64/100 ريال"
القضية "خمسة وستون"
هللة = "& 65/100 ريال"
القضية "ستة وستون"
هللة = "& 66/100 ريال"
القضية "السابعة والستون"
هللة = "& 67/100 ريال"
القضية "ثمانية وستون"
هللة = "& 68/100 ريال"
القضية "تسعة وستون"
هللة = "& 69/100 ريال"
القضية "السبعون"
هللة = "& 70/100 ريال"
القضية "واحد وسبعون"
هللة = "& 71/100 ريال"
القضية "اثنان وسبعون"
هللة = "& 72/100 ريال"
القضية "ثلاثة وسبعون"
هللة = "& 73/100 ريال"
القضية "أربعة وسبعون"
هللة = "& 74/100 ريال"
القضية "خمسة وسبعون"
هللة = "& 75/100 ريال"
القضية "ستة وسبعون"
هللة = "& 76/100 ريال"
القضية "سبعة وسبعون"
هللة = "& 77/100 ريال"
القضية "ثمانية وسبعون"
هللة = "& 78/100 ريال"
القضية "تسعة وسبعون"
هللة = "& 79/100 ريال"
القضية "ثمانون"
هللة = "& 80/100 ريال"
القضية "واحد وثمانون"
هللة = "& 81/100 ريال"
القضية "اثنان وثمانون"
هللة = "& 82/100 ريال"
القضية "ثلاثة وثمانون"
هللة = "& 83/100 ريال"
القضية "أربعة وثمانون"
هللة = "& 84/100 ريال"
القضية "خمسة وثمانون"
هللة = "& 85/100 ريال"
القضية "ستة وثمانون"
هللة = "& 86/100 ريال"
القضية "سبعة وثمانون"
هللة = "& 87/100 ريال"
القضية "ثمانية وثمانون"
هللة = "& 88/100 ريال"
القضية "تسعة وثمانون"
هللة = "& 89/100 ريال"
القضية "تسعون"
هللة = "& 90/100 ريال"
القضية "واحد وتسعون"
هللة = "& 91/100 ريال"
القضية "اثنان وتسعون"
هللة = "& 92/100 ريال"
القضية "ثلاثة وتسعون"
هللة = "& 93/100 ريال"
القضية "أربعة وتسعون"
هللة = "& 94/100 ريال"
القضية "خمسة وتسعون"
هللة = "& 95/100 ريال"
القضية "ستة وتسعون"
هللة = "& 96/100 ريال"
القضية "السابعة والتسعون"
هللة = "& 97/100 ريال"
القضية "ثمانية وتسعون"
هللة = "& 98/100 ريال"
القضية "تسعة وتسعون"
هللة = "& 99/100 ريال"


حالة أخرى
Halalas = "&" & Halalas & "Halalas"
إنهاء اختر
SpellBilling = ريال وحلال
نهاية وظيفة


"تحويل رقم من 100-999 إلى نص
وظيفة GetHundreds (ByVal MyNumber)
نتيجة خافتة كسلسلة
إذا كان Val (MyNumber) = 0 ، فقم بالخروج من الوظيفة
MyNumber = اليمين ("000" & MyNumber، 3)
حوّل خانة المئات.
إذا كان Mid (MyNumber، 1، 1) <> "0" ثم
النتيجة = GetDigit (Mid (MyNumber، 1، 1)) & "Hundred"
إنهاء حالة
تحويل خانة العشرات والآحاد.
إذا كان Mid (MyNumber، 2، 1) <> "0" ثم
النتيجة = النتيجة & GetTens (منتصف (MyNumber، 2))
آخر
النتيجة = النتيجة & GetDigit (Mid (MyNumber، 3))
إنهاء حالة
GetHundreds = النتيجة
نهاية وظيفة

يحول رقمًا من 10 إلى 99 إلى نص.
دالة GetTens (TensText)
نتيجة خافتة كسلسلة
النتيجة = "" 'إبطال قيمة الوظيفة المؤقتة.
إذا فال (يسار (TensText، 1)) = 1 ثم 'إذا كانت القيمة بين 10-19 ...
حدد حالة Val (TensText)
الحالة 10: النتيجة = "عشرة"
الحالة 11: النتيجة = "أحد عشر"
الحالة 12: النتيجة = "اثنا عشر"
الحالة 13: النتيجة = "ثلاثة عشر"
الحالة 14: النتيجة = "أربعة عشر"
الحالة 15: النتيجة = "خمسة عشر"
الحالة 16: النتيجة = "ستة عشر"
الحالة 17: النتيجة = "سبعة عشر"
الحالة 18: النتيجة = "ثمانية عشر"
الحالة 19: النتيجة = "تسعة عشر"
حالة أخرى
إنهاء اختر
عدا ذلك "إذا كانت القيمة بين 20-99 ...
حدد حالة Val (يسار (TensText، 1))
الحالة 2: النتيجة = "عشرين"
الحالة 3: النتيجة = "ثلاثون"
الحالة 4: النتيجة = "أربعون"
الحالة 5: النتيجة = "خمسون"
الحالة 6: النتيجة = "ستون"
الحالة 7: النتيجة = "سبعون"
الحالة 8: النتيجة = "ثمانون"
الحالة 9: النتيجة = "تسعون"
حالة أخرى
إنهاء اختر
النتيجة = النتيجة & GetDigit _
(يمين (TensText ، 1)) "استرداد مكان واحد.
إنهاء حالة
GetTens = النتيجة
نهاية وظيفة

يحول رقمًا من 1 إلى 9 إلى نص.
وظيفة GetDigit (Digit)
حدد حالة Val (رقم)
الحالة 1: GetDigit = "One"
الحالة 2: GetDigit = "Two"
الحالة 3: GetDigit = "ثلاثة"
الحالة 4: GetDigit = "أربعة"
الحالة 5: GetDigit = "خمسة"
الحالة 6: GetDigit = "ستة"
الحالة 7: GetDigit = "Seven"
الحالة 8: GetDigit = "ثمانية"
الحالة 9: GetDigit = "تسعة"
حالة أخرى: GetDigit = ""
إنهاء اختر
نهاية وظيفة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أحتاج إلى تطبيق جميع مصنفات إكسيل. كيفية تطبيق هذا الترميز على جميع مصنفات Excel.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
روبية أربعة عشر ألف وثمانمائة وخمسة وسبعون فقط المبلغ الأخير يجب أن يحتوي على الكلمة والمثال
روبية أربعة عشر ألفاً وثمانمائة وخمسة وسبعون فقط
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يمكن قراءة أكثر من 10 كرور روبية.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بحيرة واحدة وتسعة وستون ألفًا وواحد وثمانون بايز - لم يتم تحويلها بشكل صحيح. أيضًا لم يتم تحويل الشكل أعلاه عند تقريبه.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لك على المدونة ...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا للترميز. لقد تقدمت بطلب وعملها. لكنه ينطبق فقط على هذا المصنف بعينه. أحتاج إلى تطبيق جميع مصنفات إكسيل. كيفية تطبيق هذا الترميز على جميع مصنفات Excel.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا , SivaG
نعم ، هذا الرمز هو وظيفة محددة بواسطة المستخدم ، يجب عليك تطبيق الصيغة على الملفات واحدًا تلو الآخر ، إذا كنت بحاجة إلى رمز لتطبيقه على العديد من المصنفات ، فسيتم تطبيقه على جميع الأرقام ، لذلك سيتم تغيير جميع الأرقام. ولا يمكن للرمز أن يدعم التراجع ، فهناك بعض المخاطر الأمنية. لا ينصح بعمل هذا. شكرًا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكن إزالة كلمة "روبية"؟ عادةً ما تحتوي أوراق الشيك على كلمة "روبية" بالفعل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا سكريا
لحل مشكلتك ، يرجى تطبيق الكود أدناه:
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(xTemp) > 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 = 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



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

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

نعم ، طالما تم نسخ الكود في وحدة نافذة vba ، يمكن تطبيق الصيغة على المصنف بأكمله.
ولكن عند إغلاق المصنف ، يجب عليك حفظه كملف مصنف Excel ممكن بماكرو تنسيق الملف.
من فضلك جرب ، شكرا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حاولت عدة مرات أنها لا تعمل. الرجاء المساعدة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Hey, Great Help! Thanks for creating such a wonderful code.

It has saved a lot of time. "God Bless You!!"
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL