Есть вот такой макрос, создающий элемент управления "Поле со списком".
[vba]
Код
ActiveSheet.DropDowns.Add(146.25, 60, 42, 15.75).Select With Selection .ListFillRange = "$A$1:$A$5" .LinkedCell = "$E$5" .DropDownLines = 8 .Display3DShading = False End With
[/vba]
Как его изменить, чтобы создался массив из таких "Полей со списком", в котором менялась бы величина 60 с равным шагом 45 и ячейка $E$5 с шагом в 3 ячейки вниз, т.е. для 2го "Поля" эти значения были бы 105 и $E$8 Допустим, нужен массив из 100 таких "Полей со списком".
Добрый день!
Есть вот такой макрос, создающий элемент управления "Поле со списком".
[vba]
Код
ActiveSheet.DropDowns.Add(146.25, 60, 42, 15.75).Select With Selection .ListFillRange = "$A$1:$A$5" .LinkedCell = "$E$5" .DropDownLines = 8 .Display3DShading = False End With
[/vba]
Как его изменить, чтобы создался массив из таких "Полей со списком", в котором менялась бы величина 60 с равным шагом 45 и ячейка $E$5 с шагом в 3 ячейки вниз, т.е. для 2го "Поля" эти значения были бы 105 и $E$8 Допустим, нужен массив из 100 таких "Полей со списком".Dmitry_P
Сообщение отредактировал Serge_007 - Среда, 08.01.2014, 17:57
Dim i&: Application.ScreenUpdating = False With ActiveSheet For i = 1 To 100 With .DropDowns.Add(146.25, 60 + 45 * (i - 1), 42, 15.75) .ListFillRange = "$A$1:$A$5" '??? .LinkedCell = Range("E3")(3 * i, 1).Address End With Next i End With Application.ScreenUpdating = True
[/vba]
Здрасьте ну как-то так, что ли [vba]
Код
Dim i&: Application.ScreenUpdating = False With ActiveSheet For i = 1 To 100 With .DropDowns.Add(146.25, 60 + 45 * (i - 1), 42, 15.75) .ListFillRange = "$A$1:$A$5" '??? .LinkedCell = Range("E3")(3 * i, 1).Address End With Next i End With Application.ScreenUpdating = True
Дата: Понедельник, 07.04.2014, 21:04 |
Сообщение № 4
Группа: Гости
Добрый вечер! Помогите, пожалуйста! Смысл вышеописанного кода поняла. Но видимо где-то ошибаюсь в оформлении. Как это творение для СomboBox Записать? Мне нужно, чтобы при выборе из его списка какого-то значения, оно заносилось в первую свободную ячейку столбца. и так по порядку
Добрый вечер! Помогите, пожалуйста! Смысл вышеописанного кода поняла. Но видимо где-то ошибаюсь в оформлении. Как это творение для СomboBox Записать? Мне нужно, чтобы при выборе из его списка какого-то значения, оно заносилось в первую свободную ячейку столбца. и так по порядкуПытающийся
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
