Создадим самый простой цикл используя VBA в Excel.
В этот раз напишем всё своими руками:
Sub Заполнение()
'Запускаем цикл от 1 до 10
'Начало цикла
For i = 1 To 10
'В первый столбец записываем порядковый номер
Cells(i + 1, 1) = i
'Во второй столбец записываем произведение порядкового номера и значения указанного в ячейке "B1"
Cells(i + 1, 2) = i * Range("b1").Value
'Конец цикла
Next
End Sub
Расшифрую, приведённый выше код VBA:
- Весь код макроса заключается между Sub и End Sub, после Sub пишется название макроса.
- Текст после ‘ означает комментарий
- Цикл заключается между For … to и Next
- i - в моём случае переменная, Вы можете выбрать любую другую, в том числе поддерживаются и русские обозначения (например: For переменная=1 To 10 …)
- Cells(строка, столбец) – ячейка в которую хотим что-то записать или из которой хотим извлечь информацию, в нашем случае столбец мы указали константу (1 и 2), а строку сделали переменной (i+1).
- Range(“b1”) возвращает значение ячейки “B1”
А ещё, можно сразу дописать минимакрос по очистке диапазона от значений
Sub Очистка()
Range("A2:B11").ClearContents
End Sub
Комментарии 1