Как автоматично да стартирате макрос, когато резултатът от клетъчната формула се промени?
Да предположим, че имам списък с формули, базиран на данните в колона 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 е диапазонът от клетки с формули, които искате да използвате,maco1 е името на макроса, който искате да стартирате автоматично. Моля, променете го според вашите нужди.
2. След това запазете и затворете този прозорец с код, сега, когато данните в диапазона A2:B8 се променят, за да предизвикат промени в резултата от формулата, вашият специфичен макро код се задейства веднага.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!