как узнать строки в Екселе
Я хочу покрасить выделенные строки на листе Экселя в 2 чередующихся цвета.
Не могу никак идентифицировать диапазон. Как указать, что есть начало, и что конец, чтобы потом указать, что именно в этом диапазоне перебирать номера рядов?
Все, что пока смог:
т.е. посчитал, сколько рядов находится в выделенном фрагменте.
А как, например, узнать адрес (или порядковый номер) первого ряда в выделенном диапазоне?
Не могу никак идентифицировать диапазон. Как указать, что есть начало, и что конец, чтобы потом указать, что именно в этом диапазоне перебирать номера рядов?
Все, что пока смог:
Код:
Set rr = Selection.Rows
т.е. посчитал, сколько рядов находится в выделенном фрагменте.
А как, например, узнать адрес (или порядковый номер) первого ряда в выделенном диапазоне?
Вы конечно же можете заглянуть сюда, но я в очередной раз не устану повторять, что в таких случаях вполне можно обойтись без определений номера строк, адреса диапазона и т.п.
Код:
Application.ScreenUpdating = False
Dim iRow As Range
For Each iRow In Selection.Rows
iRow.Interior.ColorIndex = IIf(iCount& Mod 2, 3, 1)
'iRow.Interior.Color = IIf(iCount& Mod 2, vbRed, vbBlack)
iCount& = iCount& + 1
Next
Application.ScreenUpdating = True
Dim iRow As Range
For Each iRow In Selection.Rows
iRow.Interior.ColorIndex = IIf(iCount& Mod 2, 3, 1)
'iRow.Interior.Color = IIf(iCount& Mod 2, vbRed, vbBlack)
iCount& = iCount& + 1
Next
Application.ScreenUpdating = True
Спасибо. Про работу без непосредственной адресации понял, но пока не удается никак ее освоить :o (тем более в таком "хитром" предложенном варианте)