وظيفة VBA Max | كيفية البحث عن الحد الأقصى باستخدام Max في Excel VBA؟
يستخدم Max ، كما يوحي الاسم ، لاكتشاف القيمة القصوى من مجموعة بيانات أو مصفوفة معينة ، هذه وظيفة ورقة عمل لذلك يتم استخدامها مع طريقة ورقة العمل كدالة ورقة عمل ، وهناك قيود على هذه الطريقة مثل هذا تأخذ الدالة مصفوفة كوسيطة لا يمكن أن يكون هناك سوى 30 قيمة في المصفوفة.
وظيفة Excel VBA Max
لدينا العديد من الوظائف العددية في برنامج Excel. يمكننا حساب القيم العددية في النطاق ، ويمكننا الجمع ، ويمكننا إيجاد الحد الأدنى للقيمة وكذلك الحد الأقصى لقيمة اللوت. للعثور على القيمة القصوى للعقد ، لدينا وظيفة Excel تسمى MAX والتي ستعيد القيمة القصوى لنطاق الأرقام المقدم. في VBA ، ليس لدينا أي وظيفة مضمنة تسمى "MAX" للحصول على الحد الأقصى من العدد. سنرى كيفية استخدام وظيفة Excel VBA Max هذه.
مثال على وظيفة Max في Excel VBA
لسوء الحظ ، ليس لدينا رفاهية استخدام MAX كوظيفة مدمجة في VBA ولكن يمكننا الوصول إلى هذه الوظيفة كجزء من فئة دالة ورقة العمل.
الآن ، انظر إلى الكود أدناه.
رمز:
Sub MAX_Example1 () Dim a As Integer Dim b as Integer Dim c as Integer Dim نتيجة عدد صحيح a = 50 b = 25 c = 60 النتيجة = WorksheetFunction.Max (a، b، c) MsgBox Result End Sub
في المثال أعلاه ، أعلنت ثلاثة متغيرات لتخزين الرقم.
Dim a As Integer Dim b as Integer Dim c As Integer
لقد أعلنت متغيرًا آخر لعرض النتائج.
نتيجة قاتمة كعدد صحيح.
بالنسبة للمتغيرات الثلاثة الأولى ، قمت بتعيين القيمة مثل 50 و 25 و 60 على التوالي.
أ = 50 ب = 25 ج = 60
في السطر التالي ، قمت بتطبيق MAX كفئة دالة ورقة عمل VBA لتخزين النتيجة إلى المتغير "النتيجة".
النتيجة = دالة ورقة العمل القصوى (أ ، ب ، ج)
أخيرًا ، أعرض القيمة في مربع الرسائل في VBA. نتيجة MsgBox
الآن سأقوم بتشغيل هذا الرمز باستخدام F5 أو يدويًا وأرى النتيجة في مربع الرسالة.
إذن ، النتيجة هي 60.
من بين جميع الأرقام المقدمة ، أي 50 و 25 و 60 ، يكون الحد الأقصى هو 60.
مثال متقدم على Max في Excel VBA
الحلقات مهمة جدًا في VBA للتشغيل عبر جميع الخلايا والوصول إلى النتيجة. سنرى كيفية دمج VBA MAX مع الحلقات للوصول إلى القيمة القصوى من قائمة الأرقام.
لدي قائمة بالعناصر وأداء مبيعاتها الشهرية لتلك العناصر كما هو موضح أدناه.
الآن لكل عنصر ، أريد أن أعرف ما هو أقصى رقم بيع على مدار 4 أشهر كما هو موضح في الصورة.
من خلال تطبيق MAX في Excel ، يمكننا العثور على هذا في بضع ثوانٍ.
سنرى الآن كيفية العثور على الحد الأقصى للقيمة باستخدام كود فبا.
سيقوم الكود أدناه بمهمة العثور على الحد الأقصى لعدد كل عنصر.
رمز:
MAX_Example2 () خافت k كعدد صحيح لـ k = 2 إلى 9 خلايا (k، 7) .Value = WorksheetFunction.Max (Range ("A" & k & ":" & "E" & k)) التالي k End Sub
سيحدد هذا العدد الأقصى بسهولة.
الآن قم بتشغيل الكود يدويًا أو اضغط على مفتاح F5 وشاهد النتيجة كما هو موضح أدناه.
من أجل الحصول على الحد الأقصى لقيم اسم الشهر استخدم الكود أدناه.
رمز:
MAX_Example2 () خافت ك كعدد صحيح لـ k = 2 إلى 9 خلايا (k، 7) .Value = WorksheetFunction.Max (Range ("B" & k & ":" & "E" & k)) الخلايا (k، 8) .Value = WorksheetFunction.Index (Range ("B1: E1")، WorksheetFunction.Match _ (Cells (k، 7) .Value، Range ("B" & k & ":" & "E" & k) )) التالي k End Sub
استنادًا إلى القيمة التي توفرها دالة VBA max ، ستُرجع الدالة INDEX & MATCH الشهر المرتبط في السطر التالي.
أشياء للذكرى
- إذا كان رقمهم المكرر موجودًا فسيظهر رقمًا واحدًا فقط والذي يأتي أولاً.
- هذه هي الصيغة المعاكسة للدالة MIN في Excel.
- MAX ليس دالة VBA ، إنها وظيفة مضمنة في Excel ، لذلك باستخدام فئة دالة ورقة العمل.
يمكنك تنزيل قالب Excel هذا هنا - قالب وظيفة VBA Max
