Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

14215 / 76807

←次へ　｜　前へ→


	【68091】セルの値により色付けする

bakadeus

- 11/1/31(月) 21:07 -


	引用なし

	パスワード

社員の運転免許証の期限チェック表を作成しようとしています。
F2に[=today()]関数により今日の日付を設定しています。
f4セル以下に各社員の免許証期限日が入力されています。
F2を基準日としてF4以下の日付を対比して30日以内なら黄色（更新時期であることを喚起する）、0以下なら赤色（期限超過であることを警告する）に色付けしたいと下記のVBAを実行しましたが、矢印部分で「インデックスが有効範囲ではありません」とのメッセージが表示されます。
どこを修正すればよいでしょうか？
また、変数mydayに変数を代入するよう宣言していますが、この宣言はできなのでしょうか？（mydayでうまく実行できなかったので使用していませんが）
ご教示お願いします。

Sub 期限チェック()

Dim 基準日 As Date
Dim myday As Date
Dim 日数 As Long

基準日 = Worksheets("免許証確認").Range("F2").Value
'myday = Range(Cells(i, 6)).Value
'日数 = myday - 基準日

i = 4

Do While Worksheets("免許証確認").Cells(i, 6) <> ""
　　If Worksheets("免許証確認").Cells(i, 6) - 基準日 >= 0 And Worksheets("免許証確認").Cells(i, 6) - 基準日 <= 30 Then
　　Worksheets("免許証確認").Cells(i, 6).Interior.ColorIndex = 65535 ←エラー
　　
　　ElseIf Worksheets("免許証確認").Cells(i, 6) - 基準日 < 0 Then
　　Worksheets("免許証確認").Cells(i, 6).Interior.ColorIndex = 15773696
　　
　　End If
　　
　　i = i + 1
　　
　　Loop

End Sub

1 hits

▼

【68091】セルの値により色付けする bakadeus 11/1/31(月) 21:07

≪