एक्सेल वीबीए: एक समय में केवल एक ऑटोफिल्टर रेंज को कैसे बेकार करें? कोड प्रदान किया गया

Question

इस धागे पर आने के लिए धन्यवाद।

मैं क्या है: पंक्तियों पर एक स्वत: फ़िल्टर एक साथ

-एक रिपोर्ट: जी

मैं क्या जरूरत है:

-Circumstantial कोड जो किसी विशेष स्तंभ unfilters अगर कोई है उस पर एक फ़िल्टर।

- नीचे दिए गए मेरे कोड को ए: जी की पूरी श्रृंखला में घुसपैठ कर रहा है।

- इस उदाहरण में, मैं केवल "एफ" को फ़िल्टर करना चाहता हूं, अगर उन्हें फ़िल्टर किया जाता है तो अकेले अन्य फ़िल्टर छोड़ दें।

With Sheets("DATA") 
    If .Range("F1").AutoFilter = True Then 
     ActiveSheet.Range("$A$1:$G$59826").AutoFilter Field:=6 
    Else 
    End If 
End With 

किसी भी और सभी विचारों की बहुत सराहना की जाती है! आपको बहुत - बहुत धन्यवाद!

Answer 1

इस प्रयास करें:

Sub UnFilter() 
Dim ws As Excel.Worksheet 

Set ws = Worksheets("DATA") 
With ws 
    If .AutoFilterMode = True Then 
     If Not Intersect(.AutoFilter.Range, .Range("G1")) Is Nothing Then 
      .Range("$A$1:$G$59826").AutoFilter Field:=.Range("G:G").Column 
     End If 
    End If 
End With 
End Sub 

अपने कोड में यह पंक्ति:

If .Range("F1").AutoFilter = True 

... वास्तव में पूरी शीट के लिए छानने बंद हो जाती है। इसके बजाय मेरे कोड की जाँच करता शीट के साथ फ़िल्टर किया जाता है, तो:

If .AutoFilterMode = True Then 

यह तो चेक के फिल्टर के साथ स्तंभ जी भी शामिल है:

If Not Intersect(.AutoFilter.Range, .Range("G1")) Is Nothing Then 

मैं अपने कोड एक छोटे से अधिक लचीला बनाने के लिए परिवर्तन की एक जोड़ी बना । यह ws ऑब्जेक्ट के लिए इंटेलिसेंस को भी सक्षम बनाता है, जो सहायक है। (मैं हमेशा विशेष रूप से स्वत: पूर्ण करने के बिना, विभिन्न Filter से संबंधित गुण और विधियों संशय है।)

Answer 2

यह मैं

Sub UnfilterColumn() 

    With Worksheets("DATA") 
     If Not Worksheets("DATA").AutoFilter Is Nothing Then 
       ThisWorkbook.Sheets("DATA").Range("A1").AutoFilter Field:=6 
     End If 
    End With 

End Sub 

Answer 3

के लिए काम किया मैं सिर्फ मॉड्यूल में नीचे सरल कोड में प्रवेश किया और यह ठीक काम किया मेरे लिए। आप अपने डेटा से मेल खाने के लिए अपनी डेटा रेंज और फ़ील्ड को बदलना चाहेंगे। मैं स्तंभों में डेटा के साथ एक फ़िल्टर साफ़ कर रहा हूं एम। फील्ड 8 के माध्यम से कॉलम एच

ActiveSheet.Range("$A:$M").AutoFilter Field:=8