का उपयोग कर एक्सेल पिवट तालिका फ़िल्टर करें मैंने वीबीए का उपयोग कर Excel में पिवट तालिका को फ़िल्टर करने का प्रयास करने के लिए हमेशा इंटरनेट से समाधान कॉपी और पेस्ट करने का प्रयास किया है। नीचे दिया गया कोड काम नहीं करता है।वीबीए
Sub FilterPivotTable()
Application.ScreenUpdating = False
ActiveSheet.PivotTables("PivotTable2").ManualUpdate = True
ActiveSheet.PivotTables("PivotTable2").PivotFields("SavedFamilyCode").CurrentPage = "K123223"
ActiveSheet.PivotTables("PivotTable2").ManualUpdate = False
Application.ScreenUpdating = True
End Sub
मैं फ़िल्टर करना चाहते हैं तो मैं सभी पंक्तियों SavedFamilyCode K123223 है कि देखते हैं। मैं पिवट टेबल में कोई अन्य पंक्तियां नहीं देखना चाहता हूं। मैं चाहता हूं कि यह पिछले फिल्टर के बावजूद काम करे। मुझे उम्मीद है कि आप इसके साथ मेरी मदद कर सकते हैं। धन्यवाद!
Sub FilterPivotField()
Dim Field As PivotField
Field = ActiveSheet.PivotTables("PivotTable2").PivotFields("SavedFamilyCode")
Value = Range("$A$2")
Application.ScreenUpdating = False
With Field
If .Orientation = xlPageField Then
.CurrentPage = Value
ElseIf .Orientation = xlRowField Or .Orientation = xlColumnField Then
Dim i As Long
On Error Resume Next ' Needed to avoid getting errors when manipulating fields that were deleted from the data source.
' Set first item to Visible to avoid getting no visible items while working
.PivotItems(1).Visible = True
For i = 2 To Field.PivotItems.Count
If .PivotItems(i).Name = Value Then _
.PivotItems(i).Visible = True Else _
.PivotItems(i).Visible = False
Next i
If .PivotItems(1).Name = Value Then _
.PivotItems(1).Visible = True Else _
.PivotItems(1).Visible = False
End If
End With
Application.ScreenUpdating = True
End Sub
दुर्भाग्य से मैं चलाने के लिए मिल टाइम त्रुटि 91: ऑब्जेक्ट सेट नहीं चर या के साथ ब्लॉक चर
मैं कोशिश कर रहा हूँ अपनी पोस्ट के आधार पर। इस त्रुटि के कारण क्या हुआ है?
क्या आपने मैक्रो रिकॉर्ड करने का प्रयास किया था? –
मैं उप FilterPivotTable() की तर्ज पर कुछ ActiveSheet.PivotTables ("PivotTable2") के साथ मिलता है। PivotFields ("SavedFamilyCode") .PivotItems ("K010")। दर्शनीय = सच .PivotItems ("K012") .Visible = झूठी के साथ समाप्त End Sub लेकिन मैं सब K010 को छोड़कर अदृश्य मैक्रो रिकॉर्डर बनना चाहते हैं पर ध्यान नहीं देता मेरा चयन/होने वाले सभी क्लिक – user1283776