Страницы: 1
RSS
макрос для ввода данных через диалоговое окно
 
Я в VBA не силен, прошу помощи в написании макроса при котором ввод в любую ячейку будет проводится через диалоговое окно с одним полем для оценки (5,4,3,2).
 
sub stolyaryuri()  
activecell.value=application.inputbox("Введите оценку")  
end sub
 
А выпадающий список в ячейке - не вариант?
 
Могу что-то не то делать(офси 10й), но это макрос срабатывает только тогда когда я его руками запускаю, а хотелось чтобы окошко всплывало при выделении любой доступной ячейки.
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
ActiveCell.Value = Application.InputBox("Введите оценку")  
End Sub
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
 
Благодарствую, то что нужно!
 
Без указания конкретного диапазона Вам будет очень весело :-)
 
Юрий М, там по идее защита стоит без галочки "выделение заблокированных ячеек"
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
 
Там - где?
 
В файле ТСа :)
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
 
Не вижу файла... Где он?
 
Согласен ! Где файл ?
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
Страницы: 1
Читают тему
Наверх