Excel में ऑटो फ़िल्टर मानदंड कैसे प्रदर्शित/दिखाएँ?
ऑटो फ़िल्टर एक्सेल उपयोगकर्ताओं के लिए एक उपयोगी सुविधा है, कभी-कभी, हम डेटा को कई मानदंडों के आधार पर फ़िल्टर करने और फ़ाइल को दूसरों को भेजने के लिए ऑटो फ़िल्टर लागू करते हैं। इस स्थिति में, यदि अन्य उपयोगकर्ता आपके फ़िल्टर किए गए मानदंड को जानना चाहते हैं, तो वे ऐसा कैसे कर सकते हैं?
उपयोगकर्ता परिभाषित फ़ंक्शन के साथ वर्कशीट में ऑटो फ़िल्टर मानदंड प्रदर्शित/दिखाएँ
VBA कोड के साथ वर्कशीट में ऑटो फ़िल्टर मानदंड प्रदर्शित/दिखाएँ
Excel के लिए Kutools के साथ वर्कशीट में ऑटो फ़िल्टर मानदंड प्रदर्शित/दिखाएँ
उपयोगकर्ता परिभाषित फ़ंक्शन के साथ वर्कशीट में ऑटो फ़िल्टर मानदंड प्रदर्शित/दिखाएँ
मान लीजिए कि आपके पास निम्नलिखित डेटा है जिसे किसी मानदंड द्वारा फ़िल्टर किया गया है, तो स्क्रीनशॉट देखें:
और अब मैं कोशिकाओं में फ़िल्टर मानदंड प्रदर्शित करने के लिए एक उपयोगकर्ता परिभाषित फ़ंक्शन बना सकता हूं, कृपया निम्नलिखित चरणों का पालन करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विजुअल बेसिक.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित मैक्रो को इसमें पेस्ट करें मॉड्यूल विंडो:
Function AutoFilter_Criteria(Rng As Range) As String
'Updateby20140220
Dim str1 As String, str2 As String
Application.Volatile
With Rng.Parent.AutoFilter
With .Filters(Rng.Column - .Range.Column + 1)
If Not .On Then Exit Function
str1 = .Criteria1
If .Operator = xlAnd Then
str2 = " AND " & .Criteria2
ElseIf .Operator = xlOr Then
str2 = " OR " & .Criteria2
End If
End With
End With
AutoFilter_Criteria = UCase(Rng) & ": " & str1 & str2
End Function
3. फिर इस कोड को सहेजें और बंद करें, एक रिक्त पंक्ति के रिक्त कक्ष में, उदाहरण के लिए कक्ष A1, इस सूत्र को दर्ज करें =ऑटोफ़िल्टर_मानदंड(A4) (A4 फ़िल्टर किए गए डेटा का हेडर सेल है), स्क्रीनशॉट देखें:
4। फिर दबायें दर्ज कुंजी, और फिर सेल A1 का चयन करें, भरण हैंडल को उन दाएँ कक्षों पर खींचें जिनमें आपको यह सूत्र शामिल करने की आवश्यकता है, और सभी मानदंड कक्षों में प्रदर्शित किए गए हैं, स्क्रीनशॉट देखें:
नोट: यदि किसी कॉलम में दो से अधिक मानदंड हैं, तो यह उपयोगकर्ता परिभाषित फ़ंक्शन सही परिणाम नहीं देगा।
VBA कोड के साथ वर्कशीट में ऑटो फ़िल्टर मानदंड प्रदर्शित/दिखाएँ
यहां, मैं एक दिलचस्प वीबीए कोड के बारे में भी बात कर सकता हूं, यह आपको कार्यपुस्तिका के सेल में फ़िल्टर मानदंड प्रदर्शित करने में मदद कर सकता है।
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विजुअल बेसिक.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित मैक्रो को इसमें पेस्ट करें मॉड्यूल विंडो:
वीबीए कोड: वर्कशीट में ऑटो फ़िल्टर मानदंड प्रदर्शित करें
Sub ShowAutoFilterCriteria()
'Updateby20140219
Dim xFilter As AutoFilter
Dim TargetFilter As Filter
Dim TargetField As String
Dim xOut As String
Dim OutRng As Range
If ActiveSheet.AutoFilterMode = False Then
Application.StatusBar = False
Exit Sub
End If
xTitleId = "KutoolsforExcel"
Set OutRng = Application.Selection
Set OutRng = Application.InputBox("Cell", xTitleId, OutRng.Address, Type:=8)
Set xFilter = ActiveSheet.AutoFilter
For i = 1 To xFilter.Filters.Count
TargetField = xFilter.Range.Cells(1, i).Value
Set TargetFilter = xFilter.Filters(i)
If TargetFilter.On Then
On Error GoTo OutNext
xOut = xOut & TargetField & TargetFilter.Criteria1
Select Case TargetFilter.Operator
Case xlAnd
xOut = xOut & " And " & TargetField & TargetFilter.Criteria2
Case xlOr
xOut = xOut & " Or " & TargetField & TargetFilter.Criteria2
Case xlBottom10Items
xOut = xOut & " (bottom 10 items)"
Case xlBottom10Percent
xOut = xOut & " (bottom 10%)"
Case xlTop10Items
xOut = xOut & " (top 10 items)"
Case xlTop10Percent
xOut = xOut & " (top 10%)"
End Select
End If
Next
OutRng.Value = xOut
OutNext:
xOut = xOut & TargetField & "= Multiple Filters"
ErrorHandler:
Resume Next
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, एक प्रॉम्प्ट बॉक्स खुलेगा जिससे आप मानदंड डालने के लिए एक रिक्त सेल का चयन कर सकेंगे, स्क्रीनशॉट देखें:
4। और फिर क्लिक करें OK, सभी मानदंड चयनित सेल में निम्नानुसार दिखाए गए हैं:
नोट:
इस वीबीए कोड के साथ, यदि आपका मानदंड एक कॉलम में दो से अधिक है, तो इसे विस्तृत फ़िल्टर मानदंड नहीं दिखाया जाएगा बल्कि निम्नानुसार प्रदर्शित किया जाएगा:
Excel के लिए Kutools के साथ वर्कशीट में ऑटो फ़िल्टर मानदंड प्रदर्शित/दिखाएँ
यदि आपके पास एक्सेल के लिए कुटूल स्थापित, आप इसे लागू कर सकते हैं सुपर फ़िल्टर डेटा फ़िल्टर करने का कार्य, और साथ ही आप किसी भी समय फ़िल्टर मानदंड देख सकते हैं।
एक्सेल के लिए कुटूल, से अधिक के साथ 300 सुविधाजनक कार्य, आपके कार्यों को और अधिक आसान बनाते हैं। |
बाद मुफ़्त इंस्टालेशन एक्सेल के लिए कुटूल, कृपया नीचे दिए अनुसार कार्य करें:
1। क्लिक करें कुटूल्स प्लस > सुपर फ़िल्टर प्रदर्शित करने के लिए सुपर फ़िल्टर समारोह। स्क्रीनशॉट देखें:
2। में सुपर फ़िल्टर फलक, क्लिक करें उस डेटा श्रेणी का चयन करें जिसे आप फ़िल्टर करना चाहते हैं, फिर फ़िल्टर श्रेणी को ठीक करने के लिए निर्दिष्ट चेकबॉक्स को चेक करें। स्क्रीनशॉट देखें:
3। में सुपर फ़िल्टर फलक, फ़िल्टर समूह में एक पंक्ति पर क्लिक करें, फिर ड्रॉप-डाउन सूचियों में आवश्यकतानुसार फ़िल्टर मानदंड निर्दिष्ट करें, फिर मानदंड सेटिंग समाप्त करने के लिए ओके पर क्लिक करें। स्क्रीनशॉट देखें:
4। क्लिक करें फ़िल्टर, और चयनित डेटा को मानदंड द्वारा फ़िल्टर किया गया है, और इस बीच, आप देख सकते हैं कि फ़िल्टर मानदंड लागू किया गया है सुपर फ़िल्टर फलक. स्क्रीनशॉट देखें:
ध्यान दें: आप सुपर फ़िल्टर उपयोगिता के साथ अगले उपयोग के लिए फ़िल्टर मानदंड को एक परिदृश्य के रूप में सहेज सकते हैं।
1. क्लिक करें वर्तमान फ़िल्टर सेटिंग सहेजें बटन, पॉपिंग डायलॉग में, फ़िल्टर नाम टाइप करें।
2. जब आप अगली बार इस फ़ाइलर सेटिंग का उपयोग करना चाहें, तो मेनू बटन पर क्लिक करें, फिर उप मेनू में परिदृश्य चुनें सहेजे गए फ़िल्टर सेटिंग परिदृश्य खोलें.
फ़िल्टर करते समय फ़िल्टर Ctriteria प्रदर्शित करें
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!