|
以下のようなマクロを行のセルが空白になっている所まで繰り返させたくて、ループを使って処理しようと思ったのですが、エラーが出てしまいます。
Sub 数値の変化を色分け()
With ActiveCell
If .Offset(1, 0).Value > .Value Then
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Font.ColorIndex = 3
ElseIf .Offset(1, 0).Value < .Value Then
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Font.ColorIndex = 5
Else
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Font.ColorIndex = ActiveCell.Offset(-1, 0).Font.ColorIndex
End If
End With
End Sub
上記のマクロを行のセルが空白になるまでループさせたくて作ったのが下記のものなのですが、どうしたら上手く動作するようになるのでしょうか?
Sub 列ごと数値の変化を色分け()
Do While Offset(1, 0).Value = ""
With ActiveCell
If .Offset(1, 0).Value > .Value Then
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Font.ColorIndex = 3
ElseIf .Offset(1, 0).Value < .Value Then
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Font.ColorIndex = 5
Else
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Font.ColorIndex = ActiveCell.Offset(-1, 0).Font.ColorIndex
End If
End With
Loop
End Sub
よろしくお願いします。
|
|