Private Sub ComboBox1_Change()
Sheets("Лист2").Range("A1") = ComboBox1.Value
End Sub
Как связать ComboBox cо списком и ячейкой
Здрасте, помогите пож, нужно чтобы при ваборе из списка ComboBoxа данные вставлялись в ячейку на другом листе, список находится на томже листе что и ComboBox.:confused:
может так ?
Информация будет вставляться в ячейку A1 листа "Лист2"
Информация будет вставляться в ячейку A1 листа "Лист2"
Код:
Такие задачи элементарно решаются без использования макросов, т.к. для этого достаточно всего лишь использовать свойства ListFillRange и LinkedCell (см. скриншот)
все решил без макросов, через функцию индекс. как всегда все было просто только 4 дня мучался:D
Мучения не длились бы столь долго, если бы Вы :
- Cразу сказали, что речь идёт о родном элементе управления DropDown с панели инструментов Формы
- Или воспользовались моим советом и использовали "аналогичный" элемент управления (Поле со списком) с панели инструментов Элементы управления
- Cразу сказали, что речь идёт о родном элементе управления DropDown с панели инструментов Формы
- Или воспользовались моим советом и использовали "аналогичный" элемент управления (Поле со списком) с панели инструментов Элементы управления
да еще вопрос!!! Расчет паспорта: Как мне реализовать расчет чтобы в одну ячейку вводишь дату выдачи паспорта (например 02,03,1983). а в другой ячейке в зависимости от условий выходило "просрочен" "действителен" "несовершеннолетний" и предупреждение о столетии паспорта разными цветами. Вот
Вообще-то правила форума гласят : один вопрос - одна тема, но пока модераторов нет …
- Получить текущую дату можно с помощью стандартной функции =СЕГОДНЯ()
- Получить разницу между двумя датами, выраженную в количестве полных лет (с учётом високосных), можно использовав функцию =РАЗНДАТ()
=РАЗНДАТ("02.03.1983";СЕГОДНЯ();"Y")
=РАЗНДАТ(ДАТАЗНАЧ("02.03.1983");СЕГОДНЯ();"Y")
- Получить нужный результат, в зависимости от поставленных условий, можно использовав, например, стандартную функцию =ЕСЛИ()
- Изменить цвет заливки, шрифта можно используя Условное форматирование (меню Формат команда Условное форматирование)
- Получить текущую дату можно с помощью стандартной функции =СЕГОДНЯ()
- Получить разницу между двумя датами, выраженную в количестве полных лет (с учётом високосных), можно использовав функцию =РАЗНДАТ()
=РАЗНДАТ("02.03.1983";СЕГОДНЯ();"Y")
=РАЗНДАТ(ДАТАЗНАЧ("02.03.1983");СЕГОДНЯ();"Y")
- Получить нужный результат, в зависимости от поставленных условий, можно использовав, например, стандартную функцию =ЕСЛИ()
- Изменить цвет заливки, шрифта можно используя Условное форматирование (меню Формат команда Условное форматирование)