_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
_/
_/ カレンダーマーク描画関数[ktCalShape] サンプルデモアニメ の式の解説
_/
_/  http://addinbox.sakura.ne.jp/GifImg/GifHelpFunc/CalShape_Demo.gif
_/
_/     CopyRight(C) 2004 Allrights Reserved.
_/       AddinBox( http://addinbox.sakura.ne.jp/ )
_/
_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

 =ktCalShape(B8,1,IF(B10,3,IF(B9=6,5,3)),IF(B10,0.6,1),AND(B11,OR(B10,(B9>=6))))

 ------------------------------------------------------------------------------
【 構文 】ktCalShape(表示値, [種類], [色], [透過], [可視] )

 [表示値] この内容を関数の値として『そのまま』返します

 [種類]   0:消去, 
          1:円,   2:上三角, 3:下三角, 4:四角,      5:菱形, 
          6:星形, 7:十字,   8:六角形, 9:ハート形, 10:二重丸
          省略時の既定値は[1:円]

 [色]     数値(1-56):セル用のColorIndex番号
　　　　　　または 文字列("Hbbggrr"):16進でRGB直指定
          省略時の既定値は[赤: "H0000FF"]

 [透過]   FALSE or 0 : 塗り潰し, 
          TRUE or 1  : 枠線のみ, 
          他         : 0.1(濃)〜0.9(薄)で半透明
          省略時の既定値は[TRUE:枠線のみ]

 [可視]   TRUE  : Shape 図形を表示, 
          FALSE : 非表示(図形そのものは描画されています)
          省略時の既定値は[TRUE:表示]
            ※ [描画←→削除]ではレスポンスが悪いので、図形は残したままで
               [表示←→非表示]で対応する方が効率が良い

 ※ 種類/色/透過/可視 の何れかがエラー値(#N/A 等)の場合は【非表示】になります。
　　これにより、日付などをキーに一覧表から図形属性を検索して引数にする場合、
　　一端、MATCH関数などで検索エラー有無のネストを組む必要がありません。

 ----------------------------------------------------------------------------
 ktCalShape 記載例(下記は B7 セルの例)

 =ktCalShape(
   B8,                         [表示値] ８行目のシリアル値を[B7]の値とする(表示形式 "d")

   1,                          [種類]   円( 1 ) 固定

   IF(B10,3,IF(B9=6,5,3)),     [色]  祝日(B10=TRUE)　  → 赤(3)
                                     土曜(B9=6)　　　  → 青(5)
                                     他(日曜 & 月〜金) → 赤(3)
                                     ( 月〜金 → 第５引数[可視]で非表示指定 )

   IF(B10, 0.6, 1),            [透過] 祝日(B10=TRUE) → 半透明(濃度[0.6])
                                      他　　　　　　 → 枠線のみ(1:TRUE)

   AND(B11,OR(B10,(B9>=6)))    [可視] 当月内(B11=TRUE)のセルであり、
                                      祝日(B10=TRUE)または土日(B9=6/7)の場合のみ表示(TRUE)
   )


<<< カレンダー　レイアウト >>>

   B5 セル   … 基準日付( 表示する月の１日日付を設定する, 表示形式 "yyyy年m月" )

   7/14行目  … カレンダー ( ktCalShape 関数を設定するセル )

   --- 以下の行は作成後は非表示にする ---
   8//15行目 … シリアル値
                B8 セル  … B5 固定
                B9 セル  … B8+1 〜 P8 セル  … O8+1
                B15 セル … P8+1 〜 P15 セル … O15+1

   9/16行目  … 曜日値 [=WEEKDAY(B8,2) ] 月(1)〜土(6),日(7)

   10/17行目 … 祝日判定式 ( TRUE : 祝日 , FALSE : 祝日以外 )

　 11/18行目 … 暦枠内の日付表示要否（月末処理用, TRUE:表示 , FALSE:非表示）
　　　　　　　　１〜２８日 …  TRUE 固定、
                ２９日     … [ =MONTH($B$5)=MONTH(O15) ]
                ３０日     … [ =MONTH($B$5)=MONTH(P15) ]
                ３１日     … [ =MONTH($B$5)=MONTH(Q15) ]

 ------------------------------------------------------------------------------