Як спливаюче вікно повідомлення, якщо комірка більша або менша за певне значення в Excel?

Якщо комірка більша або менша, ніж інша комірка, мені потрібно з’явити вікно повідомлення для попередження в Excel. Як вирішити цю проблему в Excel? У цій статті я розповім про деякі кодекси боротьби з нею.

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

Вискакує вікно повідомлення, якщо значення комірки в комірці більше або менше, ніж в іншій комірці

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

Припустимо, у мене є конкретне число 100 у комірці A1, тепер, коли число, введене у стовпці D, більше 100 у комірці A1, повинно вискочити вікно повідомлення, щоб нагадати користувачеві.

Тут наведений нижче код VBA може допомогти вам його закінчити, виконайте такі дії:

1. Перейдіть до робочого аркуша, який ви хочете використовувати.

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

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

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xC As String
Dim xWSName As String
Dim xA As String
xC = "D:D"
xWSName = "Sheet1"
xA = "A1"
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
    xNum = (Sheets(xWSName).Range(xA).Value)
    If (Target.Value) > (Sheets(xWSName).Range(xA).Value) Then
        MsgBox Prompt:="The entered number is greater than cell A1, please enter again! ", Title:="Kutools for Excel"
    End If
End Sub

примітки: У наведеному вище коді, Sheet1 це ваш робочий аркуш, який ви хочете використовувати; A1 - значення клітинки, з яким потрібно порівняти; D: D - стовпець, який потрібно порівняти з коміркою А1.

3. Потім збережіть і закрийте вікно коду, відтепер вікно повідомлення вискакує, якщо ви введете число в стовпці D, яке більше 100, див. Знімок екрана:

Вискакує вікно повідомлення, якщо значення комірки в комірці більше або менше, ніж в іншій комірці

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

1. Перейдіть до робочого аркуша, який ви хочете використовувати.

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

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

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error GoTo ExitSub
Dim One As Long
Dim Two As Long
One = Range("A1").Value
Two = Range("D1").Value
If Not (Application.Intersect(Range("A1:D1"), Target) Is Nothing) Then
If (One < Two) Then
MsgBox "The value in cell D1 cann't be greater than cell A1!", vbInformation, "Kutools for Excel"
End If
End If
ExitSub:
End Sub

примітки: У наведеному вище коді, A1 та D1 це дві клітинки, з якими потрібно порівняти.

3. Потім збережіть і закрийте вікно коду; при введенні значення, яке менше значення в комірці А1, з’явиться вікно повідомлення, як показано на знімку екрана нижче:

Інші відносні статті спливаючих вікон:

---

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

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

• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці та Ведення даних; Вміст розділених комірок; Поєднуйте повторювані рядки та суму / середнє... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Улюблені та швидко вставлені формули, Діапазони, діаграми та зображення; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Групування зведеної таблиці за номер тижня, день тижня та багато іншого ... Показати розблоковані, заблоковані клітини за різними кольорами; Виділіть клітини, які мають формулу / назву...

Детальніше ... Повні можливості 30-денної безкоштовної пробної версії ... Придбати ... 

---

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

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Повні можливості 30-денної безкоштовної пробної версії ... Придбати ...