
【やりたい事】
D1-D3、H1-H3の空白にも、赤色の塗りつぶしがされなようにしたいです
以下コードを実行すると、空白セルにも赤色になってしまいます
Exactの結果の、FALSEだけを赤色にしたいです
ご存じの方、コードやアドバイスのご教授お願いします
【条件】
Exact関数は、C1-C3、G1-G3、K1-K3に既に設定済み
FALSE【間違っている】という文字列に対して赤色に塗りつぶしされる、コードを記述
【コード】
Sub sample()
Dim lastrow As Long
lastrow = Cells(Rows.Count, "a").End(xlUp).Row
Dim fc As Object
'既存の条件付き書式があれば削除
Range("C1:k" & lastrow).FormatConditions.Delete
'条件を設定して、オブジェクトに格納
Set fc = Range("C1:k" & lastrow).FormatConditions.Add(Type:=xlExpression, Formula1:="=c1=FALSE")
'条件成立で、背景色を「赤色」
fc.Interior.Color = vbRed
End Sub


- 画像を添付する (ファイルサイズ:10MB以内、ファイル形式:JPG/GIF/PNG)
- 今の自分の気分スタンプを選ぼう!
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
No1です。
Formula1の設定内容ですが、
=c1=FALSE
はC1セルがFALSEの場合、判定結果は真となり赤くなります。
ここでC1セルは、条件付き書式のセル範囲の最初のセルを記入します。
従って、D1セルにもこの内容が適用されます。
D1セルの場合は
=d1=FALSE
で適用されます。
ここで=演算子を使うと、D1セルの内容が空白の場合も、FALSEであると解釈してしまうようです。
従って、判定結果が真となり、赤くなります。
これではまずいので、
セルの内容が文字列として"FALSE"となっていた場合にのみ、赤くなるようにします。
=EXACT(C1,""FALSE"")とかくと、
C1の内容が文字列としてFALSEなら、判定結果は真となり、赤くなります。
C1の内容が文字列としてFALSEでないなら、赤くなりません。
No.1
- 回答日時:
Set fc = Range("C1:k" & lastrow).FormatConditions.Add(Type:=xlExpression, Formula1:="=c1=FALSE")
を
Set fc = Range("C1:k" & lastrow).FormatConditions.Add(Type:=xlExpression, Formula1:="=EXACT(C1,""FALSE"")")
に変えてください。
ありがとうございます。治りました。
ただ、赤く塗りつぶすセルを満たす数式は
以下となるのが、なかなか理解できません
C1とFALSEを比較する??みたいな意味に取れてしまいます
ヒント等教えて頂けると幸いです
"=EXACT(C1,""FALSE"")"
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】条件付き書式設定をマクロ化するには? 3 2025/03/13 07:53
- Excel(エクセル) 【マクロ】Formulaプロパティにて、3行全てに、数式を入れるためには? 2 2025/02/23 14:23
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Excel(エクセル) 【マクロ】上のデータに下のデータを、結合する 3 2025/03/11 12:12
- Excel(エクセル) エクセル 値をコピペした時に、条件付き書式で塗られた背景色もペーストさせる 2 2023/04/05 17:21
- Visual Basic(VBA) ExcelVBAコードについて 5 2023/10/28 16:54
- Excel(エクセル) セルに日付【任意】が入ったら、セルが青色に代える為には 3 2023/10/02 23:30
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) vbaで条件付き書式を設定したときの適用範囲について 1 2023/07/17 23:14
- Visual Basic(VBA) VBAの間違い教えて下さい 5 2024/08/03 21:35
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・昔のあなたへのアドバイス
- ・字面がカッコいい英単語
- ・許せない心理テスト
- ・歩いた自慢大会
- ・「I love you」 をかっこよく翻訳してみてください
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・はじめての旅行はどこに行きましたか?
- ・準・究極の選択
- ・この人頭いいなと思ったエピソード
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・【お題】甲子園での思い出の残し方
- ・【お題】動物のキャッチフレーズ
- ・人生で一番思い出に残ってる靴
- ・これ何て呼びますか Part2
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・あなたが好きな本屋さんを教えてください
- ・かっこよく答えてください!!
- ・一回も披露したことのない豆知識
- ・ショボ短歌会
- ・いちばん失敗した人決定戦
- ・性格悪い人が優勝
- ・最速怪談選手権
- ・限定しりとり
- ・性格いい人が優勝
- ・これ何て呼びますか
- ・チョコミントアイス
- ・単二電池
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・泣きながら食べたご飯の思い出
- ・一番好きなみそ汁の具材は?
- ・人生で一番お金がなかったとき
- ・カラオケの鉄板ソング
- ・自分用のお土産
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの難問。「コピペする...
-
至急お願いします!エクセルの...
-
Excelの数式?について質問です...
-
重複しない値を抽出したい
-
エクセルの数式について教えて...
-
空白のはずがSUBTOTAL関数でカ...
-
Excelファイルを開くと私だけVA...
-
【マクロ 画像あり】セル範囲の...
-
【マクロ】条件付き書式設定を...
-
【マクロ 画像あり】Exact関数...
-
エクセルで教えてください。 例...
-
【オートフィルター】3つのシ...
-
VBA_日時のソート
-
ミリ秒を時間へ変更するには? ...
-
テーブルの合計、エラーをはぶ...
-
【マクロ】上のデータに下のデ...
-
2枚のエクセル表で数字をマッチ...
-
エクセルで、一部のセルだけ固...
-
UNIQUE関数の代用
-
Excelのチェックボックスについ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの設定、下へスクロー...
-
別のシートの指定列の最終行を...
-
【マクロ】シート追加時に同じ...
-
Excelファイルを開くと私だけVA...
-
Excelの関数を教えて下さい。
-
マクロを実行すると、セル範囲...
-
エクセルの設定、特定の列以降...
-
Excelの条件付書式について教え...
-
Excelで作成した出欠表から日付...
-
Excelでの文字入力について
-
Excel 日付の表示が直せません...
-
Excel関数の解決方法
-
システムファイルについて
-
自動的に日付入力 応用
-
UNIQUE関数の代用
-
エクセル内に読み込んが画像の...
-
勤務外時間を出す表が作りたい
-
Excel 偶数月の15日(土日祝...
-
【マクロ】Call関数で呼び出し...
-
【マクロ】1回目の実行後、2...
おすすめ情報