Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

 Як запустити макрос на основі значення комірки в Excel?

Припустимо, у моїй книзі є кілька макрокодів, і тепер я хочу запустити ці коди на основі значення комірки. У цій статті я розповім про кілька ситуацій, які можуть виникнути у вашій щоденній роботі під час використання Excel.

Запустити або запустити макрос, якщо значення комірки більше або менше, ніж певне значення з кодом VBA

Запустити або запустити макрос, якщо значення комірки дорівнює певному тексту з кодом VBA


стрілка синя права міхур Запустити або запустити макрос, якщо значення комірки більше або менше, ніж певне значення з кодом VBA

Наприклад, якщо значення в комірці A1 знаходиться між 10 і 50, запустіть macro1, а якщо значення більше 50, запустіть macro2. Щоб вирішити цю роботу в Excel, застосуйте такий код VBA.

1. Клацніть правою кнопкою миші вкладку аркуша, на якій потрібно виконати макрос на основі значення комірки, а потім виберіть Переглянути код з контекстного меню та у відкритому вікні Microsoft Visual Basic для програм вікно, скопіюйте та вставте наступний код у порожній модуль:

Код VBA: Запустити макрос, якщо значення комірки більше або менше:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If IsNumeric(Target) And Target.Address = "$A$1" Then
        Select Case Target.Value
        Case 10 To 50: Macro1
        Case Is > 50: Macro2
        End Select
    End If
End Sub

doc запустити макрос на основі значення комірки 1

примітки: У наведеному вище коді:

A1 це комірка, яка містить конкретне значення, на якому ви хочете запустити макрос;

Випадок 10 до 50: Макро1: це означає, що якщо значення між 10 і 50, запустіть Macro1;

Справа> 50: Macro2: це означає, що якщо значення більше 50, запустіть Macro2.

Будь ласка, змініть назви макросів та критерії цих тез відповідно до ваших потреб, а також ви можете додати більше критеріїв, слідуючи випадок сценарій

2. Потім збережіть і закрийте це вікно коду, тепер, коли введене значення знаходиться в діапазоні від 10 до 50 у комірці A1, буде активовано Macro1, якщо введене значення більше 50, виконується Macro2.


стрілка синя права міхур Запустити або запустити макрос, якщо значення комірки дорівнює певному тексту з кодом VBA

Якщо ви хочете запустити макрос на основі конкретного тексту в комірці, наприклад, запустити макрос1, якщо введено текст “Видалити”, і запустити макрос2, якщо введено текст “Вставити”. Наступний код може зробити вам послугу.

1. Клацніть правою кнопкою миші аркуш, який потрібно виконати, макрос на основі значення комірки, а потім виберіть Переглянути код з контекстного меню та у відкритому вікні Microsoft Visual Basic для програм вікно, скопіюйте та вставте наступний код у порожній модуль:

Код VBA: Запустіть макрос, якщо значення комірки більше або менше:

Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "Delete" Then
 Call Macro1
End If
If target.Value = "Insert" Then
Call Macro2
End If
End Sub 

doc запустити макрос на основі значення комірки 2

примітки: У наведеному вище коді "видаляти"І"Insert- це тексти комірок, на основі яких ви хочете запускати макроси, та Макро1 і Макро2 - це макроси, які ви хочете виконати на основі тексту. Будь ласка, змініть їх на свої потреби.

2. Потім збережіть цей код і закрийте вікно, тепер, коли ви вводите текст «Видалити» в комірку А1, запускається макро1, якщо введено текст «Вставити», макро2 буде виконано.


Статті по темі:

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

Як запустити макрос автоматично перед друком у Excel?

Як запустити макрос на основі значення, вибраного зі спадного списку в Excel?

Як запустити макрос, клацнувши гіперпосилання в Excel?

Як запустити макрос, коли аркуш вибрано з книги?


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

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% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Mani Chandran · 3 years ago
    I am working with result analysis. In this case, the data in the excel will be like this Name, Sub name , Crade. Now,i want to find the all pass or successful candidate numbers from the result. How can i get it. Because, i am having 6 different subject and their results in single excel sheet. If student failed in one subject he is not be a successful student. How do remove their name in all the subjects.
  • To post as a guest, your comment is unpublished.
    Siva · 3 years ago
    Requirement:
    Based on the selection
    There will be a dropdown list for following three properties of the same dimension as below.
    And there will be three derived cells which will be derived from the cells (G46,G47 and G48)

    Scenario:
    If I select a value from cost center drop down list , cost center derived cell(K46) should be populated with value selected from cost center drop down list(H46) and the other two derived cells (K47 and k48) should become blank.

    Similarly if I select value from Budget manager drop down list, Budget manager derived cell should be populated with value selected from Budget manager drop down list(H47) and the other two derived cells (K45 and k48) should become blank.
  • To post as a guest, your comment is unpublished.
    Richard · 4 years ago
    Hi, how about if you want to run a macro based on two cells? One cell being text based and the other cell having numerical values? Then you would want to call a macro if the two cells show exactly what you want, like "YES" for the first cell and 1 for the second cell, if not a pop box would show saying "Not Found".