एक्सेल में कॉम्बो बॉक्स के चयनित मान द्वारा एक विशिष्ट वर्कशीट कैसे खोलें?
मान लीजिए कि आपके पास एक कॉम्बो बॉक्स है जिसमें नीचे दिए गए स्क्रीनशॉट के अनुसार वर्तमान कार्यपुस्तिका के सभी शीट नाम शामिल हैं। और अब, आप कॉम्बो बॉक्स में संबंधित शीट नाम का चयन करते समय एक विशिष्ट वर्कशीट खोलना चाहते हैं। उसकी प्राप्ति कैसे हो? इस लेख में दी गई विधि आपकी मदद कर सकती है।
VBA कोड वाले कॉम्बो बॉक्स के चयनित मान से एक विशिष्ट वर्कशीट खोलें
VBA कोड वाले कॉम्बो बॉक्स के चयनित मान से एक विशिष्ट वर्कशीट खोलें
नीचे दिया गया वीबीए कोड आपको एक्सेल में कॉम्बो बॉक्स चयन के आधार पर एक विशिष्ट वर्कशीट पर जाने में मदद कर सकता है। कृपया निम्नानुसार करें.
नोट: यदि कॉम्बो बॉक्स में आपकी वर्कशीट में कोई शीट नाम नहीं है, तो कृपया उस कॉम्बो बॉक्स में सभी शीट नामों को तुरंत जोड़ने के लिए नीचे दिए गए सुझाव का पालन करें। और यदि पहले से ही एक कॉम्बो बॉक्स है जिसमें सभी शीट नाम हैं, तो कृपया इसे स्थानांतरित करें 1 कदम सीधे.
टिप: अपनी वर्कशीट में एक कमांड बटन 1 डालें, उस पर राइट क्लिक करें और चुनें कोड देखें राइट क्लिक मेनू से. फिर नीचे दिए गए VBA कोड को कॉपी और पेस्ट करें कोड विंडो, और दबाएँ ऑल्ट + Q बंद करने के लिए कुंजियाँ अनुप्रयोग के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की। सम्मिलित कमांड बटन पर क्लिक करें, फिर वर्तमान कार्यपुस्तिका के सभी शीट नाम स्वचालित रूप से कॉम्बोबॉक्स 1 में जोड़ दिए जाएंगे।
वीबीए कोड: आसानी से सभी शीट नामों को कॉम्बो बॉक्स में जोड़ें
Private Sub CommandButton1_Click()
Me.ComboBox1.Clear
Dim strWs As String
Dim i As Integer
For i = 1 To ThisWorkbook.Sheets.Count
Me.ComboBox1.AddItem Sheets(i).Name
Next
End Sub
यदि पहले से ही एक कॉम्बो बॉक्स है जिसमें सभी शीट के नाम हैं, तो कृपया निम्नानुसार कार्य करें।
1। चालू करो डिजाइन मोड नीचे डेवलपर टैब.
2. शीट नामों वाले कॉम्बो बॉक्स पर राइट क्लिक करें, फिर क्लिक करें कोड देखें राइट-क्लिक मेनू से।
3. फिर अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो पॉप अप होती है, कृपया कोड विंडो में मूल VBA कोड को नीचे दिए गए VBA कोड से बदलें।
वीबीए कोड: कॉम्बो बॉक्स के चयनित मान द्वारा एक विशिष्ट वर्कशीट खोलें
Private Sub ComboBox1_Change()
Dim actWsh As String
actWsh = ComboBox1.Text
Worksheets(actWsh).Select
End Sub
नोट: कोड में, ComboBox1 कॉम्बो बॉक्स का नाम है जिसमें शीट के नाम हैं।
4। दबाएं ऑल्ट + Q बंद करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, और बंद कर दें डिजाइन मोड नीचे डेवलपर टैब.
अब, कॉम्बो बॉक्स में किसी भी वर्कशीट का नाम चुनते समय, संबंधित वर्कशीट स्वचालित रूप से खुल जाएगी।
Excel में वर्तमान कार्यपुस्तिका के सभी शीट नामों को आसानी से सूचीबद्ध करें:
अपनी कार्यपुस्तिका में शीट इंडेक्स का उपयोग करने से आपको अपनी कार्यपत्रकों को आसानी से प्रबंधित करने में मदद मिलती है। साथ शीट नामों की सूची बनाएं की उपयोगिता एक्सेल के लिए कुटूल, आप आसानी से वर्तमान कार्यपुस्तिका में सभी शीट नामों वाली एक शीट इंडेक्स बना सकते हैं। उसके बाद, आप इंडेक्स वर्कशीट में शीट नाम पर क्लिक करके तुरंत एक निश्चित वर्कशीट में स्थानांतरित हो सकते हैं। नीचे स्क्रीनशॉट देखें:
अभी डाउनलोड करें और इसे आज़माएं! (30 दिन का निःशुल्क ट्रेल)
संबंधित लेख:
- Excel में कॉम्बो बॉक्स मान को सक्रिय सेल में कैसे कॉपी करें?
- एक्सेल में कॉम्बो बॉक्स आउटपुट में दिनांक प्रारूप कैसे प्रदर्शित करें?
- एक्सेल में निर्दिष्ट सेल वैल्यू के आधार पर कमांड बटन को कैसे छुपाएं या खोलें?
- एक्सेल में कॉम्बो बॉक्स में टाइपिंग को कैसे रोकें या अक्षम करें?
- एक्सेल में विशिष्ट सेल का चयन करने के लिए कॉम्बो बॉक्स से टैब कैसे निकालें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!