Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Блокировка ячейки по условию - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Блокировка ячейки по условию (Макросы/Sub)
Блокировка ячейки по условию
ASM_0408 Дата: Вторник, 25.04.2017, 11:17 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 183
Репутация: 0 ±
Замечаний: 0% ±

2016
Уважаемые форумчане приветствую вас снова! Подскажите насколько реально средствами эксэль реализовать такую задачу в приложенном файле при установлении признака "на земле" происходила блокировка ячейки E11, или выходило сообщение "Запрещено", а при признаке "на опорах" ячейка E11 была свободна для заполнения. У меня получалось только прописывать по условию выходила собщение "запрещено", соответственно при вводе значений происходил сброс формулы условия. Из соседней ветки понял что решение надо искать здесь, воспользовавшись поиском нашел решение в макросе но как его применить в своем случае не знаю так как ранее с макросами не работал. Направьте пожалуйста. Благодарю!
К сообщению приложен файл: 9607862.xlsm(17Kb)


Сообщение отредактировал ASM_0408 - Вторник, 25.04.2017, 11:17
 
Ответить
СообщениеУважаемые форумчане приветствую вас снова! Подскажите насколько реально средствами эксэль реализовать такую задачу в приложенном файле при установлении признака "на земле" происходила блокировка ячейки E11, или выходило сообщение "Запрещено", а при признаке "на опорах" ячейка E11 была свободна для заполнения. У меня получалось только прописывать по условию выходила собщение "запрещено", соответственно при вводе значений происходил сброс формулы условия. Из соседней ветки понял что решение надо искать здесь, воспользовавшись поиском нашел решение в макросе но как его применить в своем случае не знаю так как ранее с макросами не работал. Направьте пожалуйста. Благодарю!

Автор - ASM_0408
Дата добавления - 25.04.2017 в 11:17
and_evg Дата: Вторник, 25.04.2017, 11:33 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 159
Репутация: 31 ±
Замечаний: 0% ±

Excel 2007
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
[/vba]
К сообщению приложен файл: 3382536.xlsm(17Kb)


Сообщение отредактировал and_evg - Вторник, 25.04.2017, 11:43
 
Ответить
Сообщение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
[/vba]

Автор - and_evg
Дата добавления - 25.04.2017 в 11:33
and_evg Дата: Вторник, 25.04.2017, 11:46 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 159
Репутация: 31 ±
Замечаний: 0% ±

Excel 2007
или так
[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
[/vba]
К сообщению приложен файл: 6234595.xlsm(15Kb)


Сообщение отредактировал and_evg - Вторник, 25.04.2017, 11:46
 
Ответить
Сообщениеили так
[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
[/vba]

Автор - and_evg
Дата добавления - 25.04.2017 в 11:46
ASM_0408 Дата: Вторник, 25.04.2017, 11:59 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 183
Репутация: 0 ±
Замечаний: 0% ±

2016
Отлично, благодарю!

Подскажите еще пожалуйста как прописать условие очистки ячейки, через clear или приравнивание к 0. При переходе F5 от 2 к 1?
 
Ответить
СообщениеОтлично, благодарю!

Подскажите еще пожалуйста как прописать условие очистки ячейки, через clear или приравнивание к 0. При переходе F5 от 2 к 1?

Автор - ASM_0408
Дата добавления - 25.04.2017 в 11:59
and_evg Дата: Вторник, 25.04.2017, 12:32 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 159
Репутация: 31 ±
Замечаний: 0% ±

Excel 2007
ASM_0408,
Цитата
условие очистки ячейки
какой ячейки?
 
Ответить
СообщениеASM_0408,
Цитата
условие очистки ячейки
какой ячейки?

Автор - and_evg
Дата добавления - 25.04.2017 в 12:32
ASM_0408 Дата: Вторник, 25.04.2017, 13:59 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 183
Репутация: 0 ±
Замечаний: 0% ±

2016
какой ячейки?

Извиняюсь, ячейка E11.
 
Ответить
Сообщение
какой ячейки?

Извиняюсь, ячейка E11.

Автор - ASM_0408
Дата добавления - 25.04.2017 в 13:59
and_evg Дата: Вторник, 25.04.2017, 14:09 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 159
Репутация: 31 ±
Замечаний: 0% ±

Excel 2007
ASM_0408, тогда так
К сообщению приложен файл: 1281382.xlsm(18Kb)
 
Ответить
СообщениеASM_0408, тогда так

Автор - and_evg
Дата добавления - 25.04.2017 в 14:09
ASM_0408 Дата: Вторник, 25.04.2017, 14:29 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 183
Репутация: 0 ±
Замечаний: 0% ±

2016
тогда так

То что надо!
respect
 
Ответить
Сообщение
тогда так

То что надо!
respect

Автор - ASM_0408
Дата добавления - 25.04.2017 в 14:29
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Блокировка ячейки по условию (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!