💻

ExcelVBAでピボットテーブルにフィルターをかける

2022/04/28に公開約600字

VBAでピボットテーブルに特定の値だけを表示させるSubプロシージャ

'ピボットにフィルターをかける
'条件は一つだけ
'引数1:シート名
'引数2:ピボットテーブル名
'引数3:フィールド名
'引数4:この値だけを表示する

Private Sub S_ToOneFilterPivot(ByVal arg_filterSheetName As String, arg_filterPivotName As String, ByVal arg_filterFieldsName As String, ByVal arg_filterItemName As String)
    
    Dim filterSheet As Worksheet
    Set filterSheet = ActiveWorkbook.Worksheets(arg_filterSheetName)
    
    With filterSheet.PivotTables(arg_filterPivotName).PivotFields(arg_filterFieldsName)
        .CurrentPage = arg_filterItemName
    End With
    
End Sub

行フィルタ等にはこちら

https://zenn.dev/webdebris/articles/585037162b9067

Discussion

ログインするとコメントできます