Vba: यादृच्छिक संख्याएँ उत्पन्न करने के लिए randbetween का उपयोग कैसे करें

आप दो विशिष्ट मानों के बीच एक यादृच्छिक पूर्णांक उत्पन्न करने के लिए VBA में RandBetween विधि का उपयोग कर सकते हैं।

व्यवहार में इस पद्धति का उपयोग करने के दो सामान्य तरीके यहां दिए गए हैं:

विधि 1: यादृच्छिक पूर्णांक उत्पन्न करने के लिए RandBetween का उपयोग करें

 SubGenerateRandomInteger ()
Range(" A1 ") = WorksheetFunction.RandBetween(1, 100)
End Sub

यह विशेष मैक्रो सेल A1 में 1 और 100 के बीच एक यादृच्छिक पूर्णांक उत्पन्न करेगा।

विधि 2: एकाधिक यादृच्छिक पूर्णांक उत्पन्न करने के लिए RandBetween का उपयोग करें

 Sub GenerateMultipleRandomIntegers()

    Dim i As Integer
    
    For i = 1 To 10
        Range(" A " & i) = WorksheetFunction.RandBetween(1, 100)
    Next i
    
End Sub

यह विशेष मैक्रो A1:A10 श्रेणी में प्रत्येक सेल के लिए 1 और 100 के बीच एक यादृच्छिक पूर्णांक उत्पन्न करेगा।

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

उदाहरण 1: यादृच्छिक पूर्णांक उत्पन्न करने के लिए RandBetween का उपयोग करें

मान लीजिए कि हम 1 और 100 के बीच एक यादृच्छिक संख्या उत्पन्न करना चाहते हैं और परिणाम को एक्सेल में अपनी वर्तमान शीट के सेल ए1 में रखना चाहते हैं।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 SubGenerateRandomInteger ()
Range(" A1 ") = WorksheetFunction.RandBetween(1, 100)
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

ध्यान दें कि सेल A1 में मान 36 है।

ध्यान दें कि हर बार जब हम इस मैक्रो को चलाते हैं, तो 1 और 100 के बीच एक अलग पूर्णांक मान उत्पन्न हो सकता है।

उदाहरण 2: एकाधिक यादृच्छिक पूर्णांक उत्पन्न करने के लिए RandBetween का उपयोग करें

मान लीजिए कि हम इसके बजाय A1:A10 श्रेणी में प्रत्येक सेल के लिए 1 और 100 के बीच एक यादृच्छिक पूर्णांक उत्पन्न करना चाहते हैं।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 Sub GenerateMultipleRandomIntegers()

    Dim i As Integer
    
    For i = 1 To 10
        Range(" A " & i) = WorksheetFunction.RandBetween(1, 100)
    Next i
    
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

ध्यान दें कि A1:A10 श्रेणी की प्रत्येक कोशिका में 1 और 100 के बीच एक यादृच्छिक पूर्णांक होता है।

नोट : आप यहां RandBetween VBA विधि के लिए पूर्ण दस्तावेज़ पा सकते हैं।

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

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

वीबीए: AVERAGEIF और AVERAGEIFS फ़ंक्शन कैसे लिखें
वीबीए: SUMIF और SUMIFS फ़ंक्शन कैसे लिखें
VBA: COUNTIF और COUNTIFS फ़ंक्शंस कैसे लिखें