हा लेख एक्सेलमध्ये VBA वापरून डुप्लिकेट नसलेल्या रँडम नंबर जनरेटर ची 4 उदाहरणे दाखवतो. आमचा कोड कॉन्फिगर करण्यासाठी आम्ही येथे एक्सेलचे अंगभूत Rnd फंक्शन वापरू. अनन्य यादृच्छिक संख्या तयार करण्यासाठी तंत्र शिकण्यासाठी उदाहरणांमध्ये जाऊ या.

सराव कार्यपुस्तिका डाउनलोड करा

हा लेख वाचत असताना व्यायाम करण्यासाठी हे सराव कार्यपुस्तिका डाउनलोड करा.

4 एक्सेल VBA मध्ये डुप्लिकेट नसलेल्या रँडम नंबर जनरेटरची उदाहरणे

व्हिज्युअल बेसिक एडिटरमध्ये कोड लिहा

कोणत्याही डुप्लिकेटशिवाय यादृच्छिक क्रमांक तयार करण्यासाठी , आम्हाला ओपन आणि VBA लिहावे लागेल कोड व्हिज्युअल बेसिक एडिटरमध्ये. व्हिज्युअल बेसिक एडिटर ओपन करण्यासाठी पल्ले फॉलो करा आणि तेथे काही कोड लिहा.

• वर जा>विकसक टॅब एक्सेल रिबन वरून.
• Visual Basic पर्यायावर क्लिक करा.

• Applications साठी Visual Basic विंडोमध्ये, इन्सर्ट ड्रॉपडाउन निवडण्यासाठी नवीन मॉड्यूल क्लिक करा पर्याय.

आता तुमचा कोड व्हिज्युअल कोड एडिटर मध्ये ठेवा आणि F5 दाबा ते रन ते.

1. कोणत्याही डुप्लिकेटशिवाय यादृच्छिक क्रमांक तयार करण्यासाठी VBA Rnd फंक्शनचा वापर

Rnd फंक्शन Excel VBA ते <1 मध्ये वापरला जातो यादृच्छिक संख्या व्युत्पन्न करा जे 0 च्या दरम्यान आहेत आणि 1 अनन्य.

टास्क : 10 यादृच्छिक संख्या तयार करा 0 आणि 1 दरम्यान सेल्स A1:A10 मध्ये.

कोड : व्हिज्युअल बेसिक एडिटरमध्ये खालील कोड इन्सर्ट करा आणि F5 दाबा ते रन ते.

4935

आउटपुट : वरील स्क्रीनशॉट 10 अद्वितीय यादृच्छिक संख्या दर्शवितो 0 आणि 1 च्या श्रेणीमध्ये.

कोड स्पष्टीकरण:

या कोडमध्ये, आम्ही Rnd फंक्शन <2 वापरले सेल श्रेणी A1:A10 मध्ये यादृच्छिक संख्या घालण्यासाठी. एक नवीन क्रमांक घालण्यापूर्वी, आम्ही नंबर साठी पाहण्यासाठी डू व्हाईल लूप वापरले. 1>पूर्वनिर्धारित सेल श्रेणी (A1:A10) ते आधीच अस्तित्वात आहे किंवा नाही . प्रत्येक वेळी सेल श्रेणी मध्‍ये क्रमांक चे अस्तित्व तपासण्‍यासाठी, आम्ही कोड COUNTIF फंक्शन सह कॉन्फिगर केला, हे फंक्शन तपासणी करा एक नवीन यादृच्छिक क्रमांक या सूचीमध्ये आधीच अस्तित्वात असलेले नंबर टाकण्यापूर्वी.

अधिक वाचा : यादृच्छिक क्रमांक व्युत्पन्न करण्यासाठी एक्सेल फॉर्म्युला (५ उदाहरणे)

2. कोणत्याही डुप्लिकेटसह परिभाषित लोअरबाउंड आणि अप्परबाउंडसाठी यादृच्छिक क्रमांक जनरेटर

