Vba का उपयोग करके सभी पंक्तियाँ कैसे दिखाएँ (उदाहरण के साथ)

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

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

 Sub UnhideAllRows()

Rows.EntireRow.Hidden = False

End Sub

हिडन प्रॉपर्टी का उपयोग करके और गलत मान निर्दिष्ट करके, हम एक्सेल को वर्तमान शीट पर सभी पंक्तियों को प्रदर्शित करने के लिए कहते हैं।

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

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

मान लीजिए कि हमारे पास विभिन्न बास्केटबॉल खिलाड़ियों के बारे में जानकारी वाली एक एक्सेल शीट है:

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

मान लीजिए कि हम इस प्रक्रिया को पंक्तियों 7 और 8 के लिए दोहराते हैं ताकि अब हमारी शीट में कई पंक्तियाँ छिपी हों:

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

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

 Sub UnhideAllRows()

Rows.EntireRow.Hidden = False

End Sub

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

ध्यान दें कि हमारे मूल डेटासेट की सभी पंक्तियाँ फिर से दिखाई दे रही हैं।

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

 Sub UnhideAllRowsAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Rows.EntireRow.Hidden = False
    Next ws

End Sub

प्रत्येक लूप के लिए एक सरल का उपयोग करके, हम अपनी कार्यपुस्तिका में प्रत्येक शीट के माध्यम से लूप कर सकते हैं और प्रत्येक शीट पर सभी पंक्तियों को प्रदर्शित कर सकते हैं।

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

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

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

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