No.1ベストアンサー
- 回答日時:
こんばんは。
サンプルです。
Sub Try()
Dim CheckRange As Range
Dim rng As Range
Dim cnt As Long
Set CheckRange = Range("A1:D50")
For Each rng In CheckRange
If rng.ColorIndex = 7 Then
cnt = cnt + 1
End If
Next
If cnt > 0 Then
MsgBox cnt & "ヶ所、日付が入力されていません。" , vbCritical
Exit Sub
End If
'ここに本処理を記入
End Sub
※インデントを見やすくする為に行頭に全角スペースを挿入しています。
この回答へのお礼
お礼日時:2013/03/16 23:33
有難うございます。苦労してたので大変勉強になり助かりました。ちなみにrng.ColorIndex の間にInterior.を入れたらエラーが出なくなりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) 条件に合った数値の合計を表示させたい関数と条件指定の方法 3 2023/05/13 16:07
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Excel(エクセル) EXCEL ActiveX コマンドボタンで実行する前にいったんmsgBoxで確認を求めたい 1 2022/07/06 19:41
- Excel(エクセル) 【マクロ】ボタンを押すごとに、A1セル、A2セル、A3セルに日付を入力 3 2023/01/25 00:12
- Excel(エクセル) エクセルの祝日に色が反映しない 4 2022/05/18 09:58
- Excel(エクセル) エクセルシートの合計の変動 5 2022/04/05 15:56
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
データが入力されている隣のセ...
-
VBAで丸をつけたいです。
-
Windowsで動くVBAがmacOSで動か...
-
エクセルVBA セル選択後にカレ...
-
Jtableの特定のセルの背景色や...
-
(VBA)アクティブセルを起点に...
-
セル色を5秒間隔で変える
-
エクセルテキストボックスの文...
-
Excel VBA ダブルクリックで入...
-
EXCELマクロ 保護されているシ...
-
Excel VBA セルを指定個数ラン...
-
エクセル: セルの枠を超えて表示
-
EXCELで特定のセルに表示...
-
【エクセル】関数で「A1が0でな...
-
エクセルでの計算式で求められ...
-
エクセルのセル内の余白の設定...
-
エクセルの表で1年間の曜日を...
-
エクセル:マクロ「Application...
-
IF関数で空欄("")の時、Null...
-
エクセルのセル内に全角数字を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELマクロ 保護されているシ...
-
VBAで、貼り付け禁止命令を実現...
-
エクセルテキストボックスの文...
-
データが入力されている隣のセ...
-
VBAで丸をつけたいです。
-
ダブルクリックすると現在の時...
-
メッセージを1度だけ表示したい。
-
エクセルVBA セル選択後にカレ...
-
ハイパーリンクされているファ...
-
Excelについて
-
エクセルVBA(実行時エラー438...
-
Windowsで動くVBAがmacOSで動か...
-
Jtableの特定のセルの背景色や...
-
(VBA)アクティブセルを起点に...
-
VBAについて教えてください。 E...
-
VBA セルに合わせて移動するが...
-
セル色を5秒間隔で変える
-
Excel VBA ダブルクリックで入...
-
Excelのセル内にある図形を削除...
-
Excel VBA セルを指定個数ラン...
おすすめ情報