Excel में यादृच्छिक कार्यदिवस या सप्ताहांत तिथि कैसे उत्पन्न करें?
यह ट्यूटोरियल एक्सेल में केवल यादृच्छिक कार्यदिवस या केवल यादृच्छिक सप्ताहांत तिथियां उत्पन्न करने के बारे में बात कर रहा है, अधिक विवरण प्राप्त करने के लिए नीचे दिए गए चरणों का पालन करें।
एक्सेल में केवल यादृच्छिक कार्यदिवस उत्पन्न करें
एक्सेल के लिए कुटूल के साथ केवल यादृच्छिक कार्यदिवस या केवल यादृच्छिक सप्ताहांत उत्पन्न करें
एक्सेल में केवल यादृच्छिक कार्यदिवस उत्पन्न करें
एक्सेल में, दो विधियाँ हैं जो आपको आवश्यकतानुसार केवल कार्यदिवसों को दिनांक सीमा में यादृच्छिक बनाने में मदद कर सकती हैं।
विधि 1 सूत्र के साथ यादृच्छिक कार्यदिवस उत्पन्न करें
एक सेल चुनें और यह सूत्र टाइप करें =दिनांक(2014, 1)+बड़ा(यदि(सप्ताहदिवस(दिनांक(1)+पंक्ति($2014:$1)-1, 1)<365, पंक्ति($1:$2)-6, "" ), रैंडबेटवीन(1, योग(--(सप्ताहदिवस(तारीख(365, 1, 1)+पंक्ति($2014:$1)-1, 1)<365)))), फिर दबायें शिफ्ट + Ctrl + एंटर कुंजियाँ एक साथ, फिर भरण हैंडल को उस सीमा तक खींचें जिसे आप कार्यदिवस उत्पन्न करना चाहते हैं। स्क्रीनशॉट देखें:
सुझाव:
1. यदि आप अद्वितीय यादृच्छिक कार्यदिवस उत्पन्न करना चाहते हैं, तो आप इस सूत्र का उपयोग कर सकते हैं =DATE(2014, 1, 1)+(LARGE(IF(WEEKDAY((DATE(2014, 1, 1)+ROW($1:$365)-1)*((COUNTIF($A$1:A1, DATE(2014, 1, 1)+ROW($1:$365)-1))=0), 2)<6, ROW($1:$365)-1, ""), RANDBETWEEN(1, SUM(--(WEEKDAY((DATE(2014, 1, 1)+ROW($1:$365)-1)*((COUNTIF($A$1:A1, DATE(2014, 1, 1)+ROW($1:$365)-1))=0), 2)<6))))) और दबाना याद रखें शिफ्ट + Ctrl + एंटर.
2. उपरोक्त सूत्रों में, 2014,1,1 आपकी आवश्यक तिथि सीमा की आरंभ तिथि है, 365 आपकी तिथि सीमा में दिनों की संख्या है, आप अपनी आवश्यकता के अनुसार उन्हें बदल सकते हैं।
3. आप अद्वितीय यादृच्छिक कार्यदिवस उत्पन्न करने वाले सूत्र को A1 में नहीं डाल सकते।
विधि 2 वीबीए के साथ एक वर्ष के भीतर यादृच्छिक कार्यदिवस उत्पन्न करती है
यदि आप एक वर्ष के भीतर कार्यदिवसों को यादृच्छिक बनाना चाहते हैं और वीबीए से परिचित हैं, तो आप नीचे दिए गए तरीके से ऐसा कर सकते हैं:
1। दबाएँ ऑल्ट + F11 खोलने के लिए चाबी अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, फिर पॉपिंग विंडो पर नीचे VBA कोड चिपकाएँ।
वीबीए: एक वर्ष के भीतर कार्यदिवस को यादृच्छिक बनाएं।
Dim RandomizedYet As Boolean
'Updateby20150108
Function RandomizeDates(pYear As Long)
Dim i As Long
Dim DaysInYear As Long
Dim xIndex As Long
Dim RndIndex As Long
Dim Temp As Date
Dim Weekdays() As Variant
If Not RandomizedYet Then
RandomizedYet = True
Randomize
End If
DaysInYear = DateSerial(pYear + 1, 1, 1) - DateSerial(pYear, 1, 1)
ReDim Weekdays(1 To DaysInYear)
For i = 1 To DaysInYear
If Weekday(DateSerial(pYear, 1, i), vbMonday) < 6 Then
xIndex = xIndex + 1
Weekdays(xIndex) = DateSerial(pYear, 1, i)
End If
Next
ReDim Preserve Weekdays(1 To xIndex)
For i = xIndex To 1 Step - 1
RndIndex = Int(i * Rnd + 1)
Temp = Weekdays(RndIndex)
Weekdays(RndIndex) = Weekdays(i)
Weekdays(i) = Temp
Next
RandomizeDates = Application.WorksheetFunction.Transpose(Weekdays)
End Function
3. कोड को सेव करें और अपनी वर्कशीट पर वापस जाने के लिए विंडो बंद करें और इस फॉर्मूले को टाइप करें=रैंडमाइज़डेट्स(2014) एक सेल में, फिर दबाएँ दर्ज कुंजी भरें और भरण हैंडल को अपनी आवश्यक सीमा तक खींचें। स्क्रीनशॉट देखें:
एक्सेल के लिए कुटूल के साथ केवल यादृच्छिक कार्यदिवस या केवल यादृच्छिक सप्ताहांत उत्पन्न करें
एक्सेल के लिए कुटूल, से अधिक के साथ 300 सुविधाजनक कार्य, आपके कार्यों को और अधिक आसान बनाते हैं। |
बाद मुफ़्त इंस्टालेशन एक्सेल के लिए कुटूल, कृपया नीचे दिए अनुसार कार्य करें:
1. उस श्रेणी का चयन करें जिसके लिए आप कार्यदिवस या सप्ताहांत तिथियां उत्पन्न करना चाहते हैं, फिर क्लिक करें कुटूल > यादृच्छिक डेटा डालें. स्क्रीनशॉट देखें:
2। में यादृच्छिक डेटा डालें संवाद, क्लिक करें तारीख टैब, और फिर कैलेंडर बटन अपनी इच्छित आरंभ तिथि और समाप्ति तिथि का चयन करें, फिर जांचें कार्यदिवस or छुट्टी का दिन आपको जिस विकल्प की आवश्यकता है, यदि आप अद्वितीय तिथि उत्पन्न करना चाहते हैं, तो आप जांच सकते हैं अद्वितीय विकल्प। स्क्रीनशॉट देखें:
3। क्लिक करें Ok लागू करने और संवाद बंद करने के लिए, फिर चयन में, अद्वितीय सप्ताहांत तिथियां उत्पन्न होती हैं।
सुझाव: यदि आपको डुप्लिकेट डेटा डालने की अनुमति है, तो बस अनचेक करें अद्वितीय मूल्य संवाद में
इन्सर्ट रैंडम डेटा फ़ंक्शन के साथ, आप पूर्णांक, समय, स्ट्रिंग और कस्टम सूची को भी यादृच्छिक कर सकते हैं। अधिक जानकारी के लिए यहां क्लिक करें।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!