Excel図書管理の修正　〜　いずれ本体に組み込まれると思います。

Ver2.07a　の修正：「返却受付フォームの検索ボタンでエラー」の修正

　　　　　「検索」ボタンをクリックすると
　　　　　　↓↓↓↓↓↓↓↓



このメッセージの下に開かれているのは、module3.返却時検索　プロシージャー。

２箇所の修正が必要となりました。

（１）
module3
Sub 返却時検索()　　'　このプロシージャーの最初の部分を修正
'　検索して返却対象を見つける処理
'　Userform6からキックされるが、Userfrom6は閉じられる。
'　検索結果は、書籍番号-->tableシートのF1に書き込まれる。
Dim i, J As Long　　　'　←　iを追加
Dim gyou As Long　　'　←　この一文を追加
・・・・・・

（２）
module3
Sub 返却対象の指定()　　'　このプロシージャーの最後の部分の修正
'返却時検索()の次の処理
'F4キー押し下げで,実行される
　〜〜　略　〜〜
no = Range("d" & sitei).Value
Sheets("table").Range("f1").NumberFormat = "@"  '　←　この一文を追加
Sheets("table").Range("f1") = no

'　キー(F4)にマクロを関連を解除する
'　Application.OnKey "~"
Sheets("menu").Activate
UserForm6.Show

End Sub

以上


そもそもの話：
�A検索ボタンのフローイメージ
返却フォーム=userform6=表示の際に、tableシートのf1をtextbox1に代入する仕様。
userform6の検索ボタン→unload.me→module3.返却時検索→
貸出中のデータをtableに書き出す 。Enterキーに"module3.返却時対象の指定"を
登録する。Tableシート上でenterキー押し下げで、アクティブセル（d列）の番号が
ｆ１セルに代入されて、userform6がshowされる。この場合、textbox1に番号が代入
されているだけ。”表示”ボタンをクリックすると、本の属性情報が表示される。


戻る