[[20171124111429]]　『（ガントチャート？）特定の期間に色をつけたい。』（ぶーぶー）　ページの最後に飛ぶ

『（ガントチャート？）特定の期間に色をつけたい。』（ぶーぶー）

ガントチャートのようなものを作りたいです。

年と月を入力すると、曜日、土日祝の色づけが自動で変わるようにカレンダーを作ってあります。
それを月ごとに縦に並べていくつもりです。
下記の6行で1セットです。

  　   Ａ  Ｂ　Ｃ　Ｄ　Ｅ　Ｆ Ｇ　Ｈ　Ｉ　…　AG
 1   2017  年  11  月
 2　　　　　　　　 1   2　 3   4　 5　 6  …　30 
 3                曜日
 4        46-48
 5        55-55
 6        55-54

　
データは別シートにあります。

 別シート　…　 Ｑ　  Ｒ  　Ｓ　
             1 4648  11/1  11/4
             2 4648  11/4  11/5
             3 5554  11/2  11/8
             4 5555  11/10 11/10
             5 4648  11/11 11/15

上記のデータを基にカレンダーのセルに色をつけたいです。
また、貸出日と返却日がかぶっている場合は、その日のセルを別の色にしたいです。　

自分なりに調べて試したのですが、なかなかうまくいきませんでしたのでこちらで質問させていただきました。
お知恵を貸していただけましたら助かります。
　

＜使用 Excel：Excel2013、使用 OS：unknown ＞

 ＞それを月ごとに縦に並べていくつもりです。

 １．最大、何箇月分ですか？

 ＞下記の6行で1セットです。

 ２．・・・と言うことは、検索は3種類のコードしかないって事ですね？

 ３．計算量がちょっと心配になるんですけど、
 　別シートのデータ量(行数)はどこ迄あるんですか？

（半平太） 2017/11/24(金) 19:35

半平太　様

閲覧ありがとうございます。

＞１．最大、何箇月分ですか？
12か月分です。

＞２．・・・と言うことは、検索は3種類のコードしかないって事ですね？
おっしゃるとおりです。

＞３．計算量がちょっと心配になるんですけど別シートのデータ量(行数)はどこ迄あるんですか？
まだ始めたばかりのデータなのでハッキリとお答えできないのですが、300行程度と予想しております。

（ぶーぶー） 2017/11/24(金) 19:57

半平太　様

注文が多く申し訳ないのですが、こちらのカレンダーはアイパッド版でも閲覧するため、ＶＢＡではなく関数でお願いいたします。
（ぶーぶー） 2017/11/24(金) 20:04

 D3セル =DATE($A$1,$C$1,D$2)

 AG3セルまでコピーして、セルの書式(表示形式)の種類ボックスに aaa と設定する

 D4セル =COUNTIFS(Sheet2!$Q$1:$Q$400,SUBSTITUTE($B4,"-",""),Sheet2!$R$1:$R$400,"<="&D$3,Sheet2!$S$1:$S$400,">="&D$3)+COUNTIFS(Sheet2!$Q$1:$Q$400,SUBSTITUTE($B4,"-",""),Sheet2!$R$1:$R$400,"="&D$3,Sheet2!$S$1:$S$400,"="&D$3)

 AG6迄コピー

 条件付き書式の設定
　最優先条件　：セルの値が1より大きい→貸出日と返却日がかぶっている時の色を設定
　第二優先条件：セルの値が1と等しい　→貸出期間中の色を設定

 ※セルに別の数式を入れる予定がある場合は、上記数式を条件付き書式の条件式に転用する。

 <Sheet1 結果図>
 行  __A__  __B__  __C__  _D_  _E_  _F_  _G_  _H_  _I_  _J_  _K_  _L_  _M_
  1  2017   年       11   月                                              
  2                       1    2    3    4    5    6    7    8    9   10
  3                曜日   水   木   金   土   日   月   火   水   木   金 
  4         46-48         1    1    1    2    1                         
  5         55-55                                                      2
  6         55-54              1    1    1    1    1    1    1

 <Sheet2 サンプル>
 行  __Q__  __R__  __S__
  1  4648   11/1   11/4 
  2  4648   11/4   11/5 
  3  5554   11/2   11/8 
  4  5555   11/10  11/10
  5  4648   11/11  11/15

（半平太） 2017/11/24(金) 21:12

半平田様

今すぐにでも試したいところですが、先程帰宅してしまいましたので
明日出勤しましたら1番に取り掛かろうと思います！

あとですね、私の説明不足で大変恐縮なのですが
＞貸出日と返却日がかぶっている場合は、その日のセルを別の色
これに関しては、お客様Aからの返却とお客様Bへの貸出が同日の場合に
注意を促すことを目的としていますので、１日で返ってくる場合は例外としたいのです。
可能であれば上記のことを区別したいのですが、難しいようであれば今のままで結構です。
どうぞよろしくお願いいたします！
（ぶーぶー） 2017/11/24(金) 22:15

 であれば、

 D4セル =COUNTIFS(Sheet2!$Q$1:$Q$400,SUBSTITUTE($B4,"-",""),Sheet2!$R$1:$R$400,"<="&D$3,Sheet2!$S$1:$S$400,">="&D$3)

 としてください。

（半平太） 2017/11/24(金) 22:25

半平太　様
　
　お返事遅くなりすみません。
　上記の式でできました！ありがとうございます！
　初心者なもので、何事も調べてからでないと前へ進めなくて…
　自分のやりたいことがなかなかヒットせず、どうにもならずこちらへ質問させていただきました。
　
　助けていただき、感謝いたします。

（ぶーぶー） 2017/11/25(土) 11:39

コメント返信：

[ 一覧(最新更新順) ]

[[20171124111429]] 『（ガントチャート？）特定の期間に色をつけたい。』（ぶーぶー） ページの最後に飛ぶ

[[20171124111429]]　『（ガントチャート？）特定の期間に色をつけたい。』（ぶーぶー）　ページの最後に飛ぶ