Как выделить ячейки, расположенные с определённым интервалом

Категория: Basic
2012-12-01 19:18:53
Как выделить ячейки, расположенные с определённым интервалом.
code: #vba
iFirstRow = 3: iLastRow = 300 
For iRow = iFirstRow To iLastRow Step 3 
Set iCellOne = Cells(iRow, 1) ' Столбец "A" 
If iRow = iFirstRow Then 
Set iCellTwo = Union(iCellOne, iCellOne) 
Else 
   Set iCellTwo = Union(iCellOne, iCellTwo) 
End If 
Next 
iCellTwo.Select
Управляющую инструкцию If Then Else можно заменить на функцию IIf :
code: #vba
iFirstRow = 3: iLastRow = 300 
 
For iRow = iFirstRow To iLastRow Step 3 
 
Set iCellOne = Cells(iRow, 1) ' Столбец "A" 
Set iCellTwo = Union(iCellOne, _ 
    IIf(iRow = iFirstRow, iCellOne, iCellTwo)) 
 
Next 
 
iCellTwo.Select
Иногда, можно обойтись без проверки, например :
code: #vba
iFirstRow = 3: iLastRow = 300 
 
Set iCells = Cells(iFirstRow, 1) ' Столбец "A" 

For iRow = iFirstRow To iLastRow Step 3 
    Set iCells = Union(iCells, Cells(iRow, 1)) 
Next 
 
iCells.Select 
 
Set iCells = Cells(3, 1) ' Столбец "A" 

For iRow = 6 To 300 Step 3 
    Set iCells = Union(iCells, Cells(iRow, 1)) 
Next 
 
iCells.Select
Выделение ячеек используется только для наглядности, в действительности же, реальная необходимость в активации и выделении, возникает весьма редко.
Поделиться:

Похожие статьи:

теги: vba, basic