Как автоматически запускать макрос при изменении результата формулы ячейки?
Предположим, у меня есть список формул, основанный на данных в столбцах A и B, как показано на следующем снимке экрана. Теперь я хочу автоматически запускать определенный код макроса, когда результат формулы изменяется с изменением его относительных ячеек. Есть ли хорошая идея решить эту задачу в Excel?
Автоматический запуск макроса при изменении результата формулы ячейки с кодом VBA
Автоматический запуск макроса при изменении результата формулы ячейки с кодом VBA
Следующий код VBA может помочь вам автоматически выполнить определенный код при изменении ячейки результата формулы, сделайте следующее:
1. Щелкните правой кнопкой мыши вкладку листа, которую вы хотите использовать, а затем выберите Просмотреть код из контекстного меню в открывшемся Microsoft Visual Basic для приложений окна, скопируйте и вставьте следующий код в пустой модуль:
Код VBA: автоматически запускать макрос при изменении результата формулы ячейки:
Private Sub Worksheet_Calculate()
'Updateby Extendoffice
Dim Xrg As Range
Set Xrg = Range("C2:C8")
If Not Intersect(Xrg, Range("C2:C8")) Is Nothing Then
Macro1
End If
End Sub
Внимание: В приведенном выше коде C2: C8 это диапазон ячеек формулы, который вы хотите использовать ,мако1 - это имя макроса, который нужно запускать автоматически. Пожалуйста, измените его по своему усмотрению.
2. Затем сохраните и закройте это окно кода, теперь, когда данные в диапазоне A2: B8 изменяются, чтобы вызвать изменение результата формулы, ваш конкретный код макроса запускается сразу.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!