Excelのチェックボタンをクリックしたときにシート1のセル"C4:G50"内に条件付書式により着色(ColorIndex =7)されたセルがあった場合、エラーメッセージ(" ヶ所 日付が入力されていません")を表示したいのですが?
下記のコードでセルに直接着色("C7")されたものは添付のようにメッセージが出たのですが条件付書式による着色がカウントしメッセージが出るようにしたいのですが、コード表示が解る方どうかよろしくお願いします。
尚、C列とG列のみ50行まで条件下で着色するよう同じ条件付書式が入っています。
Sub チェック()
Dim CheckRange As Range
Dim rng As Range
Dim cnt As Long
Set CheckRange = Range("C4:G50")
For Each rng In CheckRange
If rng.Interior.ColorIndex = 7 Then
cnt = cnt + 1
End If
Next
If cnt > 0 Then
MsgBox cnt & "ヶ所、日付が入力されていません。", vbCritical
Exit Sub
End If
Worksheets("sheet1").Range("D1") = "1"
End Sub
No.2
- 回答日時:
>条件付書式による着色がカウントし
方法が無いこともないですが、相当面倒です。セルをクリップボードにコピーし、html形式のデータを取り出し、色を表現する部分を取り出すなんてワザがあります。
元ネタはmougですが、既に消えています。
こちらに保管している方がいます。ご参考まで。
https://gist.github.com/honda0510/3088353
No.1ベストアンサー
- 回答日時:
>条件付書式により着色
残念ながら、条件付き書式で着色されたColorIndexは取得出来ません。
簡単な対応策は、色を判別するのではなく対象セルが条件を満たしているか
を判別する事です。条件が小さくて見えませんので勝手に条件を想像しますと
E列の入力があってC列の入力がない場合
同様にI列に入力があってG列に入力のないものをカウントします。
C4からC50とG4からG50をチェック対象にします。
Set CheckRange = Range("C4:C50,G4:G50")
For Each rng In CheckRange
'このrngにはC列G列が入ってきます。
'基準セルより右に2いったセルに入力があれば(CならばE,GならI)
IF rng.Offset(,2).Value <> "" Then
'対象セルが未入力なら
IF rng.Value = "" Then
cnt = cnt +1
End IF
End IF
End IF
条件が簡単であれば上記のような方法でもいいですが、
条件付き書式の条件を複数使っていると
難易度が格段に上がります。
"条件付き書式 色 カウント"で検索してみて下さい。
かなり面倒くさいです。
発想を変えて、作業列を使うなんてのはどうですか?
例えば R4 = IF(E4<>"",IF(C4="",1,0),0) E列の入力のみならR4を1にする
R列を見て、1が一つでもあれば処理を中止する
これだと簡単になりますね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:02
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:00
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 配列の勉強をしています。使用する変数の意味、検索条件の書き方が難しいです。 2 2022/09/15 14:06
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
Excelで指定した日付から過去の...
-
特定のセルが空白だったら、そ...
-
VBAでセルをクリックする回...
-
【Excel VBA】指定行以降をクリ...
-
VBからEXCELのセルの値を取得す...
-
i=cells(Rows.Count, 1)とi=cel...
-
特定の文字を条件に行挿入とそ...
-
TODAY()で設定したセルの日付...
-
【Excel】指定したセルの名前で...
-
Excel VBA、 別ブックの最終行...
-
VBAの計算で@が出てしまう件
-
DataGridViewのセル編集完了後...
-
Excelのプルダウンで2列分の情...
-
Excel ユーザーフォームをモー...
-
EXCELのVBA-フィルタ抽出後の...
-
VB6のDataGridコントロールが良...
-
”戻り値”が変化したときに、マ...
-
Sub 要具ライフ() ActiveSheet....
-
RC表示に変数を入れる
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel】指定したセルの名前で...
-
Excelで指定した日付から過去の...
-
特定の文字を条件に行挿入とそ...
-
Excel VBA、 別ブックの最終行...
-
EXCELで変数をペーストしたい
-
Excelのプルダウンで2列分の情...
-
Excel vbaで特定の文字以外が入...
-
TODAY()で設定したセルの日付...
-
screenupdatingが機能しなくて...
-
DataGridViewの各セル幅を自由...
-
Sub 要具ライフ() ActiveSheet....
-
【EXCEL VBA】Range("A:A").Fi...
-
VBAを使用した時間管理
-
VBAでセルをクリックする回...
-
セル色なしの行一括削除
-
エクセルVBAでコピーして順...
おすすめ情報