परिभाषित श्रेणी मध्ये यादृच्छिक संख्या निर्माण करण्यासाठी , आम्हाला आवश्यक आहे आमच्या VBA कोडमध्ये लोअरबाउंड आणि अपरबाउंड सेट करा. माहितीसाठी, लोअरबाउंड सर्वात कमी संख्या आणि अपरबाउंड आहेयादृच्छिक संख्या जनरेटरसाठी हा सर्वोच्च क्रमांक श्रेणीतील आहे. आम्ही आमच्या कोडमध्ये खालील सूत्र वापरू शकतो.

(अपरबाउंड - लोअरबाउंड + 1) * Rnd + लोअरबाउंड

2.1 यादृच्छिक संख्या जनरेटर- दशांश

कार्य : <1 मधील 10 आणि 20 दरम्यान 10 यादृच्छिक संख्या तयार करा>सेल्स A1:A10.

कोड : व्हिज्युअल बेसिक एडिटरमध्ये खालील कोड इन्सर्ट करा आणि F5 दाबा ते रन ते.

5212

आउटपुट : वरील स्क्रीनशॉट 10 अद्वितीय यादृच्छिक संख्या दर्शवितो 1 आणि 10 च्या श्रेणीमध्ये.

2.2 रँडम नंबर जनरेटर- पूर्णांक

या चित्रात, आम्ही <1 वापरु> VBA इंट फंक्शन काढण्यासाठी यादृच्छिक संख्या मधून फ्रॅक्शनल भाग .

टास्क : सेल्स A1:B10 मध्ये 1 आणि 20 दरम्यान 20 यादृच्छिक पूर्णांक संख्या तयार करा.

कोड : व्हिज्युअल बेसिक एडिटरमध्ये खालील कोड इन्सर्ट करा आणि F5 दाबा ते रन ते.

4671

आउटपुट : वरील स्क्रीनशॉट 20 अद्वितीय यादृच्छिक पूर्णांक संख्या दर्शवितो 1 आणि 20 च्या श्रेणीत.

अधिक वाचा: एक्सेलमधील यादृच्छिक क्रमांक जनरेटर कोणत्याही पुनरावृत्तीशिवाय (9 पद्धती)

समान रीडिंग

• डेटा विश्लेषण साधन आणि एक्सेलमधील कार्यांसह यादृच्छिक क्रमांक जनरेटर
• कसे एक्सेलमध्ये यादृच्छिक डेटा तयार करा (9सोप्या पद्धती)
• एक्सेलमधील यादृच्छिक 5 अंकी क्रमांक जनरेटर (7 उदाहरणे)
• एक्सेलमधील यादृच्छिक 4 अंकी क्रमांक जनरेटर (8 उदाहरणे)
• एक्सेलमधील सूचीमधून यादृच्छिक क्रमांक तयार करा (4 मार्ग)

3. एक्सेल VBA मध्ये युनिक रँडम नंबर जनरेटरसाठी दशांश ठिकाणे निर्दिष्ट करा

आम्ही आमच्या कोडमधील राऊंड फंक्शन वापरू शकतो निर्दिष्ट यादृच्छिकपणे व्युत्पन्न केलेल्या अद्वितीय संख्या मधील दशांश स्थानांची संख्या. फंक्शनचा सिंटॅक्स आहे-

गोलाकार(अभिव्यक्ती, [संख्या डेसिमलप्लेस])

आम्हाला निर्दिष्ट करणे आवश्यक आहे दुसरा युक्तिवाद आमच्या आवश्यकतेनुसार .

कार्य : 2 दशांश स्थानांसह 20 यादृच्छिक संख्या तयार करा <1 दरम्यान सेल्स A1:B10 मध्ये>1 आणि 20 .

कोड : व्हिज्युअल बेसिक एडिटरमध्ये खालील कोड इन्सर्ट करा आणि F5 दाबा ते रन ते.

