كيفية حساب القيم المطلقة في vba (مع مثال)

تمثل القيمة المطلقة للرقم المسافة بين الرقم والصفر.

لحساب القيم المطلقة في VBA، يمكنك استخدام الدالة Abs .

إليك طريقة شائعة لاستخدام هذه الوظيفة عمليًا:

 Sub FindAbsoluteValue()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = Abs(Range(" A " & i))
    Next i
      
End Sub

يحسب هذا المثال المحدد القيمة المطلقة لكل خلية في النطاق A2:A10 ويعرضها في النطاق B2:B10 .

يوضح المثال التالي كيفية حساب القيم المطلقة في VBA عمليًا.

مثال: كيفية حساب القيم المطلقة في VBA

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

لنفترض أننا نريد حساب القيمة المطلقة لكل خلية في العمود A وعرضها في العمود B.

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

 Sub FindAbsoluteValue()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = Abs(Range(" A " & i))
    Next i
      
End Sub

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

يعرض العمود B الآن القيمة المطلقة لكل قيمة في العمود A.

لاحظ أن كل قيمة من القيم الموجبة في العمود A ظلت موجبة في العمود B.

لاحظ أيضًا أنه تم تحويل كل من القيم السالبة في العمود A إلى قيم موجبة في العمود B.

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

مصادر إضافية

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

فبا: كيفية حساب متوسط قيمة النطاق
فبا: كيفية إضافة القيم في النطاق
فبا: كيفية حساب عدد الصفوف في النطاق