エクセル 『1』上がったら背景が変わるようにしたい

質問

エクセルのセルの背景の色を、「1」上がったらオレンジに、「1」下がったら緑にしたいのですが、そういった機能はありますか？
ある場合はどのようにすればいいでしょうか？

回答No.4

kkkkkm · ベストアンサー

マクロで対応します。
該当するシートのプロシージャに以下のコードを記載します。
対応するセルをA1:C10に指定してますので、実際の範囲に適宜変更してください。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewVal As Variant

If Application.Intersect(Target, Range("A1:C10")) Is Nothing Then
Exit Sub
End If
Application.EnableEvents = False
NewVal = Target.Value
Application.Undo
If NewVal = Target.Value + 1 Then
Target.Interior.Color = 49407
ElseIf NewVal = Target.Value - 1 Then
Target.Interior.Color = 5287936
End If
Target.Value = NewVal
Application.EnableEvents = True
End Sub

お礼

コードも教えてくださり、ありがとうございました。

回答No.3

TZ91

下記URLは参考になりますか?
https://www.newcom07.jp/EXCEL-database/blog/excel_coffee_break/2010/03/post-14.html

回答No.2

aiyo-

横からスミマセン
回答者の方が、何に対してと問われてますよね。

＞セルにもともと入っていた数字から1上がったらオレンジに、1下がったら緑にしたいです。
計算によるものですか？　直接手打ちした数字ですか？って事
あと、変わった後、逆に１上がったり下がったりしたら色はどうなるといいのでしょうかね？

補足

回答ありがとうございます。

手打ちによるものです。

変わった後も、1上がったらオレンジで、1下がったら緑にしたいです。

回答No.1

hiro_1116

何に対して１上がったり下がったりを判定したいのですか？
計算結果が表示されるセルの色を、計算結果が「直前に表示されていた値よりも」１上がったり・・・と言うことをおっしゃっているのでしょうか？
１未満動いたり、１より大きく動いたりすることもあって、ちょうど１だけ動いた時に検知したいのでしょうか？

補足

説明不足で申し訳ございません。

セルにもともと入っていた数字から1上がったらオレンジに、1下がったら緑にしたいです。