💻

ExcelVBAでピボットテーブル内の特定の値を非表示にする

2022/04/28に公開約600字

VBAでピボットテーブル内の特定の値を1つ非表示にするSubプロシージャ

'ピボットの任意のアイテムを非表示にする
'条件は一つだけ
'引数1:シート名
'引数2:ピボットテーブル名
'引数3:フィールド名
'引数4:この値だけを非表示にする
' "(blank)" で空白非表示
Private Sub S_ControlNonVisiblePivot(ByVal arg_filterSheetName As String, arg_filterPivotName As String, ByVal arg_filterFieldsName As String, ByVal arg_nonVisibleItemName As String)
    
    Dim filterSheet As Worksheet
    Set filterSheet = ActiveWorkbook.Worksheets(arg_filterSheetName)
    
    With filterSheet.PivotTables(arg_filterPivotName).PivotFields(arg_filterFieldsName)
        .PivotItems(arg_nonVisibleItemName).Visible = False
    End With
    
End Sub

Discussion

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