|
かみちゃん、ありがとうございます。
どうにかここまで出来たのですが、一部上手く動作しない部分があるので教えて下さい。
かみちゃんが教えてくれたマクロをいじって作ったものは下記の通りです。
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.Font.ColorIndex
End If
End With
End Sub
Elseの部分で、アクティブセルとオフセットで移動した先のセルの数値に増減が無かった場合、アクティブセルと同色にする様に指定したいのですが、こうすると文字色は黒になってしまいます。
アクティブセルの文字色が赤だった場合は、そのまま赤に、
アクティブセルの文字色が青だった場合は、そのまま青に、
そのように指定したい場合は、
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Font.ColorIndex = ActiveCell.Font.ColorIndex
ではまずいのでしょうか?
よろしくお願いします。
|
|