EXCEL VBA スライサー・ワークシート上のテーブルにスライサーを作成して複数のデータを抽出（Slicer）

EXCEL VBA スライサー（Slicer）ワークシート上のテーブルにスライサーを作成して複数のデータを抽出

'
'
Sub Set_Slicer01() 'テーブルよりスライサーを作成します。

    Dim Ws As Worksheet
    Dim SlicerSete As Range
    
    Set Ws = Worksheets("Sheet1")  'テーブルの設置しているワークシートを設定します。
    Set SlicerSete = Ws.Range("G2:H10")  'スライサーを設置する位置を指定します。
    
    With ThisWorkbook.SlicerCaches.Add(Ws.ListObjects("テーブル1"), "性別") _
    .Slicers.Add(Ws, Top:=SlicerSete.Top, Left:=SlicerSete.Left, Width:=SlicerSete.Width, Height:=SlicerSete.Height)
    'スライサーを設置します。（テーブル１の性別）
    End With
    

End Sub
'

EXCEL VBA スライサー（Slicer）ワークシート上のテーブルに複数のスライサーを作成

'
'
Sub Set_Slicer02()  'テーブルよりスライサーを作成します。（スライサーを2つ作成）

    Dim Ws As Worksheet
    Dim SlicerSet As Range
    
    Set Ws = Worksheets("社員台帳")  'テーブルが登録されているシート「社員台帳」を指定します。
    
    Set SlicerSet = Ws.Range("G2:H10") 'スライサーの位置を指定します。
    
    With ThisWorkbook.SlicerCaches.Add(Ws.ListObjects("社員一覧"), "所属") _
        .Slicers.Add(Ws, Top:=SlicerSet.Top, Left:=SlicerSet.Left, Width:=SlicerSet.Width, Height:=SlicerSet.Height)
        'スライサーを設置します。（テーブル：社員一覧の所属）
    
    End With
       
    Set SlicerSet = Ws.Range("I2:J10")  'スライサーの位置を指定します。
    
    With ThisWorkbook.SlicerCaches.Add(Ws.ListObjects("社員一覧"), "役職") _
        .Slicers.Add(Ws, Top:=SlicerSet.Top, Left:=SlicerSet.Left, Width:=SlicerSet.Width, Height:=SlicerSet.Height)
        'スライサーを設置します。（テーブル：社員一覧の役職）
    End With
    
End Sub
'

EXCEL VBA テーブルを作成し、スライサー（Slicer）を複数項目作成する（テーブル作成　⇒　スライサー作成：自動作成）

'
'
Sub Set_Slicer03()  'テーブル作成からスライサーも作成

    Dim Ws As Worksheet
    Dim I  As Long
    Dim SlicerSet As Range
    
    Set Ws = Worksheets("商品一覧")   'データが登録されているワークシート「商品一覧」を指定します。
    On Error GoTo Err_Shori    'エラーが発生した場合は、「Err_Shori」へ飛びます。

    With Ws
        .ListObjects.Add Source:=Ws.Range("A1").CurrentRegion, xllistobjecthasheaders:=xlYes, tablestylename:="TableStylelight2"
        'セル「A1」を起点にテーブルを作成します。既にテーブルが作成している場合は、エラーが発生して、「Err_syori」へ進む

Err_Shori:
     
          For I = .Shapes.Count To 1 Step -1
                If .Shapes(I).Type = msoSlicer Then .Shapes(I).Delete  '既にスライサーが作成して有る場合は、削除します。
         Next I
         
    End With

    Set SlicerSet = Ws.Range("F2:G10")  'スライサー位置を指定します。（支店名：位置）

    With ThisWorkbook.SlicerCaches.Add(Ws.ListObjects(Ws.ListObjects(1).Name), "支店名") _
        .Slicers.Add(Ws, Top:=SlicerSet.Top, Left:=SlicerSet.Left, Width:=SlicerSet.Width, Height:=SlicerSet.Height)
        'スライサーを設置します。（テーブル：支店名）
    End With
    
    Set SlicerSet = Ws.Range("H2:I10")  'スライサー位置を指定します。（カテゴリー：位置）

    With ThisWorkbook.SlicerCaches.Add(Ws.ListObjects(Ws.ListObjects(1).Name), "カテゴリー") _
         .Slicers.Add(Ws, Top:=SlicerSet.Top, Left:=SlicerSet.Left, Width:=SlicerSet.Width, Height:=SlicerSet.Height)
        'スライサーを設置します。（テーブル：カテゴリー）
    End With
    
    Set SlicerSet = Ws.Range("J2:K10")  'スライサー位置を指定します。（商品：位置）

    With ThisWorkbook.SlicerCaches.Add(Ws.ListObjects(Ws.ListObjects(1).Name), "商品") _
         .Slicers.Add(Ws, Top:=SlicerSet.Top, Left:=SlicerSet.Left, Width:=SlicerSet.Width, Height:=SlicerSet.Height)
        'スライサーを設置します。（テーブル：商品）
    End With

End Sub
'