Excel VBA質問箱 IV

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

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


14142 / 76734 ←次へ | 前へ→

【68091】セルの値により色付けする
質問  bakadeus E-MAIL  - 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 質問
【68092】Re:セルの値により色付けする かみちゃん 11/1/31(月) 21:46 発言
【68093】Re:セルの値により色付けする 八家九僧陀 11/1/31(月) 22:57 お礼
【68094】Re:セルの値により色付けする 八家九僧陀 11/1/31(月) 23:00 発言

14142 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free