Excel में ड्रॉप डाउन सूची से चयनित मान के आधार पर मैक्रो कैसे चलाएं?
एक्सेल में कमांड बटन पर क्लिक करके मैक्रोज़ चलाना एक सामान्य कार्य है, लेकिन क्या आपने कभी ड्रॉप डाउन सूची से चुने गए मान के आधार पर मैक्रो कोड निष्पादित करने का प्रयास किया है? इसका मतलब है, जब आप ड्रॉप डाउन सूची से एक आइटम चुनते हैं, तो विशिष्ट मैक्रो तुरंत ट्रिगर हो जाएगा। यह आलेख इस कार्य को हल करने के लिए आपके लिए एक उपयोगी कोड प्रस्तुत करेगा।
VBA कोड के साथ ड्रॉप डाउन सूची से चयनित मान के आधार पर मैक्रो चलाएँ
VBA कोड के साथ ड्रॉप डाउन सूची से चयनित मान के आधार पर मैक्रो चलाएँ
इस कार्य को पूरा करने का कोई सीधा तरीका नहीं है, लेकिन, निम्नलिखित VBA कोड आपकी मदद कर सकता है, कृपया ऐसा करें:
1. सबसे पहले, अपनी आवश्यकतानुसार एक ड्रॉप डाउन सूची बनाएं, स्क्रीनशॉट देखें:
2. फिर उस शीट टैब पर राइट क्लिक करें जिसमें वह ड्रॉप डाउन है जिसका आप उपयोग करना चाहते हैं, और फिर चुनें कोड देखें संदर्भ मेनू से, और खुले में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, निम्न कोड को कॉपी करें और रिक्त मॉड्यूल में पेस्ट करें:
VBA कोड: ड्रॉप डाउन सूची से चयनित मान के आधार पर मैक्रो चलाएँ:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E1")) Is Nothing Then
Select Case Range("E1")
Case "Insert Blank rows": Macro1
Case "Hide All Sheets": Macro2
Case "Convert to Date": Macro3
End Select
End If
End Sub
नोट: उपरोक्त कोड में, E1 क्या सेल में ड्रॉप डाउन सूची है, मैक्रो नाम और ड्रॉप डाउन सूची मानों को अपनी आवश्यकता के अनुसार बदलें।
3. और फिर इस कोड विंडो को सहेजें और बंद करें, अब, जब आप ड्रॉप डाउन सूची से रिक्त पंक्तियाँ सम्मिलित करें आइटम का चयन करते हैं, तो मैक्रो1 ट्रिगर हो जाएगा, और इसी तरह...
संबंधित आलेख:
एक्सेल में सेल वैल्यू बदलने पर मैक्रो कैसे चलाएं?
एक्सेल में सेल वैल्यू के आधार पर मैक्रो कैसे चलाएं?
एक्सेल में प्रिंट करने से पहले मैक्रो को स्वचालित रूप से कैसे चलाएं?
एक्सेल में हाइपरलिंक्स पर क्लिक करके मैक्रो कैसे चलाएं?
जब किसी कार्यपुस्तिका से शीट का चयन किया जाता है तो मैक्रो कैसे चलाएं?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!