Еще одним полезным примером функции для автоматического заполнения ячеек Excel является функция для заполнения последовательностей чисел. Это может быть удобно при создании списков номеров, ID или любых других последовательностей чисел.
📢 Не забудьте скачать файл с исходным кодом, размещенным в конце статьи 🔽
Предположим, что нужно заполнить столбец числами от 1 до 10.
🔔 Вместо того, чтобы вручную вводить каждое число, можно использовать функцию VBA, чтобы автоматически заполнить эти ячейки.
Вот пример кода для такой функции:
🔘 Разберем этот код построчно:
- Function FillNumberSequence(startRow As Long, endRow As Long) As Variant Объявление функции с двумя аргументами типа Long. Функция будет возвращать массив значений типа Variant.
- Dim outputArr() As Variant Объявление массива значений типа Variant. Массив будет использоваться для хранения выходных данных функции.
- Dim i As Long Объявление переменной i типа Long. Эта переменная будет использоваться для итерации по строкам массива.
- ReDim outputArr(startRow To endRow, 1 To 1) Изменение размерности массива на количество строк, которые необходимо заполнить. Каждая строка будет иметь один столбец.
- For i = startRow To endRow Начало цикла для итерации по строкам массива.
- outputArr(i, 1) = i - startRow + 1 Заполнение текущей ячейки массива значением i - startRow + 1.
- Next i Завершение цикла.
- FillNumberSequence = outputArr Назначение возвращаемого значения функции. Возвращаемый массив значений заполнен последовательностями чисел.
После выполнения этой функции вы можете использовать результат как обычный массив значений в вашем коде VBA. Например:
✔️ После выполнения этой функции вы можете использовать результат как обычный массив значений в вашем коде VBA.
Например, если мы вызовем эту функцию с аргументами startRow = 1 и endRow = 10, то она заполнит столбец A значениями от 1 до 10.
⚡ Вы можете легко изменить эту функцию, чтобы она заполняла последовательности чисел с любым шагом и начальным значением, используя аргументы функции.
⚡ Также вы можете использовать эту функцию в сочетании с другими функциями для автоматического заполнения ячеек, чтобы создать более сложные шаблоны заполнения.
Похожие темы: