Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Перенос в ячейку значения из диалогового окна
 
Всем привет, несколько лет назад натыкалась на макрос, в котором были прописанны вопросы, ответы на которые проставлялись в ячейки.
Может быть у кого-нибудь тут есть что-то подобное? Нужен просто пример.  :)
Если описывать подробнее, то нужно диалоговое окно, которое бы спрашивало (пример) "пол" и в ячейке А2 проставлялось бы введённое "муж".
 
см.вложение
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Игорь, доброго вечерочка, это не совсем то, что нужно.
Нужен не список, а именно перенос напечатанного значения в диалоговом окне в ячейку.
 
Swoop,
Код
Sub mrshkei()
Dim  arr
arr = Range("A2:A15")
For i = LBound(arr) To UBound(arr)
    x = Application.InputBox(arr(i, 1), Type:=2)
    lr = Cells(Rows.Count, 2).End(xlUp).Row + 1
    Cells(lr, 2) = x
Next i
End Sub
Изменено: Mershik - 14 янв 2021 17:39:52
Не бойтесь совершенства. Вам его не достичь.
 
см.вложение
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1
Читают тему (гостей: 1)
Наверх