[[20170515172444]]　『開始日と終了日の間を塗りつぶすマクロ』（ぽんた）　ページの最後に飛ぶ

『開始日と終了日の間を塗りつぶすマクロ』（ぽんた）

A列：開始日
B列：終了日
C行：日付
があり、下記のように開始日、終了日含む間を指定の色で塗りつぶしをしたいと考えているのですが、どのようにマクロを書けばよいか教えていただけないでしょうか？

　　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ　　Ｇ　　Ｈ　　Ｉ　　Ｊ・・・
１　　　　　　 4/5 　 4/6 　4/7 　4/8　 4/9 4/10 　4/11
２
３　4/6 4/9 　　　　　■　　■　　■　　■
４ 4/7 4/10　　　　　　　　 ■　　■　　■　　■
５
６
７
・
・
・

条件付き書式でやらない理由として、セルの塗りつぶしの数をマクロで拾いたいのですが、条件付き書式でついた色だと拾えない為、マクロで塗りつぶしをしたいと
考えました。

Ａ及びＢが空白なら無視、Ａ及びＢに日付が入っていれば該当エリアを塗りつぶす。というマクロを作成したいです。

ご教授よろしくお願い致します。

＞条件付き書式でついた色だと拾えない為

そうでもないです。使用バージョンにもよりますが。
http://blog.goo.ne.jp/end-u/e/441a0e2a2fe03b1cdc12095cd72b940c

でも、色を数えなくても開始日から終了日までの日数をカウントするだけでは？

（マナ） 2017/05/15(月) 19:07

マナ様

ありがとうございます。

URLの内容に関しては試してみようと思います。
また、色を数えなくてよいとの意見でNetworkday関数で拾うことができました。

ただマクロでこれを実行する場合にどういったコードを書けばよいのかというのも
知っておきたいのですが、もし面倒でなければ教えていただければと思います。

ご確認よろしくお願い致します。
（ぽんた） 2017/05/15(月) 19:32

＞マクロでこれを実行する場合

これで、開始日と終了日が何列目かを調べることができます。

 Sub test()
    MsgBox Application.Match(Range("A3"), Rows(1), 0)
    MsgBox Application.Match(Range("B3"), Rows(1), 0)
 End Sub

（マナ） 2017/05/15(月) 20:20

コメント返信：