/ / معرف المستخدم وظيفة في Excel VBA

وظيفة محددة من قبل المستخدم في Excel VBA

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

نريد إنشاء دالة تسمى SUMEVENNUMBERS التي تعثر على مجموع الأرقام الزوجية لنطاق محدد عشوائيًا.

موقف:

وظيفة محددة من قبل المستخدم في Excel VBA

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

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

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

Function SUMEVENNUMBERS(rng As Range)

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

3. بعد ذلك ، نعلن عن كائن نطاق ونسميه الخلية.

Dim cell As Range

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

For Each cell In rng

Next cell

ملاحظة: يتم اختيار الخلية عشوائياً هنا ، يمكنك استخدام أي اسم.

5. بعد ذلك ، نتحقق من كل قيمة في هذا النطاق سواء كانت أو لم تكن. نحن نستخدم المشغل وزارة الدفاع لهذا. يعطي المشغل Mod الجزء المتبقي من التقسيم. لذا فإن 7 mod 2 سيعطي 1. 7 مقسوماً على 2 (3 مرات) لإعطاء ما تبقى من 1. بعد قول ذلك ، من السهل التحقق مما إذا كان الرقم متساوي أم لا. فقط إذا كان الجزء المتبقي من الرقم مقسوماً على 2 هو 0 ، يكون الرقم متساويًا. 8 mod 2 يعطي 0 ، 8 مقسوم على 2 بالضبط 4 مرات ، وبالتالي 8 حتى. إضافة العبارة If التالية إلى حلقة For كل التالي.

If cell.Value Mod 2 = 0 Then

End If

6. فقط إذا كانت هذه العبارة صحيحة ، نضيف القيمة إلى SUMEVENNUMBERS. أضف السطر التعليمات البرمجية التالي في عبارة If.

SUMEVENNUMBERS = SUMEVENNUMBERS + cell.Value

7. لا تنسَ إنهاء الوظيفة (خارج الحلقة).

End Function

8. الآن يمكنك استخدام هذه الوظيفة ، تمامًا مثل أي وظيفة Excel أخرى ، للعثور على مجموع الأرقام الزوجية لنطاق تم تحديده عشوائيًا.

نتيجة:

دالة دالة معرفة من قبل المستخدم

أحسنت! هذا هو مدى سهولة وظائف معرف المستخدم في Excel VBA. ملاحظة: هذه الوظيفة متوفرة فقط في هذا المصنف.

اقرأ أيضًا: