सामग्री तालिका
यस लेखले एक्सेलमा VBA प्रयोग गरी कुनै नक्कल नभएको यान्डम नम्बर जेनेरेटर को ४ उदाहरणहरू चित्रण गर्दछ। यहाँ हामी हाम्रो कोड कन्फिगर गर्न एक्सेलको निर्मित Rnd प्रकार्य प्रयोग गर्नेछौं। अद्वितीय अनियमित संख्याहरू उत्पन्न गर्ने प्रविधिहरू सिक्नको लागि उदाहरणहरूमा डुब्नुहोस्।
अभ्यास कार्यपुस्तिका डाउनलोड गर्नुहोस्
तपाईंले यो लेख पढ्दै गर्दा अभ्यास गर्न यो अभ्यास कार्यपुस्तिका डाउनलोड गर्नुहोस्।
कुनै Duplicates.xlsm बिना अनियमित नम्बर जेनेरेटर
4 एक्सेल VBA मा कुनै नक्कल बिना अनियमित नम्बर जेनेरेटरका उदाहरणहरू
भिजुअल बेसिक सम्पादकमा कोड लेख्नुहोस्
कुनै नक्कल बिना अनियमित नम्बरहरू उत्पन्न गर्न , हामीले खोल्नु पर्छ र VBA लेख्नुहोस्। कोड भिजुअल आधारभूत सम्पादकमा। भिजुअल आधारभूत सम्पादक खोल्न चरणहरू खोल्नुहोस् र त्यहाँ केही कोड लेख्नुहोस्।
- मा जानुहोस् विकासकर्ता ट्याब एक्सेल रिबन बाट।
- भिजुअल बेसिक विकल्पमा क्लिक गर्नुहोस्।
- Visual Basic For Applications विन्डोमा, Insert Dropdown चयन गर्न नयाँ मोड्युलमा क्लिक गर्नुहोस्। विकल्प।
अब आफ्नो कोड लाई भिजुअल कोड सम्पादक भित्र राख्नुहोस् र F5 थिच्नुहोस्। रन यसलाई।
१. कुनै डुप्लिकेट बिना अनियमित नम्बर उत्पन्न गर्न VBA Rnd प्रकार्यको प्रयोग
Rnd प्रकार्य Excel VBA मा <1 मा प्रयोग गरिन्छ> अनियमित संख्याहरू उत्पन्न गर्नुहोस् जुन ० बीचको हो र 1 विशेष।
कार्य : १० अनियमित संख्याहरू उत्पन्न गर्नुहोस् बिच 0 र 1 कक्ष A1:A10 मा।
कोड : घुसाउनुहोस् निम्न कोड भिजुअल आधारभूत सम्पादकमा र F5 थिच्नुहोस् रन यो।
9593
आउटपुट : माथिको स्क्रिनसटले 10 अद्वितीय अनियमित संख्याहरू देखाउँछ ० र १ को दायरामा।
कोड स्पष्टीकरण:
यस कोडमा, हामीले Rnd प्रकार्य <2 प्रयोग गर्यौं। कोल दायरा A1:A10 मा यान्डम नम्बरहरू सम्मिलित गर्न। एक नयाँ नम्बर सम्मिलित गर्नु अघि, हामीले नम्बर को लागि हेर्नुहोस् को लागि डु जबकि लुप प्रयोग गर्यौं। 1>पूर्वनिर्धारित कक्ष दायरा (A1:A10) के यो पहिले नै अवस्थित छ वा होइन । सेल दायरा को नम्बर को अस्तित्व प्रत्येक पटक जाँच गर्न, हामीले कोडलाई COUNTIF प्रकार्य सँग कन्फिगर गर्यौं, यो प्रकार्य जाँच गर्दछ एक नयाँ अनियमित नम्बर को सूचीमा को पहिले नै अवस्थित नम्बरहरू सम्मिलित गर्नु अघि।
थप पढ्नुहोस्। : रेन्डम नम्बर उत्पन्न गर्न एक्सेल सूत्र (५ उदाहरणहरू)
2। निर्धारित लोअरबाउन्ड र अपरबाउन्ड कुनै नक्कल बिनाको लागि अनियमित नम्बर जेनरेटर
अनियमित संख्याहरू उत्पन्न गर्न एक परिभाषित दायरा भित्र , हामीले आवश्यक छ हाम्रो VBA कोडमा लोअरबाउन्ड र अपरबाउन्ड सेट गर्नुहोस्। जानकारीको लागि, तल्लो बाउन्ड सबैभन्दा कम संख्या र माथिल्लो बाउन्ड हो अनियमित संख्या जनरेटरको लागि दायरा मा उच्चतम नम्बर हो। हामी हाम्रो कोडमा निम्न सूत्र प्रयोग गर्न सक्छौं।
(अपरबाउन्ड - लोअरबाउन्ड + 1) * Rnd + लोअरबाउन्ड
2.1 अनियमित संख्या जनरेटर- दशमलव
कार्य : 10 अनियमित संख्याहरू उत्पन्न गर्नुहोस् बिच 10 र 20 <1 मा> कक्ष A1:A10।
कोड : भिजुअल आधारभूत सम्पादकमा निम्न कोड घुसाउनुहोस् र F5 थिच्नुहोस्। रन यो।
7102
आउटपुट : माथिको स्क्रिनसटले 10 अद्वितीय अनियमित संख्याहरू देखाउँछ 1 र 10 को दायरामा।
2.2 अनियमित संख्या जेनेरेटर- पूर्णांक
यस दृष्टान्तमा, हामी <1 प्रयोग गर्नेछौं।> VBA Int प्रकार्य हटाउन अनियमित संख्याहरू बाट अंशात्मक भाग हटाउन।
कार्य : सेल A1:B10 मा 20 अनियमित पूर्णांक संख्याहरू 1 र 20 बीचमा उत्पन्न गर्नुहोस्।
कोड : भिजुअल आधारभूत सम्पादकमा निम्न कोड घुसाउनुहोस् र F5 थिच्नुहोस्। रन यसलाई।
6109
आउटपुट : माथिको स्क्रिनसटले 20 अद्वितीय अनियमित पूर्णांक संख्याहरू देखाउँछ 1 र 20 को दायरामा।
थप पढ्नुहोस्: Excel मा अनियमित नम्बर जेनेरेटर बिना दोहोरिने (९ विधिहरू)
समान पढाइहरू
- डेटा विश्लेषण उपकरण र एक्सेलमा कार्यहरूको साथ अनियमित संख्या जनरेटर
- कसरी एक्सेलमा अनियमित डाटा उत्पन्न गर्नुहोस् (9सजिलो विधि)
- एक्सेलमा अनियमित ५ डिजिट नम्बर जेनेरेटर (७ उदाहरणहरू)
- एक्सेलमा अनियमित ४ डिजिट नम्बर जेनेरेटर (८ उदाहरणहरू)
- Excel मा सूचीबाट अनियमित नम्बर उत्पन्न गर्नुहोस् (4 तरिका)
3। एक्सेल VBA मा अद्वितीय अनियमित संख्या जेनरेटरको लागि दशमलव स्थानहरू निर्दिष्ट गर्नुहोस्
हामी हाम्रो कोडमा राउन्ड प्रकार्य प्रयोग गर्न सक्छौं निर्दिष्ट संख्या को दशमलव स्थानहरू को अनियमित रूपमा उत्पन्न अद्वितीय संख्याहरू । प्रकार्यको वाक्यविन्यास हो-
गोल(अभिव्यक्ति, [संख्या दशमलव स्थान])
हामीले निर्दिष्ट द दोस्रो तर्क हाम्रो आवश्यकता अनुसार।
कार्य : 2 दशमलव स्थानहरू सहित 20 अनियमित संख्याहरू उत्पन्न गर्नुहोस् बिच <1 कक्ष A1:B10 मा>1 र 20 ।
कोड : भिजुअल आधारभूत सम्पादकमा निम्न कोड घुसाउनुहोस् र F5 थिच्नुहोस्। रन यसलाई।
4576
आउटपुट : माथिको स्क्रिनसटले २० अद्वितीय अनियमित पूर्णांक संख्याहरू देखाउँछ २ दशमलव स्थानहरू १ र २० को दायरामा।
थप पढ्नुहोस्: दशमलव (३ विधिहरू) संग एक्सेलमा अनियमित संख्या उत्पन्न गर्नुहोस्। 2>
4। एक्सेल VBA मा कुनै नक्कल नभएको र्यान्डम नम्बर जेनेरेटरको लागि प्रयोगकर्ता फारम विकास गर्नुहोस्
यस दृष्टान्तमा, हामी UserForm <1 मा कसरी प्रयोग गर्ने भनेर देखाउनेछौं।>Excel VBA यादृच्छिक संख्याहरू उत्पन्न गर्न कुनै नक्कलहरू बिना ।
कार्य: उत्पन्न गर्नुहोस्20 अनियमित संख्याहरू सेल दायरामा A1:B10 प्रयोगकर्ता फारम प्रयोग गरेर इनपुट मानहरू (i) तल्लो बाउन्ड (ii) अपरबाउन्ड (iii) दशमलव स्थानहरूको संख्या।
UserForm सिर्जना गर्नुहोस्:
तलका चरणहरू पालना गर्नुहोस् UserForm हाम्रो इच्छित इनपुट क्षेत्रहरू बनाउनको लागि
- एक्सेल रिबन बाट विकासकर्ता ट्याबमा जानुहोस्।
- भिजुअलमा क्लिक गर्नुहोस्। आधारभूत विकल्प।
- Visual Basic For Applications विन्डोमा, Insert Dropdown <2 मा क्लिक गर्नुहोस्> चयन गर्नुहोस् प्रयोगकर्ता फारम विकल्प।
- मा प्रयोगकर्ता फारम थप्नुहोस् a लेबल ।
- गुणहरूमा लेबल को रूपमा लोवरबाउन्ड क्याप्शन गर्नुहोस्।
- थप्नुहोस् दुई थप लेबलहरू नाम दिइएको अपरबन्ड र दशमलव स्थानहरू ।
- अब तीन पाठ बाकसहरू प्रयोगकर्ता फारम मा थप्नुहोस्।
- यस चरणमा, थप्नुहोस् ए कमान्ड बटन र नाम दिनुहोस् जनरेट गर्नुहोस् ।
- अब, डबल क्लिक गर्नुहोस् कमान्ड बटन र निम्न कोड कोड सम्पादक मा राख्नुहोस्।
9503
- रन गर्न F5 थिच्नुहोस् कोड >र UserForm देखायो ।
- तल्लो बाउन्ड , अपरबाउन्ड, र नम्बर राख्नुहोस् को दशमलव स्थानहरू प्रयोगकर्ता फारम मा र उत्पन्न थिच्नुहोस्बटन ।
आउटपुट : सेल A1:B10 मा, त्यहाँ 20 अनियमित छन् संख्याहरू 2 दशमलव स्थानहरू १ देखि ३० को दायरामा।
थप पढ्नुहोस्: कसरी एक्सेलमा नक्कल बिना अनियमित नम्बरहरू उत्पन्न गर्ने (७ तरिकाहरू)
याद गर्नुपर्ने कुराहरू
- हामी पनि प्रयोग गर्न सक्छौं। फिक्स फंक्शन को सट्टामा Int प्रकार्य को लागि अद्वितीय पूर्णांक संख्याहरू उत्पन्न गर्नुहोस् । प्रकार्य हटाउँछ अंशिक भाग एक संख्या जस्तै Int प्रकार्य ।
निष्कर्ष
अब, हामी उपयुक्त उदाहरणहरूको मद्दतमा एक्सेलमा VBA प्रयोग गरेर अद्वितीय अनियमित संख्याहरू कसरी उत्पन्न गर्ने भनेर जान्दछौं। आशा छ, यसले तपाईंलाई कार्यक्षमतालाई थप आत्मविश्वासका साथ प्रयोग गर्न मद्दत गर्नेछ। कुनै प्रश्न वा सुझाव तलको कमेन्ट बक्समा राख्न नबिर्सनुहोला।
