वीबीए: मानदंड के आधार पर पंक्तियों को कैसे छिपाएं
आप सेल मान के आधार पर पंक्तियों को छिपाने के लिए VBA में निम्नलिखित सिंटैक्स का उपयोग कर सकते हैं:
SubHideRows ()
Dim i As Integer
For i = 2 To 10
If Cells(i, 1).Value = " Mavs " Then
Cells(i, 1).EntireRow.Hidden = True
Else
Cells(i, 1).EntireRow.Hidden = False
End If
Next i
End Sub
यह विशेष मैक्रो 2 से 10 की श्रेणी में उन सभी पंक्तियों को छुपाता है जिनका सेल मान पहले कॉलम में “Mavs” के बराबर है।
आप सभी पंक्तियों को प्रदर्शित करने के लिए निम्नलिखित मैक्रो का भी उपयोग कर सकते हैं:
SubUnhideRows ()
Rows.EntireRow.Hidden = False
End Sub
निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस वाक्यविन्यास का उपयोग कैसे करें।
उदाहरण: मानदंड के आधार पर पंक्तियों को छिपाने के लिए VBA का उपयोग करें
मान लीजिए कि हमारे पास निम्नलिखित डेटासेट है जिसमें विभिन्न बास्केटबॉल खिलाड़ियों के बारे में जानकारी है:
मान लीजिए कि हम टीम कॉलम में “Mavs” वाली प्रत्येक पंक्ति को छिपाना चाहते हैं।
ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:
SubHideRows ()
Dim i As Integer
For i = 2 To 10
If Cells(i, 1).Value = " Mavs " Then
Cells(i, 1).EntireRow.Hidden = True
Else
Cells(i, 1).EntireRow.Hidden = False
End If
Next i
End Sub
जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:
ध्यान दें कि टीम कॉलम में “Mavs” वाली प्रत्येक पंक्ति अब छिपा दी गई है।
यदि हम चाहें तो सभी पंक्तियों को प्रदर्शित करने के लिए निम्नलिखित मैक्रो बना सकते हैं:
SubUnhideRows ()
Rows.EntireRow.Hidden = False
End Sub
जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:
ध्यान दें कि सभी पंक्तियाँ फिर से प्रदर्शित होती हैं।
ध्यान दें कि हमारे मैक्रो में हमने मानदंड के आधार पर 2 और 10 के बीच की पंक्तियों को छिपाने के लिए For i = 2 To 10 निर्दिष्ट किया है।
पंक्तियों को भिन्न पंक्ति श्रेणी में छिपाने के लिए इन आरंभ और अंत मानों को बेझिझक बदलें।
अतिरिक्त संसाधन
निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:
वीबीए: कोशिकाओं पर सशर्त स्वरूपण कैसे लागू करें
वीबीए: श्रेणी में पंक्तियों की संख्या कैसे गिनें
वीबीए: विशिष्ट पाठ वाले कक्षों की गणना कैसे करें