Excelで選択したエリアを一行おきに選択し、色を設定します。
デフォルト環境で設定するのが面倒くさいので作成して見ました。
Sub SelectAlternateRowsWithinSelection()
Dim rng As Range
Dim rowRange As Range
Dim newSelection As Range
Dim rowIndex As Integer
' 選択範囲を取得
On Error Resume Next
Set rng = Selection
On Error GoTo 0
' 範囲が選択されていない場合、エラーを表示
If rng Is Nothing Then
MsgBox "セル範囲を選択してください。", _
vbExclamation, "エラー"
Exit Sub
End If
' 選択範囲の1行おきの行を取得
For rowIndex = 1 To rng.Rows.Count Step 2
Set rowRange = rng.Rows(rowIndex)
If newSelection Is Nothing Then
Set newSelection = rowRange
Else
Set newSelection = _
Union(newSelection, rowRange)
End If
Next rowIndex
' 選択を適用
If Not newSelection Is Nothing Then
newSelection.Select
End If
MsgBox "選択範囲内の1行おきの行を選択しました！", _
vbInformation, "完了"
End Sub
エリアを選択し・・・
実行すると1行おきに選択した状態になるので・・・
カラーパレットで任意の色を設定。
シンプルな動きの方が応用が利きますね。