فبا: كيفية تنسيق الخلايا كنسبة مئوية

يمكنك استخدام بناء الجملة الأساسي التالي في VBA لتنسيق كل خلية في نطاق كنسبة مئوية.

 SubFormatPercent ()
    Dim i As Integer

    For i = 2 To 11
    Range(" A " & i).NumberFormat = " 0.00% "
    Next i
    
End Sub

يقوم هذا المثال تحديدًا بتنسيق كل خلية في النطاق A2:A11 كقيمة نسبة مئوية بمنزلتين عشريتين.

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: تنسيق الخلايا كنسبة مئوية باستخدام VBA

لنفترض أن لدينا قائمة القيم التالية في Excel:

لنفترض أننا نريد تنسيق كل قيمة كنسبة مئوية.

على سبيل المثال:

• يجب تنسيق 0.22 كـ 22%.
• يجب تنسيق 0.35 كـ 35%.

وما إلى ذلك وهلم جرا.

يمكننا إنشاء الماكرو التالي للقيام بذلك:

 SubFormatPercent ()
    Dim i As Integer

    For i = 2 To 11
    Range(" A " & i).NumberFormat = " 0.00% "
    Next i
    
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

يتم الآن تنسيق كل قيمة كنسبة مئوية بمنزلتين عشريتين.

لاحظ أن عدد الأصفار بعد العلامة العشرية في خاصية NumberFormat يحدد عدد المنازل العشرية التي سيتم عرضها في كل نسبة مئوية.

يمكننا استخدام الصيغة التالية لعرض عدم وجود منازل عشرية في كل نسبة مئوية:

 SubFormatPercent ()
    Dim i As Integer

    For i = 2 To 11
    Range(" A " & i).NumberFormat = " 0% "
    Next i
    
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

لاحظ أنه تمت إزالة المنازل العشرية من كل قيمة مئوية.

ملاحظة : يمكنك العثور على الوثائق الكاملة لخاصية VBA NumberFormat هنا .

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

فبا: كيفية فرز ورقة حسب أعمدة متعددة
فبا: كيفية حساب عدد الصفوف في النطاق
فبا: كيفية تصفية عمود