エクセル -> VBA
エクセルVBA
セル操作
現在のセル位置を返す
ActiveCell.Row 使用例) 1行目から現在のセル位置行迄の、1〜10カラム目の色を変更する。 sub セル色変更() For i = 1 To ActiveCell.Row Range(Cells(i,1),cells(i,10)).select With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid End With Next i end sub