एक्सेल में लकी ड्रा नाम कैसे बनाएं?
अपने दैनिक कार्य में, कभी-कभी, आपको भाग्यशाली नामों के रूप में कुछ कर्मचारियों के नामों को एक लंबी सूची से यादृच्छिक रूप से चुनने की आवश्यकता होती है। एक्सेल में, आप लकी ड्रा निकालने के लिए बेतरतीब ढंग से कुछ नामों का चयन कैसे कर सकते हैं? इस लेख में, मैं एक्सेल में इस काम से निपटने के लिए कुछ उपयोगी तरीकों के बारे में बात करूंगा।
फ़ॉर्मूले के साथ लकी ड्रा बनाने के लिए यादृच्छिक नाम निकालें
VBA कोड के साथ लकी ड्रा बनाने के लिए यादृच्छिक नाम निकालें
एक्सेल के लिए कुटूल के साथ लकी ड्रा बनाने के लिए यादृच्छिक नामों का चयन करें
फ़ॉर्मूले के साथ लकी ड्रा बनाने के लिए यादृच्छिक नाम निकालें
उदाहरण के लिए, मैं नाम सूची से कोई 3 नाम निकालना चाहता हूं, निम्नलिखित लंबा सूत्र आपकी सहायता कर सकता है, कृपया इस प्रकार करें:
इस सूत्र को एक रिक्त कक्ष में दर्ज करें जहाँ आप परिणाम डालना चाहते हैं: =IF(ROWS(C$2:C2)>B$2,"",INDEX(A$2:A$16,AGGREGATE(15,6,((ROW(A$2:A$16)-ROW(A$2)+1)/ISNA(MATCH(A$2:A$16,C$1:C1,0))),RANDBETWEEN(1,ROWS(A$2:A$16)-COUNTA(C$1:C1)+1)))) , और फिर भरण हैंडल को अपनी आवश्यकतानुसार सेल तक नीचे खींचें, स्क्रीनशॉट देखें:
टिप्पणियाँ:
1. उपरोक्त सूत्र में: A2: A16 वह नाम सूची है जिसे आप यादृच्छिक रूप से निकालना चाहते हैं, B2 वह आवश्यक संख्या है जिसे आप नाम निकालना चाहते हैं, C2 वह कक्ष है जहां सूत्र दर्ज करना है, और C1 फॉर्मूला सेल के ऊपर की सेल है।
2. आप दबा सकते हैं F9 यादृच्छिक रूप से नए नामों का एक और समूह प्राप्त करने की कुंजी।
VBA कोड के साथ लकी ड्रा बनाने के लिए यादृच्छिक नाम निकालें
यहां, एक वीबीए कोड भी आपको इस कार्य को पूरा करने में मदद कर सकता है, कृपया इसे इस प्रकार करें:
1. दबाए रखें ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: सूची से यादृच्छिक नाम निकालें:
Public Sub LuckyDraw()
Dim I, J, xRnd As Long
Dim xSRg, xDRg As Range
Dim xDic As New Dictionary
Dim xnum, xLastRow As Long
On Error Resume Next
Set xSRg = Application.InputBox("Please select the data list:", "KuTools for Excel", Selection.Address, , , , , 8)
If xSRg Is Nothing Then Exit Sub
Set xDRg = Application.InputBox("Please selecta cell to put the result:", "KuTools for Excel", , , , , , 8)
If xDRg Is Nothing Then Exit Sub
xLastRow = xSRg.Rows.Count
Set xSRg = xSRg(1)
Set xDRg = xDRg(1)
xnum = Range("B2")
If xnum < 1 Then Exit Sub
J = 0
For I = 1 To xnum
LabExit:
xRnd = Int(Rnd() * xLastRow)
If xDic.Exists(xRnd) Then GoTo LabExit
xDic.Add xRnd, ""
xDRg.Offset(J, 0).Value = xSRg.Offset(xRnd, 0).Value
J = J + 1
Next
End Sub
नोट: उपरोक्त कोड में, B2 क्या सेल में उन नामों की संख्या है जिन्हें आप निकालना चाहते हैं।
3. - कोड डालने के बाद क्लिक करें टूल्स > संदर्भ खुले में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, और फिर, पॉप आउट में सन्दर्भ - वीबीएप्रोजेक्ट संवाद बॉक्स, जाँचें माइक्रोसॉफ्ट स्क्रिप्टिंग रनटाइम में विकल्प उपलब्ध संदर्भ सूची बॉक्स, स्क्रीनशॉट देखें:
4। और फिर क्लिक करें OK डायलॉग बॉक्स से बाहर निकलने के लिए बटन दबाएं, फिर दबाएँ F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको उस डेटा सूची का चयन करने की याद दिलाने के लिए पॉप आउट होता है जिसमें से आप नाम निकालना चाहते हैं, स्क्रीनशॉट देखें:
5। क्लिक करें OK बटन, और एक अन्य प्रॉम्प्ट बॉक्स पॉप आउट हो जाता है, कृपया उस सेल का चयन करें जहां आप परिणाम डालना चाहते हैं, स्क्रीनशॉट देखें:
6। तब दबायें OK, और वांछित संख्या में नाम एक साथ यादृच्छिक रूप से बनाए गए हैं, स्क्रीनशॉट देखें:
एक्सेल के लिए कुटूल के साथ लकी ड्रा बनाने के लिए यादृच्छिक नामों का चयन करें
हो सकता है कि उपरोक्त दो विधियाँ हममें से अधिकांश के लिए कठिन हों, यदि आपके पास है एक्सेल के लिए कुटूल, के साथ अपने रेंज को यादृच्छिक रूप से क्रमबद्ध करें सुविधा, आप तुरंत यादृच्छिक रूप से नामों का चयन कर सकते हैं।
| एक्सेल के लिए कुटूल : 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क. |
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया ऐसा करें:
1. वह नाम सूची चुनें जिसे आप यादृच्छिक रूप से चुनना चाहते हैं। तब दबायें कुटूल > रेंज > यादृच्छिक रूप से श्रेणी को क्रमबद्ध करें/चयन करें, स्क्रीनशॉट देखें:
2. में यादृच्छिक रूप से श्रेणी को क्रमबद्ध/चयन करें डायलॉग बॉक्स, के अंतर्गत चुनते हैं टैब में, वह नंबर दर्ज करें जिसे आप नाम चुनना चाहते हैं चयन करने के लिए कक्षों की संख्या टेक्स्ट बॉक्स, और फिर चुनें यादृच्छिक कोशिकाओं का चयन करें में प्रकार चुनें अनुभाग, स्क्रीनशॉट देखें:
3। तब दबायें Ok बटन, और आपकी ज़रूरत के अनुसार आपके विशिष्ट नामों का चयन किया गया है, स्क्रीनशॉट देखें:
एक्सेल के लिए कुटूल्स डाउनलोड करने और अभी निःशुल्क परीक्षण करने के लिए क्लिक करें!
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
