Как вывести всплывающее окно сообщения, если значение ячейки равно «X» в Excel?

Вывод всплывающего окна сообщения очень помогает при поиске определенного содержимого в указанном диапазоне. Например, вы ищете значение ячейки, равное 50, в диапазоне A1:C7, и вам нужно, чтобы всплывающее окно сообщало вам о наличии или отсутствии такого значения. Следующие два метода могут помочь вам.

Вывести всплывающее окно сообщения, если значение ячейки равно «X», с помощью кода VBA
Легко вывести всплывающее окно сообщения, если значение ячейки равно «X», с помощью Kutools для Excel

Вывести всплывающее окно сообщения, если значение ячейки равно «X», с помощью кода VBA

Следующий код VBA может помочь создать всплывающее окно сообщения, когда определенное значение существует в указанном диапазоне. Пожалуйста, действуйте следующим образом.

1. На листе, где необходимо проверить значения в указанном диапазоне, щелкните правой кнопкой мыши имя вкладки на панели вкладок листа, а затем выберите Вид Кода из контекстного меню. Смотрите скриншот:

2. В окне Microsoft Visual Basic for Applications скопируйте и вставьте следующий код VBA в окно Кода.

Код VBA: вывести всплывающее окно сообщения, если значение ячейки равно «X»

Private Sub Worksheet_Change(ByVal Target As Range)
'Update: 2017/7/25
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub
Private Sub Worksheet_selectionChange(ByVal Target As Range)
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub

3. Нажмите клавиши Alt + Q одновременно, чтобы закрыть окно Microsoft Visual Basic for Applications и вернуться на лист.

Теперь, когда значения ячеек изменяются в диапазоне A1:C7 и есть ячейка со значением, равным «50», вы получите всплывающее окно сообщения, как показано на скриншоте ниже.

Кроме того, вы можете просто выбрать диапазон, чтобы вывести всплывающее окно сообщения, если значение ячейки существует.

Примечания:

Вывести всплывающее окно сообщения, если значение ячейки равно «X», с помощью Kutools для Excel

Утилита Выбрать определенные ячейки из Kutools для Excel также может помочь вам решить эту проблему. Пожалуйста, действуйте следующим образом.

1. Выберите диапазон, в котором вы хотите найти существующее значение ячейки, затем нажмите Kutools > Выбрать > Выбрать определенные ячейки.

2. В диалоговом окне Выбрать определенные ячейки выберите опцию Ячейка в разделе Тип выбора, затем выберите Равно в первом выпадающем списке Указать тип и введите значение ячейки в следующем текстовом поле, и, наконец, нажмите кнопку OK.

Если значение ячейки существует в указанном диапазоне, вы получите следующее всплывающее окно сообщения, нажмите кнопку OK, ячейка будет выбрана.

В противном случае вы получите всплывающее окно сообщения, как показано на скриншоте ниже.

Связанные статьи:

• Как удалить всю строку, если ячейка содержит ноль в Excel?
• Как подсчитать ячейки с определенным текстом в выделенной области в Excel?