यह विधि आपको लॉटरी नंबर उत्पन्न करने के लिए कई एक्सेल फ़ंक्शन लागू करने में मदद करेगी। और आप इस प्रकार कर सकते हैं:

1. एक खाली वर्कशीट में, नीचे दिखाए गए स्क्रीन शॉट के अनुसार रेंज A1:C1 में कॉलम हेडर टाइप करें:

2. कॉलम ए, कॉलम बी और कॉलम सी में सूत्र दर्ज करें:

(1) सेल ए2 में, सूत्र दर्ज करें = रैंड (), और फिर भरण हैंडल को A2:A50 श्रेणी तक खींचें।
(2) सेल बी2 में, सूत्र दर्ज करें =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1, और फिर भरण हैंडल को रेंज B2:B50 तक खींचें। (सूत्र में, A2 वर्तमान सेल के लिए छोड़ी गई यादृच्छिक संख्या है, $A$2:$A$50 सभी यादृच्छिक संख्याएं हैं जो हमें पहले सूत्र के साथ मिलीं, B$1 कॉलम B में पहली सेल है, और B1 वर्तमान के ऊपर की सेल है कक्ष)।
(3) रेंज सी2:सी50 में, 1 से 49 तक अनुक्रम संख्याएं दर्ज करें।

फिर आपको बाईं ओर दिखाए गए स्क्रीन शॉट के अनुसार एक तालिका मिलेगी:

 

क्या फॉर्मूला याद रखना बहुत जटिल है? भविष्य में केवल एक क्लिक से पुन: उपयोग के लिए सूत्र को ऑटो टेक्स्ट प्रविष्टि के रूप में सहेजें! अधिक पढ़ें…     मुफ्त आज़माइश

3. एक रिक्त श्रेणी खोजें, नीचे दिखाए गए स्क्रीन शॉट के अनुसार एक पंक्ति में क्षैतिज रूप से अनुक्रम संख्याएँ टाइप करें:

4. 1 की पहली अनुक्रम संख्या के नीचे, सूत्र दर्ज करें =VLOOKUP(G1,$B$1:$C$50,2,गलत) इसमें, और भरण हैंडल को अपनी आवश्यक सीमा तक खींचें।

नोट: इस सूत्र में, G1 1 की पहली अनुक्रम संख्या वाला सेल है, $B$1:$C$50 अद्वितीय रैंक कॉलम और बॉल नंबर कॉलम हैं, 2 का अर्थ है रेंज $B$1:$C$50 के दूसरे कॉलम में मान ढूंढें .

फिर आपको नीचे दिखाए गए स्क्रीन शॉट के अनुसार लॉटरी नंबर मिलेंगे:

5. यह वैकल्पिक है. वर्तमान वर्कशीट रीफ्रेश होने पर लॉटरी नंबरों को स्वचालित रूप से बदलने से रोकने के लिए, आप क्लिक कर सकते हैं सूत्र > गणना विकल्प > हाथ-संबंधी.

एक्सेल में डेटा की कई श्रृंखलाओं के सभी संयोजनों को आसानी से सूचीबद्ध करें

एक्सेल के लिए कुटूल सभी संयोजनों की सूची बनाएं उपयोगिता को डेटा की कई श्रृंखलाओं से सभी संभावित संयोजनों को सामान्य करने के लिए डिज़ाइन किया गया है, और इन संयोजनों को नीचे स्क्रीनशॉट में दिखाए अनुसार एक कॉलम में सूचीबद्ध करें।

यह विधि आपको एक्सेल में लॉटरी नंबर उत्पन्न करने के लिए वीबीए मैक्रो लागू करने में मार्गदर्शन करेगी। कृपया इस प्रकार करें:

1। दबाएँ ऑल्ट + F11 एप्लिकेशन विंडो के लिए Microsoft Visual Basic खोलने के लिए कुंजियाँ।

2। क्लिक करें सम्मिलित करें > मॉड्यूल एक नई मॉड्यूल विंडो खोलने के लिए, और उसमें निम्नलिखित VBA कोड पेस्ट करें:

वीबीए: एक्सेल में लॉटरी नंबर जेनरेटर

Sub LotteyCode()
Dim Rng As Range
Dim WorkRng As Range
Dim xNumbers(49) As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell):", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Range("A1")
For xIndex = 1 To 49
xNumbers(xIndex) = xIndex
Next
For xIndex = 1 To 6
xNum = 1 + Application.Round(Rnd * (49 - xIndex), 0)
WorkRng.Offset(0, xIndex - 1).Value = xNumbers(xNum)
xNumbers(xNum) = xNumbers(50 - xIndex)
Next
End Sub

3। दबाएं F5 कुंजी या क्लिक करें रन इस VBA मैक्रो को चलाने के लिए बटन।

4. अब पॉप अप हो रहे डायलॉग बॉक्स में लॉटरी नंबर आउटपुट करने के लिए एक सेल निर्दिष्ट करें और क्लिक करें OK बटन.

फिर आप देखेंगे कि 6 अद्वितीय लॉटरी नंबर उत्पन्न होते हैं और निर्दिष्ट कक्षों में प्रदर्शित होते हैं।

यदि आपके पास एक्सेल के लिए कुटूल स्थापित है, तो यह यादृच्छिक डेटा डालें यूटिलिटी आपको एक्सेल में एक ही बार में लॉटरी नंबर जेनरेट करने में मदद कर सकती है।

1. 6 निकटवर्ती कक्षों का चयन करें, जैसे A1:F1, और फिर क्लिक करें कुटूल > सम्मिलित करें > यादृच्छिक डेटा डालें.

2. अब इन्सर्ट रैंडम डेटा डायलॉग बॉक्स सामने आता है। के पास जाओ पूर्णांक टैब, टाइप करें 1 in से बॉक्स, प्रकार 49 in सेवा मेरे बॉक्स, चेक करें अद्वितीय मूल्य विकल्प, और क्लिक करें OK बटन। अब आप देखेंगे कि 6 अद्वितीय लॉटरी नंबर उत्पन्न हो गए हैं और तुरंत चयनित सेल में प्रदर्शित हो गए हैं।

एक्सेल में मानदंडों के आधार पर यादृच्छिक रूप से कोशिकाओं का चयन करें

Excel में कक्षों के लिए बेतरतीब ढंग से पृष्ठभूमि जोड़ें/रंग भरें