Код: Выделить всё
Private Sub Workbook_Open()
Лист1.ComboBox1.List = Array("Иванов", "Петров", "Сидоров", "Фёдоров", "Мышковский")
End Sub
Модератор: Naeel Maqsudov
Код: Выделить всё
Private Sub Workbook_Open()
Лист1.ComboBox1.List = Array("Иванов", "Петров", "Сидоров", "Фёдоров", "Мышковский")
End Sub
Скачал файл но Извините не понял как размер шрифта изменить ... Что и где поправить ?pashulka писал(а):3, 4. Вот пример с элементом управления "Поле со списком" с панели инструментов "Элементы управления", где размер шрифта был изменён вручную и нет макросов.