Уважаемые форумчане приветствую вас снова! Подскажите насколько реально средствами эксэль реализовать такую задачу в приложенном файле при установлении признака "на земле" происходила блокировка ячейки E11, или выходило сообщение "Запрещено", а при признаке "на опорах" ячейка E11 была свободна для заполнения. У меня получалось только прописывать по условию выходила собщение "запрещено", соответственно при вводе значений происходил сброс формулы условия. Из соседней ветки понял что решение надо искать здесь, воспользовавшись поиском нашел решение в макросе но как его применить в своем случае не знаю так как ранее с макросами не работал. Направьте пожалуйста. Благодарю!
Уважаемые форумчане приветствую вас снова! Подскажите насколько реально средствами эксэль реализовать такую задачу в приложенном файле при установлении признака "на земле" происходила блокировка ячейки E11, или выходило сообщение "Запрещено", а при признаке "на опорах" ячейка E11 была свободна для заполнения. У меня получалось только прописывать по условию выходила собщение "запрещено", соответственно при вводе значений происходил сброс формулы условия. Из соседней ветки понял что решение надо искать здесь, воспользовавшись поиском нашел решение в макросе но как его применить в своем случае не знаю так как ранее с макросами не работал. Направьте пожалуйста. Благодарю!ASM_0408
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$E$11" And Range("F5").Value = 1 Then MsgBox "Запрещено" Range("E12").Select End If End Sub
[/vba]
ASM_0408, так? [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$E$11" And Range("F5").Value = 1 Then MsgBox "Запрещено" Range("E12").Select End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$E$11" And Range("F5").Value = 1 Then MsgBox "Запрещено" Application.Undo End If Application.EnableEvents = True End Sub
[/vba]
или так [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$E$11" And Range("F5").Value = 1 Then MsgBox "Запрещено" Application.Undo End If Application.EnableEvents = True End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
