|
社員の運転免許証の期限チェック表を作成しようとしています。
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
|
|