Как открыть окно сообщения, если значение ячейки изменяется в пределах диапазона в Excel?

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

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

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

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

1. Нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, дважды щелкните имя листа (указанный диапазон существует в) на левой панели, чтобы открыть его Code window, затем скопируйте и вставьте в окно приведенный ниже код VBA.

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

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Application.Intersect(Range("A1:E19"), Target) Is Nothing) Then
        MsgBox "Cell " & Target.Address & " has changed.", vbInformation, "Kutools for Excel"
    End If
End Sub

Внимание: вы можете изменить указанный диапазон A1: E19 в коде на нужный вам диапазон.

3. Нажмите другой + Q ключи одновременно, чтобы закрыть Microsoft Visual Basic для приложений окно.

На данный момент, когда значения ячеек в диапазоне A1: E19 изменились, окно сообщения появится автоматически. Смотрите скриншот:

Разблокируйте магию Excel с помощью Kutools AI

• Умное исполнение: выполнение операций с ячейками, анализ данных и создание диаграмм — и все это осуществляется с помощью простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации рабочих процессов.
• VBA-кодирование: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формулы: Легкое понимание сложных формул.
• Перевод текста: преодолевайте языковые барьеры в своих таблицах.

Расширьте свои возможности Excel с помощью инструментов на базе искусственного интеллекта. Скачать сейчас и испытайте эффективность, как никогда раньше!