यदि कॉलम या कॉलम हेडर को एक्सेल में फ़िल्टर किया गया है तो उसे हाइलाइट कैसे करें?
एकाधिक कॉलम वाली तालिका के लिए, एक नज़र में यह पता लगाना आसान नहीं है कि कौन सा कॉलम फ़िल्टर किया गया है क्योंकि फ़िल्टर किए गए कॉलम के लिए एक को छोड़कर कोई स्पष्ट प्रतीक नहीं है। निशान। यदि आप किसी तालिका में फ़िल्टर किए गए कॉलम को उत्कृष्ट बनाना चाहते हैं, तो इस आलेख में एक विधि आपकी सहायता कर सकती है।
यदि कॉलम हेडर या संपूर्ण कॉलम को VBA कोड से फ़िल्टर किया गया है तो उसे हाइलाइट करें
यदि कॉलम हेडर या संपूर्ण कॉलम को VBA कोड से फ़िल्टर किया गया है तो उसे हाइलाइट करें
जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, आपको संपूर्ण कॉलम या केवल कॉलम हेडर को हाइलाइट करना होगा यदि यह कॉलम तालिका श्रेणी में फ़िल्टर किया गया है, तो कृपया निम्नलिखित वीबीए कोड लागू करें।
1। दबाएं ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2. एप्लिकेशन विंडो के लिए Microsoft Visual Basic में, कृपया क्लिक करें सम्मिलित करें > मॉड्यूल. फिर नीचे दिए गए VBA कोड को मॉड्यूल विंडो में कॉपी करें।
वीबीए कोड: यदि कॉलम फ़िल्टर किया गया है तो कॉलम हेडर को हाइलाइट करें
Sub HighLightTitle()
'Updated by Extendoffice 2017/9/12
Dim xRg As Range
Dim I As Integer
Dim xCount As Long
Dim xRgCol As Long
Dim xAddress As String
Dim xFilterCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the first cell of the table range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.Select
With xRg(1).Parent.AutoFilter
xFilterCount = .Range.Columns.Count
xRgCol = xRg.Offset(1).Column - .Range.Column + 1
For I = xRgCol To xFilterCount
xCount = xRg.Offset(, I - xRgCol).Column - .Range.Column + 1
With .Filters(xCount)
If .On Then
xRg.Offset(, I - xRgCol).Interior.Color = 16736553
End If
End With
Next
End With
End Sub
यदि पूरे कॉलम को तालिका में फ़िल्टर किया गया है तो उसे हाइलाइट करने के लिए, कृपया नीचे दिए गए VBA कोड को कॉपी करें और मॉड्यूल विंडो में पेस्ट करें।
वीबीए कोड: यदि फ़िल्टर किया गया है तो पूरे कॉलम को हाइलाइट करें
Sub HighLightCols()
'Updated by Extendoffice 2017/9/12
Dim xRg As Range
Dim xCount As Long
Dim xRgCol As Long
Dim xAddress As String
Dim xRgFilter As Range
Dim xFilterCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the first cell of the table range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.Select
With xRg(1).Parent.AutoFilter
xFilterCount = .Range.Columns.Count
xRgCol = xRg(1).Column - .Range.Column + 1
For I = xRgCol To xFilterCount
xCount = xRg.Offset(, I - xRgCol).Column - .Range.Column + 1
With .Filters(xCount)
Set xRgFilter = xRg.Offset(, I - xRgCol).Parent.AutoFilter.Range.Columns(xCount)
If .On Then
xRgFilter.Interior.Color = 16736553
End If
End With
Next
End With
End Sub
3। दबाएं F5 कोड चलाने की कुंजी. पॉप अप में एक्सेल के लिए कुटूल संवाद बॉक्स, कृपया तालिका के पहले सेल का चयन करें जिसे आपको फ़िल्टर किए गए कॉलम हेडर या संपूर्ण फ़िल्टर किए गए कॉलम को हाइलाइट करने की आवश्यकता है, और फिर क्लिक करें OK बटन.
यदि कॉलम को किसी निश्चित तालिका में फ़िल्टर किया गया है तो कॉलम हेडर या संपूर्ण कॉलम तुरंत हाइलाइट किया जाएगा। स्क्रीनशॉट देखें:
यदि कॉलम तालिका में फ़िल्टर किया गया है तो कॉलम हेडर को हाइलाइट करें:
यदि तालिका में फ़िल्टर किया गया है तो संपूर्ण कॉलम को हाइलाइट करें:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!