www.ПЕРВЫЕ ШАГИ.ru :: Шаг 66 - Движение по диапазону

Выделив диапазон может возникнуть задача пройтись по этому диапазону с целью, например, покраски значений определенного диапазона. Смотрим:

Sub FullShach()
	For Each c In Range(addressdiap)
		If c.Value > yr1 Then
			c.Select
			With Selection.Interior
				.ColorIndex = 6
				.Pattern = xlSolid
			End With
			Selection.Font.ColorIndex = yrcolor1
			If c.Value > yr2 Then
				c.Select
				Selection.Font.ColorIndex = yrcolor2
				If c.Value > yr3 Then
					c.Select
					Selection.Font.ColorIndex = yrcolor3
				End If
			End If
		End If
	Next c
End Sub

Основа этой функции цикл For Each c In Range(addressdiap), который будет перебирать ячейки в диапазоне и возвращать каждую ячейку в переменную цикла c. Для того, чтобы можно было произвести работу с этой ячейкой ее надо выделить c.Select.