エクセル、今入っている数値と違う数値を入力すると赤文字

質問

現在、価格表を更新しています。

どこまで変更したか分かるように、「今入っている数値と違う数値を入力すると赤文字で表示」にしたいです。

「条件付」で条件を付けてみたが、1,000件以上あるので、出来れば範囲を決めて設定できる方法を探しています。

上手い方法があれば、教えて下さい。
よろしくお願いします。

回答No.1

papayuka · ベストアンサー

例えば、A1:C100が価格表として、価格表をコピーしてE1:G100に貼付けます。
その後 A1:C100を選択し、A1がアクティブな状態で、条件付き書式の

数式が　　=NOT(EXACT(A1,E1))

にして色を設定すれば A1:C100 の数字が変わると色が付きます。

お礼

ありがとうございます。

二つの列を比較して、違う場合、色付文字で返すのですね。
これなら、一つずつ設定せずに済み、楽に出来ます。

回答No.2

misatoanna

> 今入っている数値と違う数値を入力すると赤文字で表示

５と入力してあるところに２と入力すると赤くなっても、それが誤りで実は５の
ままでよかった場合、元の数字に変更するために入力し直すと、今度は２が５に
変わるので赤文字のままになりますね。
どこまで変更したか分かるようにということですが、かえって混乱しませんか？

その問題は残りますが、とりあえず次のようなマクロはいかがでしょうか。
シートタブの右クリックメニューから「コードの表示」を選択し、開かれる画面
に以下をコピペします。

Private Sub Worksheet_Change(ByVal Target As Range)
　Dim NewData, OldData
　If Target.Column <> 1 Then Exit Sub　　'Ａ列だけを対象にしています。
　Application.EnableEvents = False
　NewData = Target.Value
　Application.Undo
　OldData = Target.Value
　Target.Value = NewData
　If NewData <> OldData Then
　　Target.Font.ColorIndex = 3
　Else
　　Target.Font.ColorIndex = 0
　End If
　Target.Offset(1, 0).Select
　Application.EnableEvents = True
End Sub

５と入力してあるところに２と入力したが、それが誤りで実は５のままが正しか
った場合は、２と入力してしまった後に、５を２回入力し直すと赤字が解除され
ます。

お礼

ありがとうございます。

マクロはまったく分からないので、条件付き書式でやってみます。

マクロまで使いこなせればなー、って思いはあるんですがね(^_^)