6419

आउटपुट : वरील स्क्रीनशॉट सह 20 अद्वितीय यादृच्छिक पूर्णांक संख्या दर्शवितो 1 आणि 20 च्या श्रेणीमध्ये 2 दशांश स्थाने .

अधिक वाचा: एक्सेलमध्ये दशांश (3 पद्धती) सह यादृच्छिक संख्या तयार करा

4. एक्सेल VBA मध्ये कोणतेही डुप्लिकेट नसलेले रँडम नंबर जनरेटरसाठी वापरकर्ता फॉर्म विकसित करा

या चित्रात, आम्ही यूजरफॉर्म कसे वापरायचे ते दर्शवू>एक्सेल VBA ते यादृच्छिक क्रमांक व्युत्पन्न करण्यासाठी कोणत्याही डुप्लिकेटशिवाय .

कार्य: जनरेट करा20 यादृच्छिक संख्या सेल श्रेणीतील A1:B10 इनपुट मूल्यांसह (i) लोअरबाउंड (ii) एक UserForm वापरून अपरबाउंड (iii) दशांश स्थानांची संख्या.

एक वापरकर्ता फॉर्म तयार करा:

आमच्या इच्छित इनपुट फील्डसह एक वापरकर्ता फॉर्म तयार करण्यासाठी खालील चरणांचे अनुसरण करा .

• एक्सेल रिबन वरून डेव्हलपर टॅबवर जा.
• व्हिज्युअल क्लिक करा मूलभूत पर्याय.

• Applications साठी Visual Basic विंडोमध्ये, इन्सर्ट ड्रॉपडाउन <2 वर क्लिक करा> निवडण्यासाठी UserForm पर्याय.

• UserForm जोडा a लेबल .
• गुणधर्मात लेबल ला लोअरबाउंड असे कॅप्शन द्या.

• जोडा दोन अधिक लेबल नावाची अपरबंड आणि दशांश स्थान .

• आता उपयोगकर्ता फॉर्म मध्‍ये तीन मजकूर बॉक्स जोडा.

• या टप्प्यावर, जोडा एक कमांड बटण आणि त्याला नाव द्या जनरेट .

• आता, कमांड बटण वर डबल क्लिक करा आणि खालील कोड कोड एडिटर मध्ये ठेवा.

1422

• रन करण्यासाठी F5 दाबा कोड आणि वापरकर्ता फॉर्म दिसला .
• लोअरबाउंड , अपरबाउंड, आणि क्रमांक <ठेवा. 2>चे दशांश स्थाने यूजरफॉर्म मध्‍ये आणि जनरेट दाबाबटण .

आउटपुट : सेल्स A1:B10 मध्ये, 20 यादृच्छिक आहेत संख्या 2 दशांश स्थानांसह 1 ते 30 च्या श्रेणीमध्ये.

अधिक वाचा: एक्सेलमध्ये डुप्लिकेटशिवाय यादृच्छिक क्रमांक कसे तयार करावे (7 मार्ग)

लक्षात ठेवण्याच्या गोष्टी

• आम्ही वापरू शकतो अद्वितीय पूर्णांक संख्या निर्माण करण्यासाठी इंट फंक्शन ऐवजी फंक्शन फिक्स करा. फंक्शन संख्या चा अपूर्णांक भाग काढतो इंट फंक्शन .

निष्कर्ष

आता, योग्य उदाहरणांच्या मदतीने एक्सेलमध्ये व्हीबीए वापरून अनन्य यादृच्छिक क्रमांक कसे तयार करायचे हे आम्हाला माहीत आहे. आशा आहे की, ते तुम्हाला कार्यक्षमता अधिक आत्मविश्वासाने वापरण्यास मदत करेल. कोणतेही प्रश्न किंवा सूचना खालील टिप्पणी बॉक्समध्ये टाकण्यास विसरू नका.