_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ _/ _/ ソフト名：ktClassAddin (Ver3.60) _/ 種 別：フリーソフト _/ 開発環境：Windows10 & _/ Excel2016, 2010SP1, 2007SP2, 2002SP3, 2000SP3 _/ 動作環境：Excel2000以上(Excel97では動作しません） [x64]動作可 _/ 著作権者：角田 桂一 < addinbox@h4.dion.ne.jp > _/　　　　　　　　　　　< http://addinbox.sakura.ne.jp/index.htm > _/　　　　　　　　　　　< 旧サイト http://www.h3.dion.ne.jp/~sakatsu/index.htm > _/ 免　責　：このマクロを使用したことで発生したいかなる損害に _/　　　　　　ついても、作者は一切責任を負わないものとします。 _/ 再配布　：内容を改変しないという条件で､再配布は自由です。 _/　転　載　：無断転載はご遠慮願います。 _/　履　歴　：2005/ 3/ 8　Ver1.00 _/ 2005/ 4/ 4 Ver2.00 日本地図地図フォームを追加 _/ 2006/ 2/ 3 Ver2.01 アドイン読み込み時にエラーになるのを修正 _/ 2011/ 4/15 Ver2.10 各クラスモジュールの最新版で再構築 _/ 2011/ 9/27 Ver2.20 各クラスモジュールの最新版で再構築([x64]対応版) _/ 2014/ 7/22 Ver2.30 各クラスモジュールの最新版で再構築([x64]対応版) _/ 2014/ 8/11 Ver3.00 各クラスモジュールの最新版で再構築([x64]対応版) _/ フォーカスクラス および Excel97版の組み込みを廃止 _/ 2016/10/11 Ver3.10 各クラスモジュールの最新版で再構築([x64]対応版) _/ 2016/10/13 Ver3.11 clsBpca(V3.00⇒3.10)の不具合修正で再構築([x64]対応版) _/ 2018/ 4/29 Ver3.20 各クラスモジュールの最新版で再構築([x64]対応版) _/ 2018/ 6/26 Ver3.30 各クラスモジュールの最新版で再構築([x64]対応版) _/ 2018/12/10 Ver3.40 各クラスモジュールの最新版で再構築([x64]対応版) _/ 2020/ 9/ 1 Ver3.50 各クラスモジュールの最新版で再構築([x64]対応版) _/ 2020/11/28 Ver3.60 各クラスモジュールの最新版で再構築([x64]対応版) _/ _/　その他　：Trend Micro ウィルスバスタークラウド にてウィルスチェックしてあります。 _/ _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ １．配布ファイルを解凍すると､下記のファイルに展開されます。 　　まず､適当なフォルダに配布ファイルを解凍して保存してください。 　　　ReadMe.txt　　　　　　　 ‥‥‥　このファイル 　　　ktClassAddin.xla　　　　 ‥‥‥　クラスモジュールのアドイン 　　　ktClassAddin_Demo.xls　　‥‥‥　　　　〃　　　　利用例 　　　※配布ファイルは zip 形式ですので､解凍が必要です。 　　ご利用の環境に応じて、ktClassAddin.xla をアドインフォルダにコピー 　　して下さい（OS/Excelバージョンによってパスは異なります。巻末「７」参照）。 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 ２．ktClassAddin.xla には 　　　(1) Bpca 汎用 クラス Ver4.1 clsBpca 　　　(2) トグルラベル クラス Ver4.1 clsBpcaTglLbl 　　　(3) ラベル点滅 クラス Ver1.2 clsBlinkLabel 　　　(4) DTPicker クラス Ver3.3 clsDTPickerOnCombo3 　　　(5) MonthView クラス Ver1.2 clsMonthViewOnLabel 　　　　　（上記のバージョンは各クラスの個別バージョンです） 　　という６つのクラスモジュールと 　　　(7) 日本地図フォーム　　　ktJapanMap 　　という１つのフォーム表示サブルーチンが収録されています。 　　なお、収録している全てのクラスは [x64]環境でも動作可能です。 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 ３．ktClassAddin_Demo.xls は、利用例を収めたサンプルブックです。 　　利用例を試す場合は、サンプルブックを開いたら、先ずＶＢＥ画面を出して 　　[ツール→参照設定]ダイアログからアドインブックを参照設定して下さい。 ktClassAddin_Demo.xls ⇒ 参照先：ktClassAddin.xla 　　　 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 ４．各クラスモジュールの解説/利用方法については下記のページを参照して下さい。 　　　(1) Bpca 汎用 クラス 　　　　　　http://addinbox.sakura.ne.jp/Bpca_Common.htm 　　　(2) トグルラベル クラス 　　　　　　http://addinbox.sakura.ne.jp/Excel_Tips10.htm 　　　(3) ラベル点滅 クラス 　　　　　　http://addinbox.sakura.ne.jp/Excel_Tips09.htm 　　　(4) DTPicker クラス 　　　　　　http://addinbox.sakura.ne.jp/Excel_Tips06_3B.htm 　　　(5) MonthView クラス 　　　　　　http://addinbox.sakura.ne.jp/Excel_Tips06_5.htm 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 ５．上記のページに用意してある個々のクラスモジュールとは、アドイン化に 　　際して一部の仕様を変更してあります。 　　　(a) アドインを参照設定するだけで上記のクラスモジュールを利用でき 　　　　　ます。従来のように利用するブックごとに、個々のクラスモジュー 　　　　　ルをインポートするような手間は必要ありません。 　　　(b) クラスのインスタンス生成では【 New キーワードを使いません】。 　　　　　代わりにアドインで用意している[Create 〜 ]関数を使って行ないます。 　　　　　（オブジェクト定義の[As 句]でも、New は指定できません） 　　　　　　Private WithEvents WeekBtn As clsBpca 　　　　　　Private Sub UserForm_Initialize( ) 　　　　　　　Set WeekBtn = New clsBpca　　‥‥‥　× 　　　　　　　　　　　　　　　↓ 　　　　　　　Set WeekBtn = CreateBpca( )　‥‥‥　○ 　　　　　[Create 〜]関数は各クラスごとに１つずつ用意してあります。 　　・Bpca 汎用 クラス　　 CreateBpca() 　　・フォーカス クラス　　CreateBpcaFocus() 　　・トグルラベル クラス　CreateBpcaTglLbl() 　　・ラベル点滅 クラス　　CreateBlinkLabelCls() 　　・DTPicker クラス　　　CreateDTPickerCls() 　　・MonthView クラス　　 CreateMonthViewCls() 　　　(c) Excel2000以上用「Bpca 汎用 クラス(clsBpca )」 　　　　　[Rgst ]メソッドの『Event』引数の属性を列挙型に変更しました。 　　　　　要素名は、BPCA2_Change , BPCA2_Click といように[２]を付加した名前に 　　　　　なっています。これにより、自動メンバ表示が利用できます。 　　　(d) Bpca 汎用クラス/トグルラベルクラス の[Item]プロパティを【既定プロパティ】 　　　　　として定義しました。これによって、Itemプロパティについてのみ 　　　　　　WeekBtn.Item( Index ).BackColor　⇒　WeekBtn( Index ).BackColor 　　　　　という風に省略記述できるようになります（よりＶＢに近づきました）。 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 ６．都道府県 選択ツール「日本地図フォーム(ktJapanMap)」について 　　これについては、他のクラスとは異なり【サブルーチン】としての提供です。 　　（内部で clsBpca/clsBpca97 を利用しています） 　【構文】 　　Call ktJapanMap ( 都道府県 ，都道府県名 , [背景色] ) 　　都道府県　　‥‥　Integer 型(ByRef) 　　都道府県名　‥‥　String 型(ByRef) 　　背景色　　　‥‥　Long 型(省略可、省略時：vbButtonFace ) 　【パラメータ内容】 　　都道府県　　‥‥　呼び元で変数定義が必要です。 　　　　　　　　　　　選択した都道府県のコード（１〜４７）が返ります。 　　　　　　　　　　　キャンセルした場合はゼロ。 　　都道府県名　‥‥　呼び元で変数定義が必要です。 　　　　　　　　　　　選択した都道府県の名称が返ります。 　　　　　　　　　　　キャンセルした場合は空文字。 　　背景色　　　‥‥　地図フォームの背景色を任意に変更できます。 　　　　　　　　　　　１６進数やカラー定数で背景色を指定して下さい。 　　　　　　　　　　　省略した場合の既定色は[vbButtonFace]です。 【解説】 　　都道府県を入力させるケースで、コードや名称を手入力/コンボボックス等 　　で行なう代わりに、地図フォームからマウスで選択させる事ができます。 　　サブルーチン[ktJapanMap]を Call するだけで、地図フォームがポップアッ 　　プし、マウスに合わせてマウス位置の都道府県が強調表示されますので、 　　そのままクリックすれば、その選択した都道府県のコード及び名称が引数 　　で受け取れます。 【使用例】 Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim int都道府県 As Integer Dim str都道府県名 As String Call ktJapanMap(int都道府県, str都道府県名, &HFFFFF0) If (int都道府県 <> 0) Then TextBox1.Value = str都道府県名 End If Cancel = True 'DblClick動作解除 End Sub 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 ７．アドインフォルダ 「アドインフォルダ」 は２つあります。どちらかのフォルダにアドインブックを 保存すると『 アドイン 登録ダイアログ 』の一覧に載ります。 << システムアドインフォルダ >> Excel.exe の直下に位置し、エクセルの「分析ツールアドイン」がインストール されているフォルダです。下記のマクロでパスを確認できます。 MsgBox Application.LibraryPath WindowsVista ＆ 7 では、UAC(ユーザーアカウント制御)の管理下にあるフォルダ ですので、保存の際には管理者ユーザーで UAC を解除した上で行なう必要があります。 [ ユーザー アカウント制御とは ] http://windows.microsoft.com/ja-JP/windows7/What-is-User-Account-Control OS で共通の場所ですが、マルチインストールの場合、Excel のバージョンごとに フォルダが分かれます。 -- Excel 2007 の 例 -- C:\Program Files\Microsoft Office\Office12\Library -- Excel 2010 の 例 -- C:\Program Files\Microsoft Office\Office14\Library セル上で利用できる「シート関数」を提供しているアドインでは、このフォルダに 保存する必要があります。 << ユーザーアドインフォルダ >> 保存ダイアログでファイルの種類を [ アドイン ] とした場合に、既定の保存先として 選択されるフォルダです。下記のマクロでパスを確認できます。 MsgBox Application.UserLibraryPath Windows Vista ＆ 7 のUAC 管理下からは外れているフォルダですが『隠しフォルダ』 属性ですので、エクスプローラーのフォルダオプションで「全てのファイルとフォル ダを表示する」にチェックを入れておく必要があります。 マルチインストールの場合でも、Excel の各バージョンで共通の場所ですが、OS に よって場所が異なり、ユーザーごとに分かれます。 -- Windows XP の 例 -- C:\Documents and Settings\USER \Application Data\Microsoft\AddIns --Windows Vista / 7 の 例 -- C:\Users\USER \AppData\Roaming\Microsoft\Addins 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