Excel VBA質問箱 IV

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

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


14141 / 76734 ←次へ | 前へ→

【68092】Re:セルの値により色付けする
発言  かみちゃん E-MAIL  - 11/1/31(月) 21:46 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>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
としたいのではないでしょうか?
0 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 発言

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