こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセル2007です。セルの塗りつぶしを自動に実行するVBAについて、

エクセル2007です。セルの塗りつぶしを自動に実行するVBAについて教えてください。システム日付でVBAを使用したいのですが横軸に日付(2010/1/1~2015/12/31)、縦軸に時間(0~24まで)があるシートです。日付と時間がマッチしたところのセルを緑色に塗りつぶしたいと思います(スケジュール表を作成中です)。VBA初心者ですが、記述等教えていただきたいと思います。よろしくお願いします。

投稿日時 - 2010-01-18 19:42:58

QNo.5603367

困ってます

質問者が選んだベストアンサー

こんにちは。

日付と時刻が入力されているなら条件付書式で設定した方が簡単だと思いますが、
どうしてVBAを使用したいのですか?

例えば、B2セルに入る式なら=AND(TODAY()=B$1,HOUR(NOW())=$A2)
のように1行目の日付が今日の日付で、かつ、A列の時刻が今の時刻なら
塗りつぶしの色を緑色にする、と設定してあげればいいのではないでしょうか。
これを他のセルにも書式コピーしてあげればいいと思います。

> VBA初心者ですが、記述等教えて…
コードの作成依頼は禁止されているようなので、
記録したコードの修正は、お手伝いできると思います。
マクロの自動記録はできますよね。

例えば、
> 日付と時間がマッチしたところの…
は、日付を検索して得た列と時間を検索して得た行の共通エリアは、
Intersectメソッドで取得することができますから、
日付を検索する。
時間を検索する。
緑色に塗りつぶす。
を記録してコードを組み合わせていけばいいと思います。
でも、塗りつぶしっぱなしでいいのですか?

投稿日時 - 2010-01-19 03:07:30

お礼

ありがとうございました。条件付き書式がらみで作成したいと思います。

投稿日時 - 2010-01-19 14:16:24

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問