No.3ベストアンサー
- 回答日時:
こんばんは
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
- 回答日時:
#3 誤タイプ
If IsNumeric(.Cells(i, "D")) And IsNumeric(.Cells(i, "D")) Then
正しくは
If IsNumeric(.Cells(i, "D")) And IsNumeric(.Cells(i, "E")) Then
です
No.2
- 回答日時:
Excelで条件付き書式を使って、E列の値がD列より小さい場合にセルの色を変更する方法は以下の通りです。
E列の最初のセル(E3)を選択します。
「条件付き書式」を選択します。
「新しいルール」を選択します。
「書式する条件の種類を選択してください」で「数式を使用する」を選択します。
「値が次の数式を満たす場合に書式を設定する」に以下の数式を入力します: =$E3<$D3
「書式」を選択します。
「塗りつぶし」のタブを選択します。
赤い色を選択します。
OKをクリックして閉じます。
E3を選択し、「条件付き書式をコピー」を選択します。
E列の全てのセルを選択し、条件付き書式をペーストします。
これで、A列を基準とした最終行まで、E列の値がD列より小さい場合にセルが赤くなります。
No.1
- 回答日時:
次の手順に従って実行することができます。
E3セルを選択し、[条件付き書式]をクリックします。
[新しいルール]をクリックし、[式を使用して書式設定する]を選択します。
[書式する値]のフィールドに、以下の式を入力します。
=AND($D3<>"",$E3<$D3)
[書式]をクリックして、赤い色を選択します。
OKをクリックし、E3セルが選択されたままで、[書式ペイン]の[適用範囲]を[A3:E3]から[A3:E最終行]に変更します。
これで、E列のセルの値がD列の値より小さい場合、E列のセルの値が赤く表示されます。また、A列を基準として、最終行まで自動的に適用されます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 列を指定して値を左から5文字にそろえる 1 2022/06/10 20:28
- Visual Basic(VBA) 範囲を指定して別シートにコピペ 2 2022/09/15 07:32
- Excel(エクセル) Excel2019 列と列(2列)の数値の重複を調べたい 1 2023/05/11 13:35
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Visual Basic(VBA) 先頭と末尾を指定して連続した数字を入力 1 2022/09/14 13:12
- Excel(エクセル) [オートフィルター]機能について 3 2023/02/04 14:32
- Visual Basic(VBA) 比較して等しくなかったらセルを赤くする 4 2022/07/19 20:11
- Excel(エクセル) Excel2007での条件付き書式について 6 2023/05/02 10:56
- Visual Basic(VBA) A列にある値をB列・C列にVBAで切り出し 3 2022/04/09 19:20
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
VBAを使用した時間管理
-
【Excel】指定したセルの名前で...
-
screenupdatingが機能しなくて...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
Excel vbaで特定の文字以外が入...
-
EXCELで変数をペーストしたい
-
エクセルVBAで結合セルの真ん中...
-
Excel VBA、 別ブックの最終行...
-
【Excel VBA】指定行以降をクリ...
-
TODAY()で設定したセルの日付...
-
Sub 要具ライフ() ActiveSheet....
-
クリックされたセルの位置を取...
-
セル色なしの行一括削除
-
VBAでセルをクリックする回...
-
ExcelVBAのマクロについて。
-
VBA コピーして次の値まで貼り...
-
javaのテーブルでセルごとに文...
-
【Excel VBA】空白の結合セルに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel】指定したセルの名前で...
-
Excelで指定した日付から過去の...
-
特定の文字を条件に行挿入とそ...
-
Excel VBA、 別ブックの最終行...
-
EXCELで変数をペーストしたい
-
Excelのプルダウンで2列分の情...
-
TODAY()で設定したセルの日付...
-
Excel vbaで特定の文字以外が入...
-
screenupdatingが機能しなくて...
-
DataGridViewの各セル幅を自由...
-
Sub 要具ライフ() ActiveSheet....
-
【EXCEL VBA】Range("A:A").Fi...
-
VBAを使用した時間管理
-
VBAでセルをクリックする回...
-
セル色なしの行一括削除
-
エクセルVBAでコピーして順...
おすすめ情報