فبا: كيفية إضافة القيم في النطاق

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

 SubSumValues ()
    Range(" D2 ") = WorksheetFunction.Sum(Range(" B2:B11 "))
End Sub

يحسب هذا المثال مجموع القيم في النطاق B2:B11 ويعين النتيجة للخلية D2 .

إذا كنت تريد بدلاً من ذلك عرض مجموع القيم في مربع رسالة، فيمكنك استخدام بناء الجملة التالي:

 SubSumValues ()
    'Create variable to store sum of values
    Dim sum As Single
    
    'Calculate sum of values in range
    sum = WorksheetFunction.Sum(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Sum of Values in Range: " & sum
End Sub

توضح الأمثلة التالية كيفية استخدام كل من هذه الطرق عمليًا مع مجموعة البيانات التالية في Excel والتي تحتوي على معلومات حول لاعبي كرة السلة المختلفين:

مثال 1: حساب مجموع النطاق باستخدام VBA وعرض النتائج في الخلية

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

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

 SubSumValues ()
    Range(" D2 ") = WorksheetFunction.Sum(Range(" B2:B11 "))
End Sub

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

لاحظ أن الخلية D2 تحتوي على القيمة 245 .

يخبرنا هذا أن مجموع القيم في عمود النقاط هو 245.

مثال 2: حساب مجموع النطاق باستخدام VBA وعرض النتائج في مربع الرسالة

لنفترض أننا نريد بدلاً من ذلك حساب مجموع القيم في عمود النقاط وعرض النتائج في مربع رسالة.

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

 SubSumValues ()
    'Create variable to store sum of values
    Dim sum As Single
    
    'Calculate sum of values in range
    sum = WorksheetFunction.Sum(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Sum of Values in Range: " & sum
End Sub

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

يخبرنا مربع الرسالة أن مجموع القيم في النطاق B2:B11 هو 245 .

لاحظ أننا في هذا المثال قمنا بحساب مجموع القيم في النطاق B2:B11 .

ومع ذلك، إذا كنت تريد بدلاً من ذلك حساب مجموع القيم في عمود كامل، فيمكنك كتابة B:B بدلاً من ذلك.

سيؤدي هذا إلى حساب مجموع القيم لكل خلية في العمود B.

مصادر إضافية

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

فبا: كيفية حساب متوسط قيمة النطاق
فبا: كيفية حساب عدد الصفوف في النطاق
فبا: كيفية كتابة وظائف SUMIF وSUMIFS