отобразить окно с сообщением

Пользователь

Сообщений: 148 Регистрация: 03.12.2017

24.05.2019 15:12:12

Подскажите пожалуйста подскажите пожалуйста как реализовать следующую идею.
Есть диапазон в котором формула отображает определенно слово ("вода")при определенных условиях. Нужно отображать окно с сообщением как только слово "вода" в диапазоне появилось.

Прикрепленные файлы

ПоявлялосьСообщение.xlsm (15.24 КБ)

БМВ Модератор Сообщений: 23298 Регистрация: 28.12.2016 Excel 2013, 2016	#2 24.05.2019 15:25:42 зато без макросов Прикрепленные файлы Copy of пример958.xlsx (24.99 КБ) По вопросам из тем форума, личку не читаю.

occupiedwork Пользователь Сообщений: 54 Регистрация: 27.12.2018	#3 24.05.2019 15:59:12 http://www.planetaexcel.ru/forum.php?thread_id=7351 есть тема с поиском

Mershik

Пользователь

Сообщений: 8277 Регистрация: 03.12.2015

24.05.2019 16:37:53

occupiedwork, короче я вообще не умею писать макросы, но с мира по нитке получилось вот что то такое.
для проверки внесите или удалите значение в D1 (для того что бы произошел пересчет формулы )...

Скрытый текст
Private Sub Worksheet_Calculate() Dim Xrg As Range Set Xrg = Range("B2:B10") If Not Intersect(Xrg, Range("B2:B10")) Is Nothing Then If Application.WorksheetFunction.CountIf(Range("B2:B10"), "вода") >= 1 Then f = MsgBox("Ура у нас появилась вода", 64) Else f = MsgBox("Воды всё так и нет", 16) End If End If End Sub

Прикрепленные файлы

ПоявлялосьСообщение.xlsm (16.07 КБ)

Изменено: Mershik - 24.05.2019 16:40:21

Не бойтесь совершенства. Вам его не достичь.