Excelでワークシートをスクロールしてピボットテーブルのスライサーを動かし続けるにはどうすればよいですか？

ピボットテーブルの操作中に、スライサーを挿入して、テーブルのデータを視覚的にフィルタリングできます。 この記事では、ワークシートをスクロールしている間、ピボットテーブルのスライサーを常に表示することについて説明しています。

VBAコードを使用してワークシートをスクロールしながら、ピボットテーブルのスライサーを動かし続けます

VBAコードを使用してワークシートをスクロールしながら、ピボットテーブルのスライサーを動かし続けます

次のVBAスクリプトは、ピボットテーブルのスライサーをワークシートで動かし続けるのに役立ちます。 次のようにしてください。

1。 プレス 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック このワークブック 左側の[プロジェクト]ペインで、以下のVBAコードをコピーして ThisWorkbook（コード） 窓。 スクリーンショットを参照してください：

VBAコード：ワークシートのスクロールでピボットテーブルのスライサーを動かし続ける

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim ShF As Shape
    Dim ShM As Shape
    'specify a slicer
    Application.ScreenUpdating = False
    Set ShF = ActiveSheet.Shapes("Column1")
    Set ShM = ActiveSheet.Shapes("Column2")
    'change position of the slicer
    With Windows(1).VisibleRange.Cells(1, 1)
        ShF.Top = .Top
        ShF.Left = .Left + 300
        ShM.Top = .Top
        ShM.Left = .Left + 100
    End With
    Application.ScreenUpdating = True
End Sub

ノート:

1）。 コードでは、Column1とColumn2はスライサーの名前です。

2）。 コード内のワークシートをスクロールしながら、スライサーの位置を指定できます。

3）。 また、必要に応じて、コードにスライサーを追加したり、コードからスライサーを削除したりできます。

3。 プレス 他の + Q を閉じるためのキー アプリケーション向け Microsoft Visual Basic ウィンドウダイアログボックス。

これ以降、ワークシートをスクロールしながら、指定したスライサーがアクティブセルとともに移動します。 スクリーンショットを参照してください：

関連記事:

• Excelの保護されたワークシートにテーブルの行を挿入してテーブルを展開可能に保つにはどうすればよいですか？
• セルを組み合わせてExcelでセルの書式を維持するにはどうすればよいですか？
• 重複を削除して最初のインスタンスをExcelに保持する方法は？