/ / مخصص متوسط ​​وظيفة في Excel VBA

متوسط ​​وظيفة مخصصة في Excel VBA

أدناه سننظر في برنامج في Excel VBA مما يخلق وظيفة محددة من قبل المستخدم يحسب معدل من نطاق تم اختياره عشوائيًا باستثناء قيمة واحدة أو أكثر من القيم المتطرفة ولا يجب تحديد متوسط ​​لها.

موقف:

متوسط ​​وظيفة مخصصة في Excel VBA

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

1. افتح محرر Visual Basic وانقر فوق Insert، Module.

2. أضف سطر الرمز التالي:

Function CUSTOMAVERAGE(rng As Range, lower As Integer, upper As Integer)

اسم وظيفتنا هو CUSTOMAVERAGE. الجزء بين القوسين يعني أننا نعطي Excel VBA نطاقًا واثنين من المتغيرات الصحيحة كمدخلات. نقوم بتسمية نطاق rng الخاص بنا ، متغير واحد صحيح نطلق عليه أقل ، ومتغير عدد صحيح واحد نسميه العلوي ، ولكن يمكنك استخدام أي أسماء.

3. بعد ذلك ، نعلن عن كائن نطاق واثنين من المتغيرات من النوع Integer. نطلق على الخلية كائن المدى. نذكر متغير واحد صحيح نطلق عليه المتغير الإجمالي وعدد صحيح واحد نسميه العد.

Dim cell As Range, total As Integer, count As Integer

4. نريد التحقق من كل خلية في نطاق محدد عشوائيًا (يمكن أن يكون هذا النطاق بأي حجم). في Excel VBA ، يمكنك استخدام حلقة For Each Next لهذا. قم بإضافة خطوط التعليمات البرمجية التالية:

For Each cell In rng

Next cell

ملاحظة: يتم اختيار rng والخلية عشوائياً هنا ، يمكنك استخدام أي أسماء. تذكر الإشارة إلى هذه الأسماء في بقية رمزك.

5. بعد ذلك ، نتحقق من كل قيمة في هذا النطاق إذا كانت تقع بين القيمتين (السفلى والعليا). إذا كان هذا صحيحًا ، فسنزيد كليًا بقيمة الخلية ونجري زيادة العدد بمقدار 1. أضف أسطر الرمز التالية إلى الحلقة.

If cell.Value >= lower And cell.Value <= upper Then
    total = total + cell.Value
    count = count + 1
End If

ﻹﻋﺎدة ﻧﺘﺎﺋﺞ هﺬﻩ اﻟﻮﻇﻴﻔﺔ (اﻟﻤﺘﻮﺳﻂ اﻟﻤﻄﻠﻮب) ، ﻗﻢ ﺑﺈﺿﺎﻓﺔ ﺧﻂ اﻟﺮﻣﺰ اﻟﺘﺎﻟﻲ ﺧﺎرج اﻟﺤﻠﻘﺔ.

CUSTOMAVERAGE = total / count

7. لا تنسَ إنهاء الوظيفة. أضف السطر:

End Function

8. الآن يمكنك استخدام هذه الوظيفة مثل أي وظيفة Excel أخرى لحساب متوسط ​​الأرقام التي تقع بين قيمتين.

نتيجة:

مخصص متوسط ​​وظيفة النتيجة

كشيك ، يمكنك حذف جميع القيم الموجودةأقل من 10 وأعلى من 30 واستخدم دالة المتوسط ​​القياسي في Excel لمعرفة ما إذا كان Excel يقوم بحساب المتوسط ​​نفسه كدالة المتوسط ​​المخصصة الخاصة بنا.

مخصص متوسط ​​وظيفة الاختيار

وظيفة المتوسط ​​المخصص لدينا تعمل! ملاحظة: هذه الوظيفة متوفرة فقط في هذا الكتاب.

اقرأ أيضًا: