كيفية استخدام وظيفة vba formatcurrence؟

يتم إدراج الدالة VBA FORMATCURRENCY في فئة تحويل نوع البيانات لوظائف VBA. عند استخدامه في التعليمات البرمجية لـ VBA، فإنه يقوم بإرجاع سلسلة عن طريق تطبيق تنسيق العملة على رقم . بعبارات بسيطة، يمكنك تحويل رقم إلى قيمة يتم تطبيق تنسيق العملة عليها.

بناء الجملة

FormatCurrency(Expression,[NumDigitsAfterDecimal],[IncludeLeadingDigit],[UseParensForNegativeNumbers],[GroupDigits])

الحجج

• التعبير : القيمة الرقمية التي تريد تنسيقها كعملة.
• [NumDigitsAfterDecimal] : قيمة رقمية لتحديد المنازل العشرية [هذه وسيطة اختيارية وإذا تم حذفها، تكون القيمة الافتراضية هي -1].
• [IncludeLeadingDigit] : قيمة تعداد لتحديد ما إذا كان يجب عرض صفر بادئ [هذه وسيطة اختيارية وإذا تم حذفها vbUseDefault افتراضيًا].
  • vbFalse: ألا يسبقه صفر.
  • vbTrue: يعرض صفرًا بادئًا.
  • vbUseDefault: يستخدم الإعدادات الافتراضية.
• [UseParensForNegativeNumbers] : قيمة تعداد لتحديد ما إذا كان يجب وضع الأرقام السالبة بين قوسين [هذه وسيطة اختيارية ويتم حذفها بواسطة vbUseDefault افتراضيًا].
  • vbFalse: عدم وضع الأرقام السالبة بين قوسين.
  • vbTrue: ضع الأرقام السالبة بين قوسين.
  • vbUseDefault: يستخدم الإعدادات الافتراضية.
• [GroupDigits] : قيمة تعداد n لتحديد ما إذا كان يجب تجميع الرقم (إلى الآلاف، وما إلى ذلك)، باستخدام محدد المجموعة المحدد في لغة الكمبيوتر [هذه وسيطة اختيارية، وإذا تم حذفها vbUseDefault افتراضيًا].
  • vbFalse: لعدم استخدام الأرقام الموجودة في المجموعة.
  • vbTrue: لاستخدام أرقام المجموعة.
  • vbUseDefault: يستخدم الإعدادات الافتراضية للكمبيوتر.

مثال

لفهم كيفية استخدام وظيفة VBA FORMATCURENCY بشكل عملي، يتعين عليك الاطلاع على المثال أدناه حيث قمنا بكتابة كود vba باستخدامها:

 Sub example_FORMATCURRENCY() Range("B1").Value = FormatCurrency(Range("A1")) End Sub

في الكود أعلاه، استخدمنا FORMATCURRENCY لتحويل القيمة الموجودة في الخلية A1 إلى قيمة عملة وتم إرجاعها في الخلية B1 بعلامة الدولار.

تعليقات

• يعتمد رمز العملة المستخدم على إعدادات النظام.
• إذا كانت القيمة المحددة قيمة أخرى غير رقم أو سلسلة لا يمكن التعرف عليها كرقم، فسيقوم VBA بإرجاع خطأ وقت التشغيل 13.