كيفية إنشاء دالة مضروبة في vba (مع مثال)

المضروب هو حاصل ضرب جميع الأعداد الصحيحة الموجبة الأصغر من أو يساوي عددًا صحيحًا موجبًا معينًا.

على سبيل المثال، يتم حساب مضروب 5 (مكتوب 5!) على النحو التالي:

• 5! = 5 * 4 * 3 * 2 * 1 = 120

يمكنك استخدام بناء الجملة التالي لإنشاء دالة مضروب في VBA:

 Function FindFactorial(N As Integer) As Double

 Dim i As Integer, result As Long
 
 result = 1

 For i = 1 To N
     result = result * i
 Next

 FindFactorial = result

End Function

بمجرد إنشاء هذه الوظيفة، يمكنك بعد ذلك كتابة شيء مثل =FindFactorial(A2) في خلية في برنامج Excel للعثور على مضروب العدد الصحيح في الخلية A2 .

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: إنشاء دالة عاملية في VBA

لنفترض أن لدينا قائمة الأرقام التالية في برنامج Excel ونريد حساب مضروب كل رقم:

يمكننا تحديد الوظيفة التالية في VBA للقيام بذلك:

 Function FindFactorial(N As Integer) As Double

 Dim i As Integer, result As Long
 
 result = 1

 For i = 1 To N
     result = result * i
 Next

 FindFactorial = result

End Function

بمجرد إنشاء هذه الدالة، يمكننا بعد ذلك كتابة الصيغة التالية في الخلية B2 لحساب مضروب القيمة في الخلية A2 :

 =FindFactorial( A2 )

يمكننا بعد ذلك النقر على هذه الصيغة وسحبها إلى كل خلية متبقية في العمود B:

لاحظ أن العمود B يعرض الآن مضروب كل عدد صحيح في العمود A.

على سبيل المثال:

• 1! = 1
• 2! = 2 * 1 = 2
• 3! = 3 * 2 * 1 = 6
• 4! = 4 * 3 * 2 * 1 = 24

وما إلى ذلك وهلم جرا.

ملاحظة : لحساب المضروب في Excel دون استخدام VBA، يمكنك استخدام الدالة FACT .

مصادر إضافية

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

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