_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ _/ _/ ソフト名：カレンダークラス アドイン (Ver1.70) _/ 種 別：フリーソフト _/ 開発環境：Windows10 & Excel2016, 2010SP2 〜 2000SP3, 97SR1 _/ 動作環境：Excel97以上(Excel95では動作しません） _/ 著作権者：角田 桂一 < addinbox@h4.dion.ne.jp > _/ < http://addinbox.sakura.ne.jp/index.htm > _/ < http://addinbox.sakura.ne.jp/Bpca_PasteCal.htm > _/ < 旧サイト http://www.h3.dion.ne.jp/~sakatsu/index.htm > _/ 免　責　：このマクロを使用したことで発生したいかなる損害に _/　　　　　　ついても、作者は一切責任を負わないものとします。 _/ 再配布　：本ドキュメント内に条件を記載してあります。 _/　転　載　：無断転載はご遠慮願います。 _/　履　歴　：2005/ 5/12　Ver1.00 _/ 2005/ 5/20 Ver1.10 _/ 2005/ 6/ 3 Ver1.11 _/ 2005/ 6/14 Ver1.20 _/ 2014/ 5/29 Ver1.30 [山の日] 対応のみ _/ 2018/ 4/29 Ver1.40 [天皇誕生日の変更] 対応のみ _/ 2018/ 6/26 Ver1.50 [体育の日 改名] [東京五輪による祝日移動(2020年)] 対応のみ _/ 2018/12/ 9 Ver1.60 [即位関連休日] 対応のみ _/ 2020/11/28 Ver1.70 [東京五輪による祝日移動(2021年)] 対応のみ _/ _/　その他　：Trend Micro ウィルスバスタークラウド にてウィルスチェックしてあります。 _/ _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ １．配布ファイルを解凍すると､下記のファイルに展開されます。 　　まず､適当なフォルダに配布ファイルを解凍して保存してください。 　　　ReadMe.txt ‥‥‥　このファイル 　　　ktClsPasteCal.xla ‥‥‥　Excel2000以上用アドイン 　　　ktClsPasteCal_Demo.xls ‥‥‥　　　　〃　　　　利用例 　　　ktClsPasteCal97.xla ‥‥‥　Excel97以上用アドイン 　　　ktClsPasteCal97_Demo.xls ‥‥‥　　　　〃　　　 利用例 Bpca_PasteCal.htm ‥‥‥　ヘルプドキュメント GifImg ‥‥‥　ヘルプドキュメントの画像フォルダ 　　ご利用の環境に応じて、ktClsPasteCal.xla または ktClsPasteCal97.xla を 　　アドインフォルダにコピーして下さい。アドインフォルダは、WinXP ならば 　　　　C:\Program Files\Microsoft Office\Office\Library 　　になります（ＯＳ/Excelバージョンによってパスは異なります）。 　　Excel97 環境のＰＣで扱う事がない場合（全てのＰＣがExcel2000以上）は 　　[ktClsPasteCalAddin.xla]を利用して下さい。 　　Excel97 環境のＰＣで扱う 又は Excel97/Excel2000以上の両方のＰＣで 　　扱うという場合には[ktClsPasteCal97.xla]の方を利用して下さい。 　　作者ＨＰにて英語版も公開しています。 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 ２．ktClsPasteCal_Demo.xls および ktClsPasteCal97_Demo.xls は、利用例を 　　収めたサンプルブックです。 　　利用例を試す場合は、サンプルブックを開いたら、先ずＶＢＥ画面を出して 　　[ツール→参照設定]ダイアログからアドインブックを参照設定して下さい。 ktClsPasteCal_Demo.xls ⇒ ktClsPasteCal.xla ktClsPasteCal97_Demo.xls ⇒ ktClsPasteCal97.xla 　　 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 ３．特徴 　【カレンダー クラス】 　　(1) Frame コントロールを用意するだけでカレンダーコントロール 　　　　が作れます。 (2) MonthView スタイルと DTPicker スタイルの２種類をサポート。 (3) 「日月→土」と「月→土日」の２種類の曜日並びをサポート。 (4) 日本語版では祝日は自動算出。 別途、休日リストを用意すれば、年末年始や創立記念日などを追加 できます。これらの日付は赤色で表示され[ControlTipText]で休日 名が表示されます(休日リストの作成ツールも用意してあります)。 (5) 日付入力操作は、マウス位置の強調表示による【ワンクリック入力】。 　【パレット クラス】 　　(1) Frame コントロールを用意するだけでパレットコントロールが 　　　　作れます。 (2) 入力操作は、マウス位置の強調表示による【ワンクリック入力】。 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 ４．ktClsPasteCal.xla / ktClsPasteCal97.xla の二次配布について ユーザーが作成した 「このカレンダークラスアドインを利用したブック/マクロ」 を第三者へ配布する際、その配布ファイル内に [ ktClsPasteCal.xla / ktClsPasteCal97.xla ] を含める事を、下記条件の下に許可します。 (1) 基本事項 (a) [ ktClsPasteCal.xla / ktClsPasteCal97.xla ] の内容を一切改変 しない事。 (b) ユーザーが作成したソフトに添付される「そのソフトの ReadMe 等」 の解説媒体に、以下の記述を掲載する事。 カレンダークラスアドイン [ ktClsPasteCal.xla および ktClsPasteCal97.xla ] は 角田 桂一 の著作物です。 [AddinBox] http://www.h3.dion.ne.jp/~sakatsu/ http://www.h3.dion.ne.jp/~sakatsu/Bpca_PasteCal.htm (2) 社内利用など、限られた範囲への配布の場合には、自由に配布して構いません。 (3) 個人が作成するフリーソフト/シェアソフトとしての配布の場合には、自由に 配布して構いません。 (4) 企業が作成する販売ソフトでの利用について (a) 企業が商用ソフト(シェアソフト含む)として不特定多数のユーザーに向け て販売するソフトウェアに、このカレンダークラスアドインを利用する事 は許可しません(企業が自前の技術で対処するのが筋と考えます)。 (b) 企業が特定のユーザーへ納入するソフトウェアに、このカレンダークラス アドインを利用する事を許可します。ただし、納入先ユーザーに対して、 このアドインが 「フリーで公開/配布されているものであり、 自社で開発したものではない」 という旨の説明をすると共に、納入ドキュメント内に (1-b) の記述を掲載 する事が条件です。 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 ５．利用方法（カレンダークラス） (1) ktClsPasteCal.xla または ktClsPasteCal97.xla への参照設定を行なう。 (2) ユーザー側でUserForm上にフレーム（Caption 無し）を用意する。 （カレンダーに背景色を付ける場合は、フレームの背景色を変更してください） (3) そのフレームに対して[ clsPasteCal / clsPasteCal97 ]クラスを適用する。 (4) Click イベント/Value プロパティ により日付を取得する。 【 MonthView スタイル 】 [ Width=108 , Height=105 ]のフレームを用意してください。 左側のスピンボタンで「年」、右側のスピンボタンで「月」が移動します。 マウス位置は強調表示され、クリックすると『Click イベント』が発生します。 選択日付（Value プロパティで取得できます）は右下に表示されます（年月を 移動すると選択日付はキャンセルされます）。 【 DTPicker スタイル 】 [ Width=108 , Height=20 ]のフレームを用意してください。 カレンダーをドロップダウンした場合には[ Height=125 ]になりますので、 フレームの下側に【 105 】の余裕が必要になります。その余裕部分に他の コントロールを配置しても構いません。カレンダーのドロップダウン時には、 それらのコントロールに覆い被さる形で表示されます。ドロップボタンのク リックでカレンダーの表示/非表示が切り換わります。日付をクリックすると、 カレンダーが畳まれて、テキストボックス部分に日付が表示されます（この 日付の表示形式は引数で変更できます）。尚、テキストボックス部分のフォ ントサイズは変更できません。 (注) DTPicker スタイルはコンパクトサイズなので、ついフォーム上に 沢山配置しがちになるかと思いますが、あまり多く配置するとフォ ーム表示の際のレスポンスが悪くなる可能性があります（１つに付 き４９個のコントロールを動的に作成していますので、例えばフォ ーム上に１０個配置すると、フォーム表示の度に４９０個のコント ロールが動的に作成される事になります。スペックの低いＰＣでは かなり反応が悪くなると思います）。そのような場合は、ポップ アップカレンダーフォームを作り、テキストボックスのダブルク リック等で呼び出す方法を採ってください。（ポップアップカレ ンダーフォームの作り方はデモブック内に用意してあるサンプル を参照してください）。 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 ６．利用方法（パレットクラス） (1) ktClsPasteCal.xla または ktClsPasteCal97.xla への参照設定を行なう。 (2) ユーザー側でUserForm上にフレーム（Caption 無し）を用意する。 (3) そのフレームに対して[ clsPalette / clsPalette97 ]クラスを適用する。 (4) Click イベントにより「色」を取得する。 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 ７．履　歴 ・ 2020/11/28 Ver1.70 「東京五輪による祝日移動(2021年)」改正の対応 ・ 2018/12/ 9 Ver1.60 「即位関連休日」改正の対応 ・ 2018/ 6/26 Ver1.50 「体育の日 改名」「東京五輪による祝日移動(2020年)」改正の対応 ・ 2018/ 4/29 Ver1.40 「天皇誕生日の変更」改正の対応 ・ 2014/ 5/29 Ver1.30 「山の日」改正の対応 　　　　配布ファイルの圧縮形式を LZH から ZIP に変更 ・ 2005/ 6/14 Ver1.20 [ValueIsNull]プロパティのバグが有ったので修正しました。 [SpinChange]イベントと[CalMonth]プロパティを追加しました。 　　　　デモブックに期間入力フォームのサンプルを追加しました。 ・ 2005/ 6/ 3 Ver1.11 日本語版/英語版の切り換えように利用している「条件付コンパイル」が Excel2002でアドインブックを直接開いた場合に正しく機能せず、エクセル が異常終了するケースがあったので「条件付コンパイル」を廃止しました。 アドイン機能の変更はありません。 ・ 2005/ 5/20 Ver1.10 「昭和の日」改正の対応 　　　　休日リスト作成ツールの提供 　　　　パレットクラスの提供 ・ 2005/ 5/12　Ver1.00 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