Note: The other languages of the website are Google-translated. Back to English

 Як автоматично запускати макрос, коли змінюється результат формули комірки?

Припустимо, у мене є список формул на основі даних у стовпці 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 змінюються, щоб спричинити зміну результату формули, ваш конкретний код макросу запускається відразу.


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (8)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Дуже дякую! Це мені справді допомогло.
Чи є спосіб отримати адресу зміненої комірки (за допомогою формули, тобто стовпця C у цьому прикладі).
Завдяки.
Цей коментар був мінімізований модератором на сайті
Який сенс умови? Він завжди повертатиме true...іншими словами: він працюватиме без нього. Це також виконується, коли будь-які клітинки на аркуші змінюють значення.
Цей коментар був мінімізований модератором на сайті
Отже, як називається мій макрос. де я можу знайти назву свого макросу?
Цей коментар був мінімізований модератором на сайті
Привіт, Ченк!
Ім’я макросу — це код макросу, який ви вставили у файл Excel, і вам просто потрібно змінити макрос1 у наведеному вище коді на свій власний.
Наприклад, я вставляю сюди код, а ім’я макросу: ColorCompanyDuplicates

Sub ColorCompanyDuplicates()
'Оновлення Extendoffice 20160704
Dim xRg As Range
Dim xTxt як рядок
Dim xCell As Range
Dim xChar як рядок
Dim xCellPre як діапазон
Dim xCIndex As Long
Dim xCol As Collection
Dim I As Long
On Error Resume Next
Якщо ActiveWindow.RangeSelection.Count > 1 Тоді
xTxt = ActiveWindow.RangeSelection.AddressLocal
Ще
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Встановіть xRg = Application.InputBox("будь ласка, виберіть діапазон даних:", "Kutools для Excel", xTxt, , , , , 8)
Якщо xRg — нічого, вийдіть із Sub
xCIndex = 2
Встановіть xCol = Нова колекція
Для кожного xCell In xRg
On Error Resume Next
xCol.Додати xCell, xCell.Text
Якщо Err.Number = 457 Тоді
xCIndex = xCIndex + 1
Встановити xCellPre = xCol(xCell.Text)
Якщо xCellPre.Interior.ColorIndex = xlNone Тоді xCellPre.Interior.ColorIndex = xCIndex
xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
ElseIf Err.Number = 9 Тоді
MsgBox "Забагато повторюваних компаній!", vbCritical, "Kutools для Excel"
Exit Sub
End If
При помилці GoTo 0
Далі
End Sub
Цей коментар був мінімізований модератором на сайті
на жаль, це не працює, це працює, якщо я вставлю дані вручну. але я хочу працювати автоматично, оскільки мої дані оновлюються за допомогою Rand calcaulate
Цей коментар був мінімізований модератором на сайті
"Встановити Xrg = Діапазон ("C2:C8")
Якщо не перетинається(Xrg, діапазон("C2:C8")) - це нічого, то"
ця умова зустрічається ЗАВЖДИ....
Мати сенс ???
Або я щось не зрозумів?
Цей коментар був мінімізований модератором на сайті
Правильно, ви вирішили цю проблему, і не могли б ви поділитися зі мною, будь ласка?
Цей коментар був мінімізований модератором на сайті
Гей, хлопці,
Я використав наступний код для цієї проблеми, сподіваюся, що він комусь допоможе:

Приватний допоміжний аркуш_обчислення()
Статичне старе значення
Якщо Range("MyNamedRange") <> oldValue Then
Код тут
oldValue = Діапазон("MyNamedRange").Значення
End If
End Sub
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0  Персонажі
Рекомендовані місця