Согласно правилам форума, 1 проблема = 1 топик, по этому заранее извиняюсь, что захламляю форум пустячными вопросами) В приложении - файлик с макросом. Суть работы в том, что он находит текст "с учетом" - появялется всплывающее сообщение. Но если эта ячейка остается заполнена текстом, содержащим "с учетом", и начать вводить текст в другие ячейки... то сообщение каждый раз снова и снова появляется. Как завершить работу макроса после первого выполнения?
Согласно правилам форума, 1 проблема = 1 топик, по этому заранее извиняюсь, что захламляю форум пустячными вопросами) В приложении - файлик с макросом. Суть работы в том, что он находит текст "с учетом" - появялется всплывающее сообщение. Но если эта ячейка остается заполнена текстом, содержащим "с учетом", и начать вводить текст в другие ячейки... то сообщение каждый раз снова и снова появляется. Как завершить работу макроса после первого выполнения?ArkaIIIa
Private Sub Worksheet_Change(ByVal Target As Range) If Target = [a1] Then Exit Sub If InStr(1, Cells(1, 1), "с учетом") <> 0 Then MsgBox "Внимание, необходимо заполнить Комментарий к решению" Cells(1, 1).Value = "с учётом" End If End Sub
[/vba] хотя зачем это - непонятно...
Как вариант: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target = [a1] Then Exit Sub If InStr(1, Cells(1, 1), "с учетом") <> 0 Then MsgBox "Внимание, необходимо заполнить Комментарий к решению" Cells(1, 1).Value = "с учётом" End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Cells(1, 1).Value <> "с учетом" Then MsgBox "Внимание, необходимо заполнить Комментарий к решению" End If End Sub
[/vba] Так?
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Cells(1, 1).Value <> "с учетом" Then MsgBox "Внимание, необходимо заполнить Комментарий к решению" End If End Sub
RAN, Hugo,Задача следующая. Есть таблица. Одна из ячеек принимает значение "текст_с учетом", либо "текст_без учета". Нужно, чтобы в случае, когда ячейка принимает вид "текст_с учетом", появлялся меседжбокс с определенным текстом, но в случае с исходным примером, если продолжить заполнять другие ячейки листа, меседжбокс будет появляться снова и снова. Нужно реализовать выполнение макроса так, чтобы меседжбокс появлялся только 1 раз.
RAN, Hugo,Задача следующая. Есть таблица. Одна из ячеек принимает значение "текст_с учетом", либо "текст_без учета". Нужно, чтобы в случае, когда ячейка принимает вид "текст_с учетом", появлялся меседжбокс с определенным текстом, но в случае с исходным примером, если продолжить заполнять другие ячейки листа, меседжбокс будет появляться снова и снова. Нужно реализовать выполнение макроса так, чтобы меседжбокс появлялся только 1 раз.ArkaIIIa
Private Sub Worksheet_Change(ByVal Target As Range) If Target <> [a1] Then Exit Sub If Cells(1, 1).Value = "с учетом" Then MsgBox "Внимание, необходимо заполнить Комментарий к решению" End If End Sub
[/vba]
Не проверил, поправил знак. Или [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target <> [a1] Then Exit Sub If InStr(1, Cells(1, 1), "с учетом") <> 0 Then MsgBox "Внимание, необходимо заполнить Комментарий к решению" End If End Sub
[/vba]
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target <> [a1] Then Exit Sub If Cells(1, 1).Value = "с учетом" Then MsgBox "Внимание, необходимо заполнить Комментарий к решению" End If End Sub
[/vba]
Не проверил, поправил знак. Или [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target <> [a1] Then Exit Sub If InStr(1, Cells(1, 1), "с учетом") <> 0 Then MsgBox "Внимание, необходимо заполнить Комментарий к решению" End If End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
