एक्सेल में डेट पिकर कैसे डालें?
ड्रॉप डाउन कैलेंडर सम्मिलित करने के लिए, हम एक ActiveX नियंत्रण का उपयोग करेंगे , जो 'Microsoft दिनांक और समय पिकर नियंत्रण 6.0 (SP6)' है ।
मान लीजिए हमें किसी कंपनी के कर्मचारियों के लिए डेटा बनाए रखना है। जैसे कई क्षेत्र हैं
- Emp कोड
- Emp नाम
- ज्वाइनिंग डेट
- Emp विभाग
MS Excel में डेटा दर्ज करने के लिए, हमने निम्न प्रारूप बनाया है।
Emp Joining Date दर्ज करने के लिए, हमें एक ड्रॉप-डाउन कैलेंडर बनाने की आवश्यकता है, ताकि उपयोगकर्ता के लिए जॉइनिंग दिनांक दर्ज करना आसान हो।
ड्रॉप-डाउन कैलेंडर बनाने के लिए, चरण नीचे दिए गए हैं -
हमें 'Microsoft दिनांक और समय पिकर नियंत्रण 6.0 (SP6)' नाम से एक 'ActiveX नियंत्रण' सम्मिलित करना होगा । डालने के लिए, हम 'कंट्रोल' समूह के अंतर्गत 'इन्सर्ट' कमांड का प्रयोग 'डेवलपर' में करेंगे।
यदि 'डेवलपर' टैब दिखाई नहीं दे रहा है, तो नीचे दिए गए चरण समान दिखाई देने के लिए अनुसरण करने के लिए हैं।
- चरण 1: 'फ़ाइल' मेनू के तहत , 'विकल्प' चुनें
- चरण 2: 'एक्सेल विकल्प' नाम का एक डायलॉग बॉक्स खुलेगा। संवाद बॉक्स के बाएँ किनारे से 'कस्टमाइज़ रिबन' चुनें । 'डेवलपर' टैब के लिए चेकबॉक्स और 'ओके' पर क्लिक करें ।
- चरण 3: अब, हम रिबन के आखिरी में 'डेवलपर' टैब देख सकते हैं ।
- चरण 4: ActiveX नियंत्रण से 'अधिक नियंत्रण' चुनें ।
- चरण 5: चुनें 'माइक्रोसॉफ्ट दिनांक और समय पिकर नियंत्रण 6.0 (SP6)' सूची से और पर क्लिक करें 'ठीक' है।
- चरण 6: ड्रॉप-डाउन कैलेंडर बनाने के लिए वर्कशीट पर कहीं भी क्लिक करें।
- चरण 7: 'तिथि पिकर' पर राइट-क्लिक करें और सूची से 'गुण' चुनें ।
- चरण 8: से बदलें मूल्य 'झूठी' करने के लिए 'यह सच है' के लिए 'चेकबॉक्स' संपत्ति ताकि शून्य मान भी स्वीकार किया जा सकता है। 'गुण' संवाद बॉक्स बंद करें ।
- चरण 9: डेट पिकर पर फिर से राइट-क्लिक करें और संदर्भ मेनू से 'कोड देखें' चुनें।
- चरण 10: में 'दृश्य मूल संपादक,' हम देख सकते हैं कि कुछ कोड पहले से ही लिखा है। कोड को निम्न कोड से बदलें।
कोड:
निजी सब वर्क्सशीट_सेलेक्शन चेंज (ByVal Target As Range) Sheet1.DTPicker1 .Hight = 20 के साथ। 20 = 20 यदि अंतर नहीं है (लक्ष्य, रेंज ("C: C")) तो कुछ भी नहीं है। अदृश्य = True = लक्ष्य। Top वाम = लक्ष्य। ऑफ़सेट। (0, 1) .लिफ्ट। लिंचेडसेल = लक्ष्य।
- चरण 11: कोड में पहला बयान एमएस एक्सेल कंपाइलर को कोड चलाने के लिए कहता है जब भी कोई नया सेल चुना जाता है (चयन बदल जाता है)। चयनित सेल उप प्रक्रिया को 'लक्ष्य' के रूप में भेजा जाता है ।
निजी सब वर्कशीट_सेलेक्शन चेंज (रेंज के रूप में बायल टारगेट)
- चरण 12: ये कथन एक्सेल में दिनांक पिकर की ऊंचाई और चौड़ाई 20 अंक निर्धारित करते हैं। यह देखा जा सकता है कि हमने 'विथ' ऑपरेटर का उपयोग किया है ताकि हमें बार-बार DTPicker1 को संदर्भित करने की आवश्यकता न हो।
Sheet1.DTPicker1 के साथ .Hight = 20। Width = 20
- चरण 13: निम्न 'यदि' खंड मानदंड निर्धारित करता है कि यदि किसी सेल को 'सी' कॉलम में चुना जाता है, तो केवल डेट पिकर को दृश्यता मिलती है। हमने 'Intersect' फ़ंक्शन का उपयोग किया है क्योंकि यह फ़ंक्शन जाँचता है कि क्या हमने C कॉलम में किसी सेल का चयन किया है, तो यह फ़ंक्शन पता वापस कर देगा; अन्यथा, मान शून्य होगा।
यदि इंटर्सेक्ट नहीं है (लक्ष्य, रेंज ("C: C") तो कुछ भी नहीं है। अदृश्य = सत्य
- चरण 14: दिनांक बीनने वाले की 'शीर्ष' संपत्ति चयनित सेल के 'शीर्ष' संपत्ति मूल्य के बराबर है । इसका मतलब है कि यह चयनित सेल की ऊपरी सीमा के साथ जाएगा।
.Top = Target.Top
- चरण 15: यह कथन चुने हुए सेल के अगले दाहिने सेल के बराबर दिनांक पिकर की बाईं संपत्ति सेट करता है (वर्कशीट के चरम बाएं से डी कॉलम की बाईं सीमा की दूरी)। अगले सही सेल का संदर्भ प्राप्त करने के लिए, हमने 'ऑफ़सेट' फ़ंक्शन का उपयोग पंक्ति तर्क के रूप में और 1 कॉलम तर्क के रूप में किया है क्योंकि इससे अगले कॉलम में सेल का संदर्भ मिलेगा।
.Left = Target.Offset (0, 1) .Left
- Step 16: This statement links the Date Picker with the Target cell so that whichever value is selected in the drop-down calendar that is displayed in the cell.
.LinkedCell = Target.Address
- Step 17: The ‘Else’ statement tells the compiler to not display the Date Picker when any cell except that in the C column is selected.
Else .Visible = False
- Step 18: In the end, we close the ‘If.’
End If
- Step 19: At last, we need to close ‘With.’
End With
- Step 20: Now, Sub Procedure will end.
End Sub
Make sure we save the file with the ‘.xlsm’ extension as it saves the VBA code we have written, and we will be able to run this code when any cell is selected in the C column.
Now, whenever we select any cell in the ‘C’ column, we can see a drop-down calendar at the top right corner of the selected cell. We can open the drop-down calendar by clicking on the down arrow symbol.
We need to click on any date in the calendar in the selected month to enter that date in the selected cell.
We can change month to previous or next using the arrow button placed at the left and right side of the calendar.
We can also click on the month to choose a month from the drop-down.
We can also change year by clicking on year and then using up and down arrows to choose the required one.
Things to Remember
- ‘Microsoft Date and Time Picker Control 6.0 (SP6)’ is not available for the 64-bit version of MS Excel.
- VBA कोड लिखने के बाद, हमें फ़ाइल को '.xlsm' (एक्सेल मैक्रो-एनेबल्ड वर्कबुक) एक्सटेंशन के साथ सहेजना होगा; अन्यथा, VBA कोड नहीं चलेगा।
