| |
こんにちは。かみちゃん です。
>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
としたいのではないでしょうか？
|
|
かみちゃん
- 11/1/31(月) 21:46 -
