Как да стартирате макрос, когато стойността на клетката се промени в Excel?
Обикновено в Excel можем да натиснем клавиша F5 или бутона Run, за да изпълним VBA кода. Но опитвали ли сте някога да изпълните конкретния макро код, когато стойността на клетка се промени? В тази статия ще представя някои бързи трикове за справяне с тази работа в Excel.
Изпълнение или извикване на макрос, когато конкретна стойност на клетка се промени с VBA код
Изпълнение или извикване на макрос, когато стойността на клетка се промени в диапазон с VBA код
Изпълнение или извикване на макрос, когато конкретна стойност на клетка се промени с VBA код
За да изпълните макро код чрез промяна на стойност на клетка, следният VBA код може да ви направи услуга, моля, направете следното:
1. Щракнете с десния бутон върху раздела на листа, за който искате да изпълните макроса, ако стойността на клетката се промени, и след това изберете Преглед на кода от контекстното меню и в отвореното Microsoft Visual Basic за приложения прозорец, копирайте и поставете следния код в празния модул:
VBA код: Изпълнение на макрос, когато стойността на клетката се промени:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Call Mymacro
End If
End Sub
Забележка: В горния код, A1 е конкретната клетка, въз основа на която искате да изпълните кода, Mymacro е името на макроса, който искате да изпълните. Моля, променете ги според вашите нужди.
2. И след това запазете и затворете прозореца на кода, сега, когато въведете или промените стойност в клетка A1, конкретният код ще се задейства веднага.
Изпълнение или извикване на макрос, когато стойността на клетка се промени в диапазон с VBA код
Ако искате да изпълните или задействате макрос, когато стойността на някоя клетка се промени в диапазон от клетки, следният код може да ви помогне.
1. Щракнете с десния бутон върху раздела на листа, за който искате да изпълните макроса, ако стойността на клетката се промени, и след това изберете Преглед на кода от контекстното меню и в отвореното Microsoft Visual Basic за приложения прозорец, копирайте и поставете следния код в празния модул:
VBA код: Изпълнете макрос, когато стойността на някоя клетка се промени в диапазон:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B100")) Is Nothing Then
Call Mymacro
End If
End Sub
Забележка: В горния код, A1: B100 са конкретните клетки, въз основа на които искате да стартирате кода, Mymacro е името на макроса, който искате да изпълните. Моля, променете ги според вашите нужди.
2. И след това запазете и затворете прозореца на кода, сега, когато въведете или промените стойност в която и да е клетка от A1: B100, конкретният код ще бъде изпълнен наведнъж.
Премахнете всички макроси от множество работни книги
Kutools за Excel's Пакетно премахване на всички макроси помощната програма може да ви помогне да премахнете всички макроси от множество работни книги, както ви е необходимо. Изтеглете и изпробвайте безплатно Kutools за Excel сега!
Kutools за Excel: с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. Изтеглете и изпробвайте безплатно сега!
Още по темата:
Как да стартирам автоматично макрос преди печат в Excel?
Как да стартирам макрос въз основа на стойност на клетка в Excel?
Как да стартирам макрос въз основа на стойност, избрана от падащия списък в Excel?
Как да стартирате макрос, като щракнете върху хипервръзки в Excel?
Как да стартирам макрос, когато листът е избран от работна книга?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!