वीबीए का उपयोग करके सभी शीट कैसे दिखाएं (उदाहरण के साथ)

आप Excel कार्यपुस्तिका में एक शीट प्रदर्शित करने के लिए VBA में विज़िबल प्रॉपर्टी का उपयोग कर सकते हैं।

किसी कार्यपुस्तिका में सभी शीट प्रदर्शित करने के लिए, आप निम्नलिखित सिंटैक्स का उपयोग कर सकते हैं:

 Sub UnhideAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Visible = True
    Next ws

End Sub

प्रत्येक लूप के लिए एक सरल का उपयोग करके और विज़िबल = ट्रू निर्दिष्ट करके, हम एक्सेल को कार्यपुस्तिका में सभी शीट प्रदर्शित करने के लिए कहते हैं।

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस वाक्यविन्यास का उपयोग कैसे करें।

उदाहरण: वीबीए का उपयोग करके सभी शीट कैसे प्रदर्शित करें

मान लीजिए हमारे पास चार शीट वाली एक एक्सेल वर्कबुक है:

अब मान लीजिए कि हम शीट4 पर राइट-क्लिक करते हैं और फिर Hide पर क्लिक करते हैं:

मान लीजिए कि हम इस प्रक्रिया को शीट2 के साथ दोहराते हैं ताकि अब केवल शीट1 और शीट3 ही दिखाई देने वाली शीटें हों।

मान लीजिए कि हम कार्यपुस्तिका में सभी शीट प्रदर्शित करने के लिए वीबीए का उपयोग करना चाहते हैं।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 Sub UnhideAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Visible = True
    Next ws

End Sub

एक बार जब यह मैक्रो निष्पादित हो जाता है, तो कार्यपुस्तिका की सभी शीट प्रदर्शित हो जाएंगी:

नोट : आप वीबीए में विज़िबल प्रॉपर्टी के लिए संपूर्ण दस्तावेज़ यहां पा सकते हैं।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए: अंतिम प्रयुक्त पंक्ति कैसे खोजें
वीबीए: अंतिम प्रयुक्त कॉलम कैसे खोजें
वीबीए: पैन को फ़्रीज़ कैसे करें