VBAでセル同士を比較して色付け

D2以降とE2以降に数字が入力してあります。
D列に比べ（D3とE3、D7とE7、、）E列の値が小さい場合、E列のセルの値を赤くしたいです。
これをA列を基準とした最終行まで行いたいです。

お詳しい方宜しくお願い致します。

No.3 ベストアンサー 回答者： Qchan1962 回答日時： 2023/03/07 00:10

こんばんは

VBAコードと言う事でしょうか、ご質問者様なら初歩的なコードの組み合わせで出来そうなので組めそうに思いますが

実行トリガーはどうしましょうか、シートの計算が行われた時とか？・・
重くなってしまいますね

条件（値が数値でない場合の処理、等しい又は大きかった場合の処理）、
実行トリガーが　不足していますが　サンプルなので実行部分だけ
（一例です）

Dim i As Long
Dim lastRow As Long
With ActiveSheet
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To lastRow
If IsNumeric(.Cells(i, "D")) And IsNumeric(.Cells(i, "D")) Then
If .Cells(i, "D") > .Cells(i, "E") Then '条件
.Cells(i, "E").Font.ColorIndex = 3 '処理
Else
'等しい又は大きい処理
.Cells(i, "E").Font.ColorIndex = xlAutomatic
End If
Else
'数字でない場合の処理
End If
Next
End With

No.4 回答者： Qchan1962 回答日時： 2023/03/07 00:14

＃３　誤タイプ

If IsNumeric(.Cells(i, "D")) And IsNumeric(.Cells(i, "D")) Then
正しくは
If IsNumeric(.Cells(i, "D")) And IsNumeric(.Cells(i, "E")) Then
です

No.2 回答者： kantansi 回答日時： 2023/03/06 20:50

Excelで条件付き書式を使って、E列の値がD列より小さい場合にセルの色を変更する方法は以下の通りです。

E列の最初のセル（E3）を選択します。
「条件付き書式」を選択します。
「新しいルール」を選択します。
「書式する条件の種類を選択してください」で「数式を使用する」を選択します。
「値が次の数式を満たす場合に書式を設定する」に以下の数式を入力します: =$E3<$D3
「書式」を選択します。
「塗りつぶし」のタブを選択します。
赤い色を選択します。
OKをクリックして閉じます。
E3を選択し、「条件付き書式をコピー」を選択します。
E列の全てのセルを選択し、条件付き書式をペーストします。
これで、A列を基準とした最終行まで、E列の値がD列より小さい場合にセルが赤くなります。

No.1 回答者： 河内のおやじ 回答日時： 2023/03/06 20:00

次の手順に従って実行することができます。

E3セルを選択し、[条件付き書式]をクリックします。
[新しいルール]をクリックし、[式を使用して書式設定する]を選択します。
[書式する値]のフィールドに、以下の式を入力します。
=AND($D3<>"",$E3<$D3)

[書式]をクリックして、赤い色を選択します。
OKをクリックし、E3セルが選択されたままで、[書式ペイン]の[適用範囲]を[A3:E3]から[A3:E最終行]に変更します。
これで、E列のセルの値がD列の値より小さい場合、E列のセルの値が赤く表示されます。また、A列を基準として、最終行まで自動的に適用されます。