मुख्य सामग्री पर जाएं

एक्सेल में छिपी और दृश्यमान शीट के बीच टॉगल कैसे करें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2013-10-31

मान लीजिए कि आपके पास महत्वपूर्ण डेटा वाली कुछ शीट हैं जिन्हें आप नहीं चाहते कि अन्य लोग देखें, तो एक्सेल में डेटा को सुरक्षित रखने के लिए वर्कशीट को छिपाना एक आसान तरीका हो सकता है। लेकिन कभी-कभी, आपको छिपी हुई शीटों को दिखाने और फिर उन्हें फिर से छिपाने की आवश्यकता होती है, आम तौर पर आपको उन्हें एक-एक करके उजागर करने की आवश्यकता होती है, यदि आप आमतौर पर इस ऑपरेशन को लागू करते हैं, तो यह परेशानी भरा और समय लेने वाला होगा। इस लेख में, मैं आपको कार्यपत्रकों को छिपे हुए और छिपे हुए के बीच टॉगल करने के कुछ त्वरित तरीकों से परिचित कराऊंगा।

वीबीए कोड के साथ शीटों को छुपे हुए और छिपे हुए के बीच टॉगल करें

Excel के लिए Kutools के साथ शीटों को छुपे हुए और छिपे हुए के बीच टॉगल करें


तीर नीला दायां बुलबुला वीबीए कोड के साथ शीटों को छुपे हुए और छिपे हुए के बीच टॉगल करें

मान लीजिए कि आपके पास शीट 1, शीट 2 और शीट 3 के साथ एक कार्यपुस्तिका छिपी हुई है, तो निम्नलिखित वीबीए कोड आपको उन्हें जल्दी से प्रदर्शित करने में मदद कर सकता है और दूसरा क्लिक उन्हें फिर से छिपा देगा। कृपया इस प्रकार करें:

1। क्लिक करें डेवलपर > Visual Basic के, और एक नया अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो प्रदर्शित होगी, क्लिक करें सम्मिलित करें > मॉड्यूल, और फिर मॉड्यूल में निम्नलिखित कोड इनपुट करें।

Sub ToggleHideUnhideDataSheets()
Application.ScreenUpdating = False
Dim wb As Workbook
Dim ShtNames() As Variant
Set wb = ActiveWorkbook
ShtNames = Array("Sheet1", "Sheet2", "Sheet3")
For i = 0 To UBound(ShtNames)
wb.Sheets(ShtNames(i)).Visible = Not wb.Sheets(ShtNames(i)).Visible
Next i
Application.ScreenUpdating = True
End Sub

उपरोक्त कोड में, ShtNames = सारणी("शीट1", "शीट2", "शीट3") एक वेरिएबल है, आप छुपे हुए वर्कशीट नामों को आवश्यकतानुसार बदल सकते हैं।

2। फिर दबायें F5 कोड को चलाने के लिए कुंजी, और छिपी हुई शीट प्रदर्शित की गई हैं, यदि आप उन्हें फिर से छिपाना चाहते हैं, तो कृपया दबाएँ F5 एक बार फिर कुंजी।


तीर नीला दायां बुलबुला Excel के लिए Kutools के साथ शीटों को छुपे हुए और छिपे हुए के बीच टॉगल करें

- छुपे हुए वर्कशीट दृश्यता को टॉगल करें के समारोह एक्सेल के लिए कुटूल, आप वर्कशीट्स कमांड पर क्लिक करके आसानी से शीट्स को छुपी हुई और बिना छुपी हुई के बीच टॉगल कर सकते हैं।

एक्सेल के लिए कुटूल इसमें 300 से अधिक उपयोगी एक्सेल टूल शामिल हैं। 30 दिनों में बिना किसी सीमा के प्रयास करने के लिए निःशुल्क। अब समझे.

जब आपने एक्सेल के लिए कुटूल स्थापित कर लिया है, तो आप निम्न चरणों का पालन कर सकते हैं:

1. उस कार्यपुस्तिका को खोलें जिसमें कुछ छिपी हुई कार्यपत्रकें होनी चाहिए।

2। क्लिक करें कुटूल > कार्यपत्रक, स्क्रीनशॉट देखें:

दस्तावेज़-टॉगल-छिपी-शीट1

जब आप क्लिक करेंगे कार्यपत्रक एक बार आदेश दें, सभी छिपी हुई शीट प्रदर्शित हो गई हैं, यदि आप उन्हें फिर से छिपाना चाहते हैं, तो क्लिक करें कार्यपत्रक दूसरी बार आदेश दें। स्क्रीनशॉट देखें:

दस्तावेज़-टॉगल-छिपी-शीट2
-1
दस्तावेज़-टॉगल-छिपी-शीट3
-1
दस्तावेज़-टॉगल-छिपी-शीट2

नोट: यह फ़ंक्शन गैर-निरंतर छिपी हुई शीट पर भी लागू होता है।

यदि आप इस फ़ंक्शन के बारे में अधिक जानना चाहते हैं, तो कृपया क्लिक करें छुपे हुए वर्कशीट दृश्यता को टॉगल करें.


संबंधित लेख:

एक्सेल में छिपे और दृश्यमान कॉलम के बीच टॉगल करें

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Works great, but how would you modify this to use the sheet's CodeNames instead of "Sheet" names?

That way user can still change the Tab name and Tab order as needed.

Thanks!
This comment was minimized by the moderator on the site
At the end of the code you forgot to put Application.ScreenUpdating = True to turn back on the screen updating. :-)
This comment was minimized by the moderator on the site
[quote]At the end of the code you forgot to put Application.ScreenUpdating = True to turn back on the screen updating. :-)By Greg[/quote] Thanks for your feedback. We will change it soon. :lol:
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations