एक्सेल में सेल रंग के आधार पर पंक्तियों को कैसे छिपाएं?
एक्सेल वर्कशीट में, मेरे पास सेल की एक सूची है जिसमें कई अलग-अलग रंग हैं, अब, मुझे सभी हल्के नीले रंग की पंक्तियों को छिपाने की ज़रूरत है जैसा कि स्क्रीनशॉट में दिखाया गया है, आप एक्सेल में इस कार्य को जल्दी और आसानी से कैसे निपटा सकते हैं?
VBA कोड के साथ सेल रंग के आधार पर पंक्तियाँ छिपाएँ
एक्सेल के लिए कुटूल के साथ सेल रंग के आधार पर पंक्तियाँ छिपाएँ
VBA कोड के साथ सेल रंग के आधार पर पंक्तियाँ छिपाएँ
विशिष्ट पृष्ठभूमि रंग के आधार पर पंक्तियों को छिपाने के लिए, निम्नलिखित VBA कोड आपकी मदद कर सकता है, कृपया ऐसा करें:
1. दबाए रखें ALT + F11 चाबियाँ, फिर यह खुलता है अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
VBA कोड: सेल रंग के आधार पर पंक्तियाँ छिपाएँ:
Sub Hidebycolor()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.Columns(1).AddressLocal
Else
xTxt = ActiveSheet.UsedRange.Columns(1).AddressLocal
End If
LInput:
Set xRg = Application.InputBox("Range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
GoTo LInput
End If
If xRg.Columns.Count > 1 Then
MsgBox "the selection is not more than 1 column", vbInformation, "Kutools for Excel"
GoTo LInput
End If
On Error Resume Next
Application.ScreenUpdating = False
For I = 1 To xRg.Count
If xRg.Range("A" & I).Interior.ColorIndex = 20 Then
xRg.Range("A" & I).EntireRow.Hidden = True
End If
Next 'i
Application.ScreenUpdating = True
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको उन कक्षों का चयन करने की याद दिलाने के लिए पॉप आउट होता है जिनका आप उपयोग करना चाहते हैं, स्क्रीनशॉट देखें:
4। और फिर क्लिक करें OK बटन, सभी हल्के नीले रंग के सेल एक साथ छिपा दिए गए हैं, स्क्रीनशॉट देखें:
टिप्पणियाँ:
1. उपरोक्त कोड में, संख्या 20 इस स्क्रिप्ट के अंदर यदि xRg.Range('A' & I).Institute.ColorIndex = 20 फिर रंग सूचकांक संख्या है, आप इसे आवश्यकतानुसार बदल सकते हैं।
2. यदि आप रंग सूचकांक संख्या के बारे में निश्चित नहीं हैं, तो आपको वह रंग सूचकांक प्राप्त करने के लिए निम्नलिखित कोड लागू करना चाहिए जिसे आप जानना चाहते हैं:
Function GetColor(r As Range) As Integer
GetColor = r.Interior.ColorIndex
End Function
और फिर सूत्र दर्ज करें: =रंग प्राप्त करें(A2) सेल A2 में पृष्ठभूमि के विशिष्ट रंग सूचकांक नंबर को वापस करने के लिए, आप आवश्यकतानुसार A2 को अन्य में बदल सकते हैं।
एक्सेल के लिए कुटूल के साथ सेल रंग के आधार पर पंक्तियाँ छिपाएँ
यदि आपके पास एक्सेल के लिए कुटूल, के साथ अपने फ़ॉर्मेट वाले सेल चुनें उपयोगिता, आप पहले विशिष्ट रंगीन कोशिकाओं का चयन कर सकते हैं, और फिर उन्हें तुरंत छिपा सकते हैं।
एक्सेल के लिए कुटूल : 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क. |
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया निम्नानुसार करें:
1। क्लिक करें कुटूल > चुनते हैं > फ़ॉर्मेट वाले सेल चुनें, स्क्रीनशॉट देखें:
2. में फ़ॉर्मेट वाले सेल चुनें संवाद बॉक्स में, नीचे दिए गए कार्य करें:
(1.) क्लिक करें उस डेटा श्रेणी का चयन करने के लिए बटन जिसे आप उपयोग करना चाहते हैं;
(2.) फिर क्लिक करें सेल से फ़ॉर्मेट चुनें उस विशिष्ट रंगीन सेल का चयन करने के लिए बटन जिसके आधार पर आप पंक्तियों को छिपाना चाहते हैं;
(3.) विशिष्ट सेल की सभी विशेषताओं को सूची बॉक्स में सूचीबद्ध किया गया है, कृपया जांचें पीछे का रंग नीचे भरना अनुभाग।
3। तब दबायें Ok बटन, विशिष्ट रंग वाले सभी कक्षों को एक साथ चुना गया है, और फिर क्लिक करें होम > का गठन > छुपाएं और उजागर करें > पंक्तियाँ छिपाएँ, स्क्रीनशॉट देखें:
4. और फिर विशिष्ट रंग के साथ चयनित सेल छिपा दिए जाते हैं, स्क्रीनशॉट देखें:
अभी एक्सेल के लिए नि:शुल्क डाउनलोड कुटूल पर क्लिक करें!
डेमो: एक्सेल के लिए कुटूल के साथ सेल रंग के आधार पर पंक्तियाँ छिपाएँ
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!