Как заставить срез сводной таблицы перемещаться вместе с прокруткой листа в 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.

Теперь указанные срезы будут перемещаться вместе с активной ячейкой при прокрутке листа. См. скриншот:

Раскройте магию Excel с Kutools AI

• Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
• Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формул: Легко разбирайтесь в сложных формулах.
• Перевод текста: Преодолейте языковые барьеры в ваших таблицах.

Улучшите возможности Excel с помощью инструментов на базе ИИ. Скачать сейчас и испытайте беспрецедентную эффективность!

Связанные статьи:

• Как сохранить возможность расширения таблицы путем вставки строки таблицы на защищенном листе в Excel?
• Как объединить ячейки и сохранить форматирование ячеек в Excel?
• Как удалить дубликаты, но оставить первое вхождение в Excel?