تحويل الأرقام إلى كلمات

ملاحظة: نرغب في تزويدك بأحدث محتوى تعليمات لدينا بأسرع ما يمكن وبلغتك الخاصة. وقد تمت ترجمة هذه الصفحة آلياً وقد تحتوي على أخطاء نحوية أو أخطاء تتعلق بالدقة. كما نهدف إلى أن يكون هذا المحتوى مفيداً لك. هل يمكنك إخبارنا إذا كانت المعلومات مفيدة لك في أسفل هذه الصفحة؟ إليك المقالة بالغة الإنجليزية لسهولة الرجوع إليها.

لا يتوفر داله افتراضي ل# عرض الارقام ك# الكلمات ب# اللغه الانجليزيه في ورقه عمل في Excel، و# لكن يمكنك اضافه هذه القدره ب# لصق التعليمه البرمجيه التاليه ل# الداله سبيلنومبير في وحده نمطيه ل VBA (Visual Basic for Applications). تتيح لك تحويل كميات الدولار و# نسبه المئويه الي الكلمات التي تحتوي علي صيغه، ول# ذلك ب# قراءه 22.50 ك# اثنين عشرين ريالات سعوديه و# خمسين هلله هذه الداله. يمكن ان يكون هذا مفيدا اذا كنت تستخدم Excel ك# قالب ل# طباعه تدقيق.

اذا كنت تريد تحويل القيم الرقميه الي تنسيق نص دون عرضهم ك# الكلمات، استخدم الداله TEXT بدلا من ذلك.

ملاحظة: توفر Microsoft امثله البرمجه ل# التوضيح فقط، دون ضمان او مضمن. هذا يتضمن، و# لكن ليس الحصر، الضمانات القابليه او الملاءمه ل# غرض معين. تفترض هذه المقاله كنت معتادا علي لغه البرمجه VBA، و# الادوات التي يتم استخدامها ل# انشاء الاجراءات و# تصحيحها. يمكنك مساعده المهندسين دعم Microsoft شرح وظيفه اجراء محدد. و# مع ذلك، لن يقوموا ب# تعديل هذه الامثله ل# تقديم وظيفه اضافيه، او انشاء اجراءات ل# تلبيه متطلبات محدده.

إنشاء الدالة SpellNumber لتحويل أرقام إلى كلمات

  1. استخدم مفتاح الاختصار، Alt + F11 ل# فتح محرر Visual Basic (VBE).

    ملاحظة: يمكنك أيضاً الوصول إلى محرر Visual Basic عن طريق إظهار علامة التبويب المُطور في الشريط.

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

    في قائمة إدراج، انقر فوق الوحدة النمطية.
  3. انسخ أسطر التعليمات البرمجية التالية.

    ملاحظة: يعرف داله معرفه من قبل المستخدم (UDF)، اتمته هذا الرمز مهمه تحويل ارقام الي النص في ورقه العمل ب# الكامل.

    Option Explicit
    
    'Main Function
    
    Function SpellNumber(ByVal MyNumber)
    
    Dim Dollars, Cents, Temp
    
    Dim DecimalPlace, Count
    
    ReDim Place(9) As String
    
    Place(2) = " Thousand "
    
    Place(3) = " Million "
    
    Place(4) = " Billion "
    
    Place(5) = " Trillion "
    
    ' String representation of amount.
    
    MyNumber = Trim(Str(MyNumber))
    
    ' Position of decimal place 0 if none.
    
    DecimalPlace = InStr(MyNumber, ".")
    
    ' Convert cents and set MyNumber to dollar amount.
    
    If DecimalPlace > 0 Then
    
    Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2))
    
    MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
    
    End If
    
    Count = 1
    
    Do While MyNumber <> ""
    
    Temp = GetHundreds(Right(MyNumber, 3))
    
    If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars
    
    If Len(MyNumber) > 3 Then
    
    MyNumber = Left(MyNumber, Len(MyNumber) - 3)
    
    Else
    
    MyNumber = ""
    
    End If
    
    Count = Count + 1
    
    Loop
    
    Select Case Dollars
    
    Case ""
    
    Dollars = "No Dollars"
    
    Case "One"
    
    Dollars = "One Dollar"
    
    Case Else
    
    Dollars = Dollars & " Dollars"
    
    End Select
    
    Select Case Cents
    
    Case ""
    
    Cents = " and No Cents"
    
    Case "One"
    
    Cents = " and One Cent"
    
    Case Else
    
    Cents = " and " & Cents & " Cents"
    
    End Select
    
    SpellNumber = Dollars & Cents
    
    End Function
    
    
    ' Converts a number from 100-999 into text
    
    Function GetHundreds(ByVal MyNumber)
    
    Dim Result As String
    
    If Val(MyNumber) = 0 Then Exit Function
    
    MyNumber = Right("000" & MyNumber, 3)
    
    ' Convert the hundreds place.
    
    If Mid(MyNumber, 1, 1) <> "0" Then
    
    Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    
    End If
    
    ' Convert the tens and ones place.
    
    If Mid(MyNumber, 2, 1) <> "0" Then
    
    Result = Result & GetTens(Mid(MyNumber, 2))
    
    Else
    
    Result = Result & GetDigit(Mid(MyNumber, 3))
    
    End If
    
    GetHundreds = Result
    
    End Function
    
    
    ' Converts a number from 10 to 99 into text.
    
    
    Function GetTens(TensText)
    
    Dim Result As String
    
    Result = "" ' Null out the temporary function value.
    
    If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
    
    Select Case Val(TensText)
    
    Case 10: Result = "Ten"
    
    Case 11: Result = "Eleven"
    
    Case 12: Result = "Twelve"
    
    Case 13: Result = "Thirteen"
    
    Case 14: Result = "Fourteen"
    
    Case 15: Result = "Fifteen"
    
    Case 16: Result = "Sixteen"
    
    Case 17: Result = "Seventeen"
    
    Case 18: Result = "Eighteen"
    
    Case 19: Result = "Nineteen"
    
    Case Else
    
    End Select
    
    Else ' If value between 20-99...
    
    Select Case Val(Left(TensText, 1))
    
    Case 2: Result = "Twenty "
    
    Case 3: Result = "Thirty "
    
    Case 4: Result = "Forty "
    
    Case 5: Result = "Fifty "
    
    Case 6: Result = "Sixty "
    
    Case 7: Result = "Seventy "
    
    Case 8: Result = "Eighty "
    
    Case 9: Result = "Ninety "
    
    Case Else
    
    End Select
    
    Result = Result & GetDigit _
    
    (Right(TensText, 1)) ' Retrieve ones place.
    
    End If
    
    GetTens = Result
    
    End Function
    
    
    ' Converts a number from 1 to 9 into text.
    
    Function GetDigit(Digit)
    
    Select Case Val(Digit)
    
    Case 1: GetDigit = "One"
    
    Case 2: GetDigit = "Two"
    
    Case 3: GetDigit = "Three"
    
    Case 4: GetDigit = "Four"
    
    Case 5: GetDigit = "Five"
    
    Case 6: GetDigit = "Six"
    
    Case 7: GetDigit = "Seven"
    
    Case 8: GetDigit = "Eight"
    
    Case 9: GetDigit = "Nine"
    
    Case Else: GetDigit = ""
    
    End Select
    
    End Function
  4. قم بلصق أسطر التعليمات البرمجية إلى المربع الوحدة النمطية 1 (تعليمة برمجية)‏.

    تعليمة برمجية مُلصقة في مُربع الوحدة النمطية 1 (تعليمة برمجية).
  5. اضغط علي Alt + Q ل# العوده الي Excel. الداله سبيلنومبير جاهز الان ل# استخدام.

    ملاحظة: تعمل هذه الداله ل# المصنف الحالي فقط. ل# استخدام هذه الداله في مصنف اخر، يجب تكرار الخطوات الخاصه ب# نسخ و# لصق التعليمه البرمجيه في هذا المصنف.

أعلى الصفحة

استخدام الدالة SpellNumber في خلايا فردية

  1. اكتب الصيغه = سبيلنومبير (A1) في الخليه حيث تريد عرض رقم مكتوبه، حيث يتم A1 الخليه التي تحتوي علي الرقم الذي تريد تحويله. يمكنك ايضا يدويا كتابه القيمه مثل = SpellNumber(22.50).

  2. اضغط علي Enter ل# تاكيد الصيغه.

أعلى الصفحة

حفظ مصنف الدالة SpellNumber

لا يستطيع Excel حفظ مصنف ب# استخدام دالات الماكرو في تنسيق المصنف ماكرو قياسيه (.xlsx). اذا نقرت فوق ملف > حفظ. يفتح مربع حوار مشروع VB. انقر فوق لا.

في مربع حوار المشروع VB، انقر فوق "لا".

يمكنك حفظ الملف ك# excel macro-enabled Workbook (.xlsm) ل# الاحتفاظ ب# الملف ب# تنسيقه الحالي.

  1. انقر فوق ملف >‏ حفظ باسم.

  2. انقر فوق القائمه المنسدله حفظ ب# نوع، و# حدد excel macro-enabled Workbook.

  3. انقر فوق حفظ.

أعلى الصفحة

انظر أيضاً

الدالة ‎‏‎‏TEXT‎‏

تعزيز مهارات Office
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×