Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как всплывающее окно сообщения, если ячейка больше или меньше определенного значения в 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 это столбец, который вы хотите сравнить с ячейкой A1.

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, Затем сохраните и закройте окно кода, при вводе значения, которое меньше значения в ячейке A1, появится окно сообщения, как показано на снимке экрана ниже:


Более относительные статьи всплывающего окна сообщения:

  • Создать всплывающее окно сообщения при открытии файла Excel
  • В некоторых случаях вам может понадобиться всплывающее окно с сообщением, напоминающее вам, что вам нужно делать, когда вы открываете конкретную книгу, это может помочь вам не забыть делать самое главное в вашей повседневной работе. В этой статье я расскажу о том, как создать всплывающее окно сообщения при открытии файла Excel.
  • Создайте окно сообщения Да Нет перед запуском макроса в Excel
  • В Excel вы можете напрямую запустить макрос, нажав клавишу F5 или нажав кнопку «Выполнить» в окне Microsoft Visual Basic для приложений. Но иногда вы можете захотеть создать окно сообщения, которое спросит пользователя, хотят ли они запустить макрос. Если да, продолжайте выполнение кода, если нет, прекратите выполнение кода. В этой статье я расскажу о том, как создать окно сообщения «да нет» перед запуском макроса в Excel.
  • Создать таймер окна сообщения для автоматического закрытия окна сообщения после определенного времени
  • Часто вы можете использовать скрипт VBA для решения проблем при использовании книги Excel. И во время запуска скрипта появятся окна сообщений. В некоторых случаях вы хотели бы, чтобы некоторые указанные окна сообщений закрывались автоматически через определенное время, а не закрывали его вручную. В этой статье мы покажем вам способ создания таймера окна сообщения для автоматического закрытия окна сообщения через определенное время в Excel.


  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Группировка сводных таблиц по номер недели, день недели и многое другое ... Показать разблокированные, заблокированные ячейки разными цветами; Выделите ячейки, которые имеют формулу / имя...
вкладка kte 201905
  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.