كيفية استخدام مشغل mod في vba (مع أمثلة)

يمكنك استخدام عامل التشغيل Mod في VBA لحساب باقي القسمة.

فيما يلي طريقتان شائعتان لاستخدام هذا العامل عمليًا.

الطريقة الأولى: استخدام Mod Operator مع القيم الثابتة

 SubUseMod ()
Range(" A1 ") = 20 Mod 6
End Sub

سيعيد هذا المثال تحديدًا باقي 20 مقسومًا على 6 في الخلية A1 .

الطريقة الثانية: استخدم عامل التشغيل Mod مع مراجع الخلايا

 SubUseMod ()
Range(" C2 ") = Range(" A2 ") Mod Range(" B2 ")
End Sub

سيقوم هذا المثال المحدد بحساب باقي القيمة في الخلية A2 مقسومة على القيمة الموجودة في الخلية B2 وعرض النتيجة في الخلية C2 .

توضح الأمثلة التالية كيفية استخدام كل طريقة عمليًا.

المثال 1: استخدم Mod Operator مع القيم الثابتة

لنفترض أننا نريد حساب باقي 20 مقسومًا على 6 وعرض النتيجة في الخلية A1 .

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

 SubUseMod ()
Range(" A1 ") = 20 Mod 6
End Sub

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

نتيجة 20 طلقة من Mod 6 هي 2 .

يتم عرض هذه القيمة في الخلية A1 ، كما حددنا في الماكرو.

ملاحظة : يتم إدخال القيمة “6” بالرقم “20” ثلاث مرات ويكون الباقي 2 . هذه هي الطريقة التي يتم بها حساب 20 Mod 6.

المثال 2: استخدام عامل التعديل مع مراجع الخلايا

لنفترض أننا نريد حساب باقي القيمة في الخلية A2 مقسومة على القيمة الموجودة في الخلية B2 وعرض النتيجة في الخلية C2 .

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

 SubUseMod ()
Range(" C2 ") = Range(" A2 ") Mod Range(" B2 ")
End Sub

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

نتيجة 20 طلقة من Mod 6 هي 2 .

يتم عرض هذه القيمة في الخلية C2 ، كما حددنا في الماكرو.

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

مصادر إضافية

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

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