如何在Excel中保持数据透视表的切片器随工作表滚动而移动？

在使用数据透视表时，您可能会插入切片器以直观地筛选表格中的数据。本文将介绍如何在滚动工作表时始终保持数据透视表的切片器可见。

使用VBA代码保持数据透视表的切片器随工作表滚动而移动

使用VBA代码保持数据透视表的切片器随工作表滚动而移动

以下VBA脚本可以帮助您保持数据透视表的切片器随工作表滚动而移动。请按照以下步骤操作：

1. 同时按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，双击左侧项目窗格中的 ThisWorkbook，然后将以下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. 按下 Alt + Q 键关闭 Microsoft Visual Basic for Applications 窗口对话框。

从现在开始，指定的切片器将在滚动工作表时随活动单元格一起移动。参见截图：

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

相关文章：

• 如何在受保护的工作表中通过插入表格行来保持表格可扩展性？
• 如何在Excel中合并单元格并保留单元格格式？
• 如何在Excel中删除重复项但保留第一个实例？