विषयसूची
यह आलेख एक्सेल में VBA का उपयोग करते हुए बिना किसी डुप्लिकेट के यादृच्छिक संख्या जनरेटर के 4 उदाहरण दिखाता है। यहां हम अपने कोड को कॉन्फ़िगर करने के लिए एक्सेल के बिल्ट-इन Rnd फ़ंक्शन का उपयोग करेंगे। अद्वितीय यादृच्छिक संख्या उत्पन्न करने की तकनीकों को सीखने के लिए उदाहरणों में गोता लगाएँ।
अभ्यास कार्यपुस्तिका डाउनलोड करें
इस लेख को पढ़ते समय अभ्यास करने के लिए इस अभ्यास कार्यपुस्तिका को डाउनलोड करें।
बिना डुप्लीकेट वाले रैंडम नंबर जेनरेटर.xlsm
एक्सेल VBA में बिना डुप्लीकेट वाले रैंडम नंबर जेनरेटर के 4 उदाहरण
विज़ुअल बेसिक एडिटर में कोड लिखें
बिना किसी डुप्लीकेट के यादृच्छिक संख्या उत्पन्न करने के लिए , हमें खोलना और वीबीए लिखना होगा कोड विजुअल बेसिक एडिटर में। विज़ुअल बेसिक एडिटर खोलने के लिए विज़ुअल बेसिक एडिटर खोलने के लिए चरणों का पालन करें और वहां कुछ कोड लिखें।
- <1 पर जाएं एक्सेल रिबन से डेवलपर टैब।
- विजुअल बेसिक विकल्प क्लिक करें।
- अनुप्रयोगों के लिए विजुअल बेसिक विंडो में, इन्सर्ट ड्रॉपडाउन पर क्लिक करके नया मॉड्यूल चुनें ऑप्शन।
अब अपना कोड विजुअल कोड एडिटर के अंदर डालें और F5 दबाएं से चलाएं इसे।
1। कोई डुप्लिकेट नहीं के साथ यादृच्छिक संख्या उत्पन्न करने के लिए VBA Rnd फ़ंक्शन का उपयोग
Rnd फ़ंक्शन का उपयोग Excel VBA से <1 में किया जाता है> यादृच्छिक संख्याएँ उत्पन्न करें जो कि 0 के बीच हैं और 1 एक्सक्लूसिव।
टास्क : 10 रैंडम नंबर जेनरेट करें 0 और 1 के बीच कोशिकाओं A1:A10 में।
कोड : निम्नलिखित कोड विजुअल बेसिक एडिटर में डालें और F5 दबाएं to run it.
9773
आउटपुट : ऊपर दिया गया स्क्रीनशॉट 10 यूनिक रैंडम नंबर<2 दिखाता है> 0 और 1 की श्रेणी में।
कोड स्पष्टीकरण:
इस कोड में, हमने Rnd फ़ंक्शन <2 का उपयोग किया>to रैंडम संख्याएं सेल रेंज A1:A10 में डालें। एक नया नंबर डालने से पहले, हमने नंबर में नंबर के देखने के लिए डू व्हाइल लूप का इस्तेमाल किया था। 1>पूर्वनिर्धारित सेल रेंज (A1:A10) क्या यह पहले से मौजूद है या नहीं । हर बार सेल रेंज में संख्या के अस्तित्व की जांच करने के लिए, हमने COUNTIF फ़ंक्शन के साथ कोड को कॉन्फ़िगर किया, यह फ़ंक्शन पहले से मौजूद संख्याओं की सूची में एक नई यादृच्छिक संख्या जाँच करता है, इसे डालने से पहले।
और पढ़ें : यादृच्छिक संख्या उत्पन्न करने के लिए एक्सेल सूत्र (5 उदाहरण)
2. कोई डुप्लिकेट नहीं के साथ परिभाषित लोअरबाउंड और अपरबाउंड के लिए रैंडम नंबर जेनरेटर
रैंडम संख्या उत्पन्न करने के लिए एक परिभाषित सीमा के भीतर, हमें यह करना होगा हमारे VBA कोड में लोअरबाउंड और अपरबाउंड सेट करें। जानकारी के लिए, निचली सीमा निम्नतम संख्या और ऊपरी सीमा है यादृच्छिक संख्या जनरेटर के लिए श्रेणी में उच्चतम संख्या है। हम अपने कोड में निम्नलिखित सूत्र का उपयोग कर सकते हैं।
(अपरबाउंड - लोअरबाउंड + 1) * राउंड + लोअरबाउंड
2.1 रैंडम संख्या जेनरेटर- दशमलव
कार्य : 10 यादृच्छिक संख्या 10 और 20 के बीच <1 उत्पन्न करें> सेल A1: A10।
कोड : निम्नलिखित कोड विजुअल बेसिक एडिटर में डालें और F5 दबाएं to run it.
7950
आउटपुट : ऊपर दिया गया स्क्रीनशॉट 10 यूनीक रैंडम नंबर<2 दिखाता है> 1 और 10 की रेंज में।
2.2 रैंडम नंबर जेनरेटर- इंटीजर
इस उदाहरण में, हम <1 का उपयोग करेंगे> वीबीए इंट फ़ंक्शन से आंशिक भाग को यादृच्छिक संख्या से को हटा दें।
कार्य : सेल A1:B10 में 1 और 20 के बीच 20 यादृच्छिक पूर्णांक संख्या उत्पन्न करें।
कोड : निम्नलिखित कोड विजुअल बेसिक एडिटर में डालें और F5 दबाएं to run it.
1393
आउटपुट : उपरोक्त स्क्रीनशॉट 20 अद्वितीय यादृच्छिक पूर्णांक संख्या दिखाता है 1 और 20 की रेंज में। 3>
इसी तरह की रीडिंग
- एक्सेल में डेटा एनालिसिस टूल और फंक्शन के साथ रैंडम नंबर जेनरेटर
- कैसे करें एक्सेल में रैंडम डेटा जेनरेट करें (9आसान तरीके)
- एक्सेल में रैंडम 5 डिजिट नंबर जेनरेटर (7 उदाहरण)
- एक्सेल में रैंडम 4 डिजिट नंबर जेनरेटर (8 उदाहरण)
- एक्सेल में लिस्ट से रैंडम नंबर जेनरेट करें (4 तरीके)
3. एक्सेल वीबीए में विशिष्ट रैंडम नंबर जेनरेटर के लिए दशमलव स्थान निर्दिष्ट करें
हम अपने कोड में राउंड फंक्शन का उपयोग निर्दिष्ट करने के लिए कर सकते हैं दशमलव स्थानों की संख्या बेतरतीब ढंग से उत्पन्न अद्वितीय संख्या में। फ़ंक्शन का वाक्यविन्यास है-
Round(अभिव्यक्ति, [numdecimalplaces])
हमें निर्दिष्ट करने की आवश्यकता है दूसरा तर्क हमारी आवश्यकता के अनुसार।
कार्य : दो दशमलव स्थानों के साथ 20 यादृच्छिक संख्याएं उत्पन्न करें <1 के बीच>1
और 20 कोशिकाओं A1:B10 में।कोड : निम्नलिखित कोड विजुअल बेसिक एडिटर में डालें और F5 दबाएं to run it.
2770
आउटपुट : उपरोक्त स्क्रीनशॉट 20 अद्वितीय यादृच्छिक पूर्णांक संख्या दिखाता है 2 दशमलव स्थान 1 और 20 की श्रेणी में।
और पढ़ें: दशमलव के साथ एक्सेल में यादृच्छिक संख्या उत्पन्न करें (3 विधियाँ)
4. एक्सेल VBA
में कोई डुप्लीकेट नहीं के साथ रैंडम नंबर जेनरेटर के लिए एक यूजरफॉर्म विकसित करें इस उदाहरण में, हम दिखाएंगे कि यूजरफॉर्म का उपयोग कैसे करें Excel VBA यादृच्छिक संख्या उत्पन्न करने के लिए कोई डुप्लिकेट नहीं के साथ।
कार्य: उत्पन्न करें20 रैंडम नंबर सेल रेंज में A1:B10 एक यूजरफॉर्म का इस्तेमाल करते हुए इनपुट वैल्यू (i) लोअरबाउंड (ii) के साथ अपरबाउंड (iii) दशमलव स्थानों की संख्या।
एक UserForm बनाएँ:
हमारे वांछित इनपुट फ़ील्ड के साथ UserForm बनाने के लिए नीचे दिए गए चरणों का पालन करें .
- एक्सेल रिबन से डेवलपर टैब पर जाएं।
- विज़ुअल पर क्लिक करें मूल विकल्प।
- अनुप्रयोगों के लिए विजुअल बेसिक विंडो में, सम्मिलित करें ड्रॉपडाउन <2 क्लिक करें से यूज़रफ़ॉर्म विकल्प
- यूज़रफ़ॉर्म ऐड में चुनें। a लेबल .
- गुणों में लेबल लोअरबाउंड के रूप में कैप्शन दें.
<3
- दो अधिक लेबल नाम अपरबंड और दशमलव स्थान जोड़ें।
- अब यूज़रफ़ॉर्म में तीन टेक्स्टबॉक्स जोड़ें।
- इस स्तर पर, एक कमांडबटन जोड़ें और इसे जनरेट करें नाम दें।
- अब, डबल क्लिक द कमांड बटन और निम्नलिखित कोड कोड संपादक में डालें।
6956
- कोड रन करने के लिए F5 दबाएं>और यूजरफॉर्म दिखाई दिया है ।
- लोअरबाउंड , ऊपरीबाउंड, और संख्या 2> दशमलव स्थानों में UserForm में और जेनरेट पर हिट करेंबटन ।
आउटपुट : सेल A1:B10 में, 20 रैंडम हैं संख्या 2 दशमलव स्थानों के साथ 1 से 30 की श्रेणी में।
और पढ़ें: एक्सेल में डुप्लीकेट के बिना रैंडम संख्याएं कैसे उत्पन्न करें (7 तरीके)
याद रखने योग्य बातें
- हम इसका उपयोग भी कर सकते हैं इंटर फंक्शन के बजाय अद्वितीय पूर्णांक संख्या उत्पन्न करने के लिए फ़ंक्शन को ठीक करें। फ़ंक्शन किसी संख्या के भिन्नात्मक भाग को Int फ़ंक्शन की तरह हटा देता है।
निष्कर्ष
अब, हम जानते हैं कि कैसे उपयुक्त उदाहरणों की मदद से एक्सेल में वीबीए का उपयोग करके अद्वितीय यादृच्छिक संख्याएं उत्पन्न की जाती हैं। उम्मीद है, यह आपको कार्यक्षमता का अधिक आत्मविश्वास से उपयोग करने में मदद करेगा। कोई भी प्रश्न या सुझाव उन्हें नीचे कमेंट बॉक्स में डालना न भूलें।
