|
こんにちは。かみちゃん です。
>F2を基準日としてF4以下の日付を対比して30日以内なら黄色(更新時期であることを喚起する)、0以下なら赤色(期限超過であることを警告する)に色付けしたいと下記のVBAを実行しましたが、矢印部分で「インデックスが有効範囲ではありません」とのメッセージが表示されます。
本当に
Worksheets("免許証確認").Cells(i, 6).Interior.ColorIndex = 65535
でそのエラーメッセージなのでしょうか?
以下のようなコードを、「免許証確認」という名前のシートがあるブックを
アクティブにした状態で実行すると、
Sub test()
Dim i As Long
i = 1
Worksheets("免許証確認").Cells(i, 6).Interior.ColorIndex = 65535
End Sub
「Interior クラスの ColorIndex プロパティを設定できません」
というエラーメッセージになります。
その場合、65535 という値はどこから知り得たのですか?
>また、変数mydayに変数を代入するよう宣言していますが、この宣言はできなのでしょうか?(mydayでうまく実行できなかったので使用していませんが)
どのようにうまくいかなかったのでしょうか?
気になるのは、
myday = Range(Cells(i, 6)).Value
というコードでは、アクティブシートがどこになっているのか?
変数 i という値に代入されていない。
そもそも、
myday = Range("F" & i).Value
か
myday = Cells(i, 6).Value
としたいのではないでしょうか?
|
|