
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
Excel VBAで比較して数値があってなかったらセルの色を変換
Visual Basic(VBA)
-
更新前と更新後の差分をVBAを使って抜き出したい
Excel(エクセル)
-
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい
Excel(エクセル)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
文字列を比較し、相違するフォント色を変える
その他(Microsoft Office)
-
6
【VBA】2つのシートの値を比較して条件一致したら、同じ行の隣の値を別ブックへ転記したいです。 VB
Visual Basic(VBA)
-
7
VBA 列全体を別シートの列と比較し、同じ値がある行の、右端に値をコピーする方法について
Excel(エクセル)
-
8
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
9
エクセルマクロ 【空白セルを無視する方法を教えてください】
Excel(エクセル)
-
10
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
11
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
12
マクロボタンを押すと、ファイル名を“日付(年月日)_文字.xlsx”にして指定ファイルに保存したいの
Excel(エクセル)
-
13
【Excel VBA】マクロでExcel自体を終了させたい
Excel(エクセル)
-
14
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
15
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
16
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
17
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
18
別ブックをダイアログボックスで指定してそこにあるシートをコピーしたい
Excel(エクセル)
-
19
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
20
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
【VBA】シート上の複数のチェッ...
-
Excelで指定した日付から過去の...
-
任意フォルダから画像をすべて...
-
i=cells(Rows.Count, 1)とi=cel...
-
エクセルvbaで、別シートの最下...
-
Excel VBA、 別ブックの最終行...
-
Excel VBAで比較して数値があっ...
-
RC表示に変数を入れる
-
特定の文字を条件に行挿入とそ...
-
VBA ユーザーフォーム ボタンク...
-
ExcelのVBAで数字と文字列をマ...
-
【Excel】指定したセルの名前で...
-
Application.Matchで特定行の検索
-
VBA実行後に元のセルに戻りたい
-
エクセル 複数範囲の中の1セル...
-
VBAでセル同士を比較して色付け
-
エクセルvba:自己セルの情報取...
-
セル色なしの行一括削除
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
特定行の色を変えたい(FlexGrid)
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelで指定した日付から過去の...
-
エクセルvbaで、別シートの最下...
-
VBA実行後に元のセルに戻りたい
-
Application.Matchで特定行の検索
-
”戻り値”が変化したときに、マ...
-
VBAでセルをクリックする回...
-
任意フォルダから画像をすべて...
-
Excel VBAで、 ヘッダーへのセ...
-
TODAY()で設定したセルの日付...
-
【Excel VBA】指定行以降をクリ...
-
Excel vbaで特定の文字以外が入...
-
ExcelのVBAで数字と文字列をマ...
-
Excel VBA、 別ブックの最終行...
-
DataGridViewの各セル幅を自由...
-
VBA ユーザーフォーム ボタンク...
-
連続する複数のセル値がすべて0...
おすすめ情報