Как обновить сводную таблицу на защищенном листе?
Обычно сводная таблица не обновляется на защищенном листе, в этой статье я представлю код VBA для обновления сводной таблицы с защищенного листа.
Обновить сводную таблицу на защищенном листе с кодом VBA
Обновить сводную таблицу на защищенном листе с кодом VBA
По умолчанию у вас нет прямого способа обновить сводную таблицу на защищенном листе, но с помощью следующего кода VBA вы можете быстро обновить все сводные таблицы текущего листа при изменении данных в исходной таблице.
1. Удерживая нажатой ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
Код VBA: обновить сводную таблицу на защищенном листе:
Sub RefreshAll()
'Updateby Extendoffice 20161109
Dim xpt As PivotTable
With ActiveSheet
.Protect UserInterfaceOnly:=True
For Each xpt In .PivotTables
xpt.RefreshTable
Next xpt
End With
End Sub
3, Затем нажмите F5 ключ для запуска этого кода, если ваши исходные данные изменятся, все сводные таблицы в активном листе будут обновлены сразу.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!