वीबीए में फ़ैक्टोरियल फ़ंक्शन कैसे बनाएं (उदाहरण के साथ)

फैक्टोरियल किसी दिए गए सकारात्मक पूर्णांक से कम या उसके बराबर सभी सकारात्मक पूर्णांकों का उत्पाद है।

उदाहरण के लिए, 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

एक बार जब आप यह फ़ंक्शन बना लेते हैं, तो आप सेल A2 में पूर्णांक का फैक्टोरियल खोजने के लिए एक्सेल में एक सेल में =FindFacttorial(A2) जैसा कुछ टाइप कर सकते हैं।

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस वाक्यविन्यास का उपयोग कैसे करें।

उदाहरण: वीबीए में एक फैक्टोरियल फ़ंक्शन बनाएं

मान लीजिए कि हमारे पास एक्सेल में संख्याओं की निम्नलिखित सूची है और हम प्रत्येक संख्या के फैक्टोरियल की गणना करना चाहते हैं:

ऐसा करने के लिए हम 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

एक बार जब हम यह फ़ंक्शन बना लेते हैं, तो हम सेल A2 में मान के फैक्टोरियल की गणना करने के लिए सेल B2 में निम्नलिखित सूत्र टाइप कर सकते हैं:

 =FindFactorial( A2 )

फिर हम इस सूत्र को क्लिक करके कॉलम बी में प्रत्येक शेष सेल पर खींच सकते हैं:

ध्यान दें कि कॉलम बी अब कॉलम ए में प्रत्येक पूर्णांक का फैक्टोरियल प्रदर्शित करता है।

उदाहरण के लिए:

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

और इसी तरह।

नोट : वीबीए का उपयोग किए बिना एक्सेल में फैक्टोरियल की गणना करने के लिए, आप FACT फ़ंक्शन का उपयोग कर सकते हैं।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए: किसी श्रेणी में मान कैसे जोड़ें
वीबीए: रेंज के औसत मूल्य की गणना कैसे करें
वीबीए: श्रेणी में पंक्तियों की संख्या कैसे गिनें