| 前へ | 次へ |
==============================================================================
【ソ フ ト名】 Excel図書管理 Ver2.181
【登 録 名】 tosyo2181.zip
【検索キー 】 1:EXCEL
2:VBA,マクロ
【著作権者 】 縁木精史
【対応 環境】 Microsoft Excel 2010
【動作 確認】
・MousePC：CoreDuo 1.8G/mem4GB/5400rpm-HDD
Win10pro64 + Excel2010(32ﾋﾞｯﾄ)
【開発 言語】 Excel2010 VBA
【ソフト種別】 フリーソフトウェア
【サポート 】 電子メールでお願いします。
時間があれば対応します。
【転載 条件】 メールにて連絡してください。
【出版 関連】
出版物への掲載・メディアへの添付は必ずご連絡願います
【連 絡 先】 sirenaiｱｯﾄﾏｰｸyahooﾄﾞｯﾄcoドットjp
http://engi.cocolog-nifty.com/sirenai/のコメント欄へ。
==============================================================================
【tosyo2181.zip 同梱物】
EXCEL図書管理Ver2181.xlsm 図書管理ブック（本体）
tosyo2181-readme.txt 当テキストファイル
sample.jpg 会員管理表のダミー画像
==============================================================================
【詳しくはこちらをどうぞ】
■ 詳しくは下記を参照。
■Excel図書管理Ver2.1の説明書＋QA集
http://engi-seishi.la.coocan.jp/Tosyo_setumeiVer210html/index.html
■Excel図書管理の想定業務フロー、機能フロー図などの資料
http://engi-seishi.la.coocan.jp/excel_sample.htm
■操作の動画説明
貸出、返却、時々予約の操作
http://youtu.be/UPFxNB2lkow
会員登録、ログイン、伝言板利用
http://youtu.be/JKjd5Zkd__4
図書の登録方法、MENUｼｰﾄ切替え
http://youtu.be/tMH5wgmnCyQ
==============================================================================
【内容紹介】
---------------------------------------------------------------------
Excel図書管理をダウンロードありがとうございます。
EXCEL図書管理は、エクセル・マクロブックで作成した図書貸出・返却操作ができるブックです。
----------------------------------------------------------------------
当初の目的がVBA学習のためのものでしたので、VBAでのパスワードはありません。
機能は、図書を管理する上で必要なものは用意していると思っています。
図書の登録、貸出処理、返却受付処理、予約機能、会員管理、貸出・返却のログ記録,図書の検索、返却時遅延対応などが出来ます。
まだまだ細かいバグがあるかもしれません。
動作がおかしい場合は、連絡頂けると助かります。
解決できるかどうかは分りませんが、解決に向けて、努力いたします。
多少エクセル（VBA）をご存知でしたら、ご自身でカスタマイズできます。
ぜひ、チャレンジして下さい。
VBAは冗長的で、スパゲッティ気味です。（汗
多々、キー記録多用しています。 直しがいがあると思います。
ご了承下さい。
----------------------------------------------------------------------
【インストール】
（１）１ブックのみで機能しますので、どこのフォルダーに格納して頂いても結構です。ブック名を変えることもできます。
ただし、ブック内のシート名を変更すると正しく動作しません。
また、AWSを利用する場合は、MASさんのホームページからhttp://www2u.biglobe.ne.jp/~MAS/hoka/excelamazon.html
Sign.dllをダウンロードし、同じフォルダー内に保存してください。
（２）当然に、ネットワーク経由での利用とか、ブック共有とかには、 対応していません。そもそも、想定していません。
【入力データが記録されるシートは？】
図書管理表シート：図書情報と貸出・返却のデータが記録されています。
会員一覧シート： 会員の情報が記録されます。
予約受付シート：予約データが蓄積されます。予約本が貸し出されると、削除されます。受付記録シート：いつ誰にどの本をどうした（貸したか、戻ったか）かの記録がされます。
table： 図書の分野、出版社、貸出制限冊数などが設定・記録されます。
【ダミーデータが入っています。】
練習に役立つと勝手に思いダミーデータが入力しています。
図書管理表、会員一覧、受付記録、（保守～リスト出力～貸出分析の元データ）
予約受付。
注）保守・管理のその他処理～データの初期化を選ぶと、ダミーデータを消去します。
・図書管理表、会員一覧、受付記録、予約受付の各シートのデータを値消去します。
・操作担当者シートは、自動で消去しません。基本、データ追加します。
【ダミーデータの消去方法】
保守管理ボタンで、保守フォームを表示。
その他処理～データの初期化：「消去」ボタンクリック～キャンセルボタンで次に進みます。
【旧ブックからのデータの移行時の注意点】
バージョンアップなどの場合は、この4つのシート上の値を新しい図書管理ブックの該当シート上にコピーすれば、ＯＫですが、細かな制限があります。
シート単位での入れ替えは不具合の原因になりますので、お勧めしません。
また、シート複写では不要なリンクが引き継がれる可能性があります。
※Ver2180に対応したExcel図書管理-データ移行ブックはまだ用意されていません。
Ver2170までは、下記の移行ブックを利用できます。
ただし、tableシート値がすべて転記されない可能性がありますので、処理後確認してください。
xl_tosyo_data_ikou2170.xlsm
［手操作でのデータ複写の注意点］
セル範囲ごとに、新シートの項目を削除しないように、コピー＆ペーストして下さい。
※シート単位のコピー等は行わないでください。
①tableシートは、旧Verでは使用していないセルを使っています。
旧tableシートからセル範囲ごとに、新tableシートにコピーしてください。
②図書管理表シートについて、項目名が変わっている場合がありますので、新しいブックの項目名を正として、合わせてください。
③会員一覧シートでは、Ver2.08より、H列のメモ１が貸出制限Gr欄に変わっています。
独自運用されている場合は、ご注意ください。
また、V2160より、I列が遅延回数を記録する列（標準書式）に変わっています。
④図書管理表で棚番としてO（オー）列を使います。ユーザー側で自由に使えなくなりました。
⑤図書管理表で入庫区分としてP列を使います。ユーザー側で自由に使えなくなりました。
[注１]
ログイン時のデフォルトID・ﾊﾟｽﾜｰﾄﾞは、
特権ユーザー admin・123
一般ユーザー a001・001（一部シートを見ることができません。）
です。
図書管理表、会員一覧、受付記録、tableの各シートのダミーデータが入力されています。
動作確認は、ダミーデータを使ってください。
［注２］
正式に使う場合、まず各ダミーデータを消去し、正しいデータを入力するか、置き換えてください。
［注３］
詳しくは、http://engi-seishi.la.coocan.jp/excel_sample.htm
http://engi-seishi.la.coocan.jp/Tosyo_setumeiVer210html/index.html
操作の動画ファイルhttp://youtu.be/UPFxNB2lkow を参照して下さい。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
【2.181の大きな変更点】－－－－－－－－－－－－－－－－－－－－－－－－－
■ 権限に応じた動作の機能の整理と機能追加。
[1]ｼｰﾄ非表示に対応する。VBE～検索：select
・sheets("＊＊＊").select→sheets("＊＊＊").activateに。
・Gotoの場合、シートをvisibleにする。
[2]VBE～検索：カレントプロジェクト=pivotで。
結果シート（work、work2）はシート表示設定にする。
そのまま表示させておく。
①module2.貸出しピボット作成
workシート上でピボット挿入：非表示の時にエラー。
なので、
If Sheets("work").Visible = False Then
Sheets("work").Visible = xlSheetVisible
HT = 1
End If
↑を最初に記述。
②module5.予約状況
③module8.図書noの重複チェック 動作確認
④module8.会員noの重複チェック 動作確認
[3]保守フォームの修正
①出版社、分野の更新・追加のフォームで、新規ボタンのコードを修正。
②その他処理・タブ内のframeを一般ユーザーの時は非表示とした。
③ID/PASS変更は一般ユーザーの時、無効とした。
[4]権限設定の見直し（整理）
※特権ユーザーと一般ユーザーのみとする。
ただし、ログイン機能を有効の場合のみ。
無効の時は、自動的に特権ユーザーとなる。
①workbook_openで、
・ログイン機能有りの場合、一般ユーザーの時はMENUシート外のシートは
非表示とする。 運用担当者、table、受付記録はveryhiddenとする。
・シート表示と非表示ボタンをmenuに貼り付けた。一般ユーザーの場合は、
このボタンは見えない。シート非表示での動作確認用の為。
特権ユーザーの場合は、シート表示・非表示のボタンをmenuシート上に表示する。
・ショートカットctrl+pageupを無効化する。
Application.OnKey "^{PGDN}", ""
Application.OnKey "^{PGUP}", ""
②workbook_beforecloseで、
ショートカットctrl+pageupを有効にする。
[5]猫伝言マクロの修正：tableシートの一部を見せている。
①menu上の猫ボタン・・・tableシートを表示する。scrollareaで制限を掛ける。
tableシートのmenuに戻る（neko）で、tableを非表示にして、menuシートに移る。
[6]Loginフォーム：OKボタンｺｰﾄﾞ変更。
LOGINフォーム：OKボタンのｺｰﾄﾞで、特権ユーザー（i88=5）以外の場合、
MENUシート以外非表示とし、会員一覧、操作担当者とTable、受付記録シートは
xlVeryHiddenとする。
操作担当者シート・・ID、パスワードを記録しているため。
tableシート・・・システムパスワードを記録しているため
受付記録シート・・・個人別の貸出記録であるため。
会員一覧シート・・個人情報
2017/4/4 Ver2181
上記のV2180cの機能追加・修正の他、下記の項目を追加した。
(1)シートの非表示・非表示レベルの設定を記録し、自由に設定できるようにした。
tableシート：I201～J224の範囲で。直入力。
(2)貸出返却シート版・シートの計算式再代入の機能を追加。
ともに、保守管理フォーム：補助処理ページ内にあるボタンクリックで実行する。
(3)ブックclose時に、ログイン有であれば、menu以外非表示にして上書き保存終了とする。
【2.180の大きな変更点】 －－－－－－－－－－－－－－－－－－－－－－－－－
（１）延滞ペナルティ機能の追加
返却時に所定条件により、貸出停止期間を設定します。
貸出停止期間が有効な場合、貸出時に停止期間中かどうかのチェックを行います。停止期間中は、貸出はできません。
貸出停止期間日は、会員一覧のK列です。
①設定は、保守フォームにて行います。または、TABLEシートのi189セル値で行います。
i189値が0の場合、貸出停止期間設定は行わず、また、返却時の延滞ペナルティは行いません。i189値が1の場合、延滞ペナルティを付けますが、その条件設定は「貸出返却シート版」シートで行います。この「貸出返却シート版」シートでは、返却予定日も細かに計算設定することができます。デフォルトでは貸出時間をもとに、返却予定時間を計算するような設定をしています。
この「貸出返却シート版」シートでの貸出停止日計算は、日又は時間、分により何日貸出停止するかをシート上で条件設定することが可能にしたつもりです。
i189が2の場合は、シート版ではなく、通常のUserformにて貸出・返却の受付を行います。Userformでの延滞ペナルティは、遅延した日数分を貸出停止期間とします。7日遅れた場合は受付日から7日間は貸出できないように、7日後の日付を「会員一覧」シートの貸出停止期間列に代入します。
（貸出受付フォームおよび返却受付フォームのコード更新、貸出返却シートの新規追加、保守・管理での延滞ペナルティ有効無効選択追加）
（２）受付日や期間、期限日などをYYYY/M/D形式から、YYYY/M/D
H:MM形式に変更しました。これは、●分返却が遅れた場合に延滞ペナルティが付けられるようにする為です。
（コード）
（３）バックアップの世代設定できるようにしました。
menuシートの「終了する/再ログイン」ボタンで終了した場合に、この世代数に従って、別名保存します。tableシートのi9値に世代数までの番号を付与したファイル名で別名保存します。「3」に設定すると、Excel図書管理Ver2.●●_back1.xlsmからExcel図書管理Ver2.●●_back3.xlsmまでの３つのファイル名で順番に上書き保存されます。
（保守・管理）
（４）menuシートの画像を変更しました。Ushikaiさんのものを利用させていただいています。（MENUシート）
（５）貸出・返却の受付をUserformかシート版か、選択できるようにしました。
基本、受付については、どちらで行っても記録される先は同じで、図書データは図書管理表シートに書き込まれ、会員ﾃﾞｰﾀについては会員一覧シートに、ログは受付記録シートに書き込まれます。（保守・管理）
注）Userformでの受付では1冊づつ受付け記録しますが、シート版の場合は5冊まで一括して受付記録することができます。
（６）未返却本がある場合、それでも貸出するか、しないかの条件を設定できるようにしました。（保守・管理）
（７）貸出UserFormの返却予定日●日後、textboxを直接変更した場合、返却予定日・曜日の自動変更するように微調整。併せて、休館日カレンダー利用の場合にも対応するように変更しました。
（８）会員有効期限チェックリスト・出力の微修正しました。
会員一覧から項目名をWORKシートにコピーするように変更。
（９）貸出時に、貸出回数を表示するようにしました。
また、保守フォームで指定数を入力することにより、その指定数の倍数に貸出回数がなった場合に、メッセージボックスを表示するようにしました。指定数を0にすると、メッセージボックスを表示しません。
注：初期セル設定で、「貸出返却シート版」シートのチェック・関数再代入はありません。 データ移行ブックでは、このシートのデータの移行は未対応です。
注２：デモデータが登録されています。
これは、お試しで動作確認できるよう入力されています。開始前には、ﾃﾞｰﾀを消去してから行う必要があります。保守・管理から補助タブでﾃﾞｰﾀを消去するか、手操作で行う場合は、セル範囲をdeleteキーで消去してください。行・列全体の削除などは行わないでください。エラーが出ます。
図書管理表 001から1020番と6件の13桁コード以上本が登録されています。
会員一覧 001から100番まで登録されています。
受付記録 305件
操作担当者 4名分：ID admin、admin2 ともにパスは123 ： 特権ユーザー
a001、a002 パス：001、002 ：一般ユーザー
ただし、ログイン処理は無効となっていますので、上記ID等は使用しません。
tableシートに、出版社ﾃﾞｰﾀ、図書分野ﾃﾞｰﾀが仮に入力されています。
ファイルサイズ： 2.03M
以上
--------------------------------------------------------------------
| 前へ | 次へ |