एक्सेल में उपयोगकर्ता इनपुट के आधार पर वास्तविक समय में कॉलम कैसे छिपाएं?
एक्सेल में कॉलम छिपाना हममें से अधिकांश के लिए एक सामान्य कार्य हो सकता है, लेकिन, क्या आपने कभी कुछ विशिष्ट इनपुट मानों के आधार पर कॉलम को स्वचालित रूप से छिपाने का प्रयास किया है? उदाहरण के लिए, जब मैं किसी सेल में "एए" टेक्स्ट दर्ज करता हूं, तो कॉलम ए छिपा हुआ होता है; जब मैं "बीबी" दर्ज करता हूं, तो कॉलम बी और सी छिप जाते हैं; "सीसी" दर्ज करते समय, कॉलम डी और ई छिपे हुए हैं; "डीडी" दर्ज करते समय, कॉलम एफ नीचे दिखाए गए डेमो के अनुसार छिपा हुआ है। यह आलेख एक्सेल में इसे हल करने के लिए एक VBA कोड बनाएगा।
वीबीए कोड के साथ उपयोगकर्ता इनपुट के आधार पर वास्तविक समय में कॉलम छुपाएं या दिखाएं
वीबीए कोड के साथ उपयोगकर्ता इनपुट के आधार पर डेटा फ़िल्टर करने के लिए कॉलम छुपाएं या दिखाएं
वीबीए कोड के साथ उपयोगकर्ता इनपुट के आधार पर वास्तविक समय में कॉलम छुपाएं या दिखाएं
इनपुट मानों के आधार पर विशिष्ट कॉलमों को वास्तविक समय में छिपाने के लिए, कृपया नीचे दिया गया VBA कोड लागू करें:
1. वर्कशीट में जहां आप कॉलम छिपाना चाहते हैं, शीट टैब पर राइट क्लिक करें और फिर क्लिक करें कोड देखें संदर्भ मेनू से, स्क्रीनशॉट देखें
2. खुले में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, निम्नलिखित VBA कोड को कॉपी और पेस्ट करें शीट (कोड) खिड़की.
वीबीए कोड: उपयोगकर्ता इनपुट के आधार पर वास्तविक समय में कॉलम छुपाएं
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby ExtendOffice
xcell = Range("K1").Value
Select Case xcell
Case "AA": Columns("A").EntireColumn.Hidden = False
Columns("A").EntireColumn.Hidden = True
Case "BB": Columns("B:C").EntireColumn.Hidden = False
Columns("B:C").EntireColumn.Hidden = True
Case "CC": Columns("D:E").EntireColumn.Hidden = False
Columns("D:E").EntireColumn.Hidden = True
Case "DD": Columns("F").EntireColumn.Hidden = False
Columns("F").EntireColumn.Hidden = True
Case Else
Columns("A:G").EntireColumn.Hidden = False
End Select
End Sub
- केस "एए": कॉलम ("ए")। संपूर्ण कॉलम। छिपा हुआ = गलत
- कॉलम('ए').संपूर्ण कॉलम.छिपा हुआ = सत्य
3. फिर, कोड विंडो बंद करें. अब, सेल K1 में "AA" दर्ज करते समय दबाएँ दर्ज कुंजी, कॉलम ए छिपा हुआ है; "बीबी" दर्ज करते समय, और दबाएँ दर्ज कुंजी, कॉलम बी और सी छिपे हुए हैं, इत्यादि। यदि आप कोई अन्य मान दर्ज करते हैं या सामग्री हटाते हैं, तो छिपे हुए कॉलम तुरंत प्रदर्शित होंगे, नीचे डेमो देखें:
वीबीए कोड के साथ उपयोगकर्ता इनपुट के आधार पर डेटा फ़िल्टर करने के लिए कॉलम छुपाएं या दिखाएं
इस उदाहरण में, मैं दर्ज किए गए उत्पाद नाम के आधार पर डेटा श्रेणी को फ़िल्टर करने जाऊँगा। जब मैं "हुडि" दर्ज करता हूं, तो केवल हुडी जानकारी प्रदर्शित होती है और अन्य कॉलम तुरंत छिप जाएंगे; और जब मैं "सभी" दर्ज करूंगा, तो सभी कॉलम नीचे दिखाए गए डेमो के अनुसार प्रदर्शित होंगे:
1. वर्कशीट में जहां आप कॉलम छिपाना चाहते हैं, शीट टैब पर राइट क्लिक करें और फिर क्लिक करें कोड देखें संदर्भ मेनू से, स्क्रीनशॉट देखें:
2. खुले में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, निम्नलिखित VBA कोड को कॉपी और पेस्ट करें शीट (कोड) खिड़की.
वीबीए कोड: उपयोगकर्ता इनपुट के आधार पर डेटा फ़िल्टर करने के लिए कॉलम छुपाएं या दिखाएं
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby ExtendOffice
Dim x As Variant, y As String
If Target.Address = "$K$1" Then
y = Target.Value
With Range("B1:H1")
Application.ScreenUpdating = False
.EntireColumn.Hidden = (y <> "All")
If y <> "All" Then
For Each x In .Cells
If x = y Then x.EntireColumn.Hidden = False
Next
End If
Application.ScreenUpdating = True
End With
End If
End Sub
3. फिर, कोड विंडो बंद करें. अब, यदि आप सेल K1 में उत्पाद का नाम दर्ज करते हैं, तो केवल संबंधित कॉलम प्रदर्शित होंगे, अन्य छिपे रहेंगे; और यदि आप "सभी" टेक्स्ट दर्ज करते हैं, तो सभी कॉलम नीचे दिखाए गए डेमो के अनुसार दिखाई देंगे:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!