1: Sub Полужирный()
2: Dim iCounter As Integer
3:
4: For iCounter = 3 To ThisWorkbook.Worksheets("Лист1"). _
Range("A1:C25").Rows.Count Step 2
5: ThisWorkbook.Worksheets("Лист1"). _
Range("A1:C25").Font.Bold = True
6: Next
7:
8: End Sub
Основным в этой процедуре является оператор цикла For... Next. Отметим, что переменная-счетчик этого цикла iCounter имеет начальное значение 3, а затем увеличивается с шагом 2, обеспечивая тем самым выделение полужирным начертанием каждой второй строки. На рис. 10.3 показан результат выполнения этой процедуры.
Рис. 10.3. Результат выполнения процедуры
Очевиден недостаток приведенной выше процедуры: здесь заранее указывается размер диапазона. На практике размер диапазона может часто изменяться, например в результате импорта данных из какой-либо базы данных или в результате внесения Новых либо удаления старых данных. Другими словами, в процедуре не должен быть указан конкретный размер диапазона. Код листинга 10.7 выполняет выбор диапазона без указания его размера и местоположения.
