こんにちは、じゅんぱ店長（＠junpa33）です。
今回も先回の記事の続きです。「雑誌バックナンバー検索．ｘｌｓｍ」を作成していきます。
今回が最終回となります。
先回の記事の読み直しはこちらから＞＞＞
【雑誌】エクセルＶＢＡを使ったバックナンバー検索！店長の強力業務ツール
エクセルＶＢＡを使ったバックナンバー検索！店長の強力業務ツール。
バックナンバー検索表作成記事一覧
続きを読む
続きを読む
続きを読む
コンテンツ
雑誌バックナンバーの検索ツール 今回の作業内容
前回の記事では、検索に関するＶＢＡコードを作成しました。
今回はこのＶＢＡをコントロールするための操作ボタンと、検索キーワード入力を行うテキストボックスとその操作ボタンをユーザーフォームで作成します。
ユーザーフォームの名称を「検索コントロールパネル」とします。
最後に使用方法の確認をします。
「雑誌バックナンバー検索．ｘｌｓｍ」を完成させます
今回はユーザーフォームを使いますので、まずユーザーフォームを挿入してください。
以前にも使いましたが、
ユーザーフォームの挿入方法の確認はこちらから↓
「検索コントロールパネル」名を付けます
挿入したユーザーフォームを適当に広げてください。
ユーザーフォームのプロパティウインドウを表示して
- （オブジェクト名）を「検索コントロール」
- Ｃａｐｔｉｏｎを「検索コントロールパネル」
とします。
- ツールボックスで「Ａ」のラベルボタンでフォームの上部に「検索コントロールパネル」というラベルを設置してください
「検索コントロールパネル」の表示タイミングを設定します
この「検索コントロールパネル」の表示について、
”エクセルＢＯＯＫを開いたとき” と ”「検索結果」を開いたとき” に表示されるようにします。
プロジェクトエクスプローラーの「ＴｈｉｓＷｏｒｋｂｏｏｋ」のコードウインドウで
以下のコードを記述してください。
コード⑫
Private Sub Workbook_Open()
If 検索コントロール.Visible Then Exit Sub
検索コントロール.Show vbModeless
End Sub
同様にプロジェクトエクスプローラーの「Ｓｈｅｅｔ１（検索結果）」のコードウインドウで
以下のコードを記述してください。
コード⑬
Private Sub Worksheet_Activate()
If 検索コントロール.Visible Then Exit Sub
検索コントロール.Show vbModeless
End Sub
期間検索入力部分の設置をします
検索期間の入力に関しての設定です。
ツールボックスで「Ａ」のラベルボタンとテキストボックスとコマンドボタンで作成していきます。
- 検索期間（年） 〇〇年から 〇〇年まで
- 年度の設定をしない場合はデータの全期間となります。
テキストボックスの（オブジェクト名）は
「期間年から」 「期間年まで」
Ｖａｌｕｅ についてはデフォルトで入っている値（空欄でもＯＫです）
- 検索期間（月） 〇〇月から 〇〇月まで
- 年度を跨ぎかつ月の期間を設定した場合は先年同月での検索が可能です。
- 1月から12月まで昇順で入力してください。
テキストボックスの（オブジェクト名）は
「期間月から」 「期間月まで」
Ｖａｌｕｅ についてはデフォルトで入っている値（空欄でもＯＫです）
- 検索期間（日） 〇〇日から 〇〇日まで
- 1日から31日まで昇順で入力してください。
テキストボックスの（オブジェクト名）は
「期間日から」 「期間日まで」
Ｖａｌｕｅ についてはデフォルトで入っている値（空欄でもＯＫです）
- 「期間入力ボタン」を設置します。
（オブジェクト名）を「期間入力」
Ｃａｐｔｉｏｎを「期間入力ボタン」 とします。
「検索コントロール」コードウインドウでの各入力データのコード設定は、
この様になります。
「期間入力ボタン」を押したときに各テキストボックスに入力した指定値が、変数に送られます。
コード⑭
Private Sub 期間入力_Click()
fdatey = 検索コントロール.Controls("期間年から").Value
tdatey = 検索コントロール.Controls("期間年まで").Value
fdatem = 検索コントロール.Controls("期間月から").Value
tdatem = 検索コントロール.Controls("期間月まで").Value
fdated = 検索コントロール.Controls("期間日から").Value
tdated = 検索コントロール.Controls("期間日まで").Value
End Sub
検索キーワードの入力ボックスの設定と設置
こちらもツールボックスで「Ａ」のラベルボタンとテキストボックスとコマンドボタンで作成していきます。
雑誌名検索
- 雑誌検索名 〇〇
テキストボックスの（オブジェクト名）は「検索雑誌名」
Ｖａｌｕｅ についてはデフォルトで入っている値（空欄でもＯＫです）
- 「雑誌名検索ボタン」を設置します。
（オブジェクト名）を「雑誌名検索」
Ｃａｐｔｉｏｎを「雑誌名検索ボタン」 とします。
「検索コントロール」コードウインドウでの入力データのコード設定は、
この様になります。
コード⑮
Private Sub 雑誌名検索_Click()
myKEY = 検索コントロール.Controls("検索雑誌名").Value
Module2.雑誌名検索
End Sub雑誌コード検索
- 雑誌コード 〇〇
- 0から始まるコードは0を無視4桁で
テキストボックスの（オブジェクト名）は「検索雑誌コード」
Ｖａｌｕｅ についてはデフォルトで入っている値（空欄でもＯＫです）
- 「雑誌コード検索ボタン」を設置します。
（オブジェクト名）を「雑誌コード検索」
Ｃａｐｔｉｏｎを「雑誌コード検索ボタン」 とします。
「検索コントロール」コードウインドウでの入力データのコード設定は、
この様になります。
コード⑮
Private Sub 雑誌コード検索_Click()
myKEYb = 検索コントロール.Controls("検索雑誌コード").Value
Module2.雑誌NO検索
End Sub
送品予定表転記、データまとめボタンほか作成
Ｍｏｄｕｌｅ１、２で記述したＳｕｂの作動ボタンを設置します。
Ｍｏｄｕｌｅ１ 送品予定表転記・データをまとめる・送品予定表削除・データまとめクリア
Ｍｏｄｕｌｅ２ 検索結果クリア
「検索コントロール」コードウインドウでの各入力データのコード設定は、
この様になります。
コード⑯
Private Sub 送品取込_Click()
Module1.送品予定表転記
End Sub
Private Sub 送品まとめ_Click()
Module1.データをまとめる
End Sub
Private Sub 日々送品表削除_Click()
Module1.送品予定表削除
End Sub
Private Sub 送品まとめCR_Click()
Module1.データまとめクリア
End Sub
Private Sub 検索表示CR_Click()
Module2.検索結果クリア
End Sub
「雑誌バックナンバー検索．ｘｌｓｍ」の簡単な取説です
「雑誌バックナンバー検索．ｘｌｓｍ」が収集する送品予定表は、「雑誌バックナンバー検索．ｘｌｓｍ」本体と同じホルダーにあることが必要です。
雑誌バックナンバー検索結果を保存したい場合は、
- 「検索結果」シートを丸ごとコピーして別の独立したエクセルＢＯＯＫに保存する
- 検索に使った「雑誌バックナンバー検索．ｘｌｓｍ」自体を別のホルダーに保存する。
「雑誌バックナンバー検索．ｘｌｓｍ」はフォルダーさえ分ければ、何度複製しても使えます。
検索の操作はすべて「検索コントロールパネル」から行うことができます。
年月日は、例えば１１月から３月というような場合でも月日の巡り順ではなく、数字の大小で入力してください。
この場合は１月・２月・３月（１~３）と１１月・１２月（１１～１２）を分けて操作してください。
全期間検索の場合は期間入力欄空白でＯＫです。
検索期間（年）がすべて空欄の場合は、全期間検索となります。
「期間入力ボタン」は期間を確定させるボタンです。その後で、雑誌名での検索かまたは雑誌コードの検索を行ってください。
雑誌コードは数字で認識しています。頭０の雑誌コードは０を外した４桁で入力してください。
週刊誌コードについては、同じ雑誌でも複数コードがありますが、ここでの設定は検索コード１００％一致に設定しています。部分一致にも変更できますがそうした場合、検索精度が落ちてしまいます。ＦＩＮＤの条件を「LookAt:=xlPart」にすればファジー検索になります。
雑誌バックナンバー検索のまとめ
送品予定表の作成から発展させて、過去に何がどれだけ送品されたか客注がどれだけあって、取り置きがどれだけあったかを調べることができるようになりました。
さらに販売管理ソフトを併用して、その時どこの顧客に販売したかもわかる様にもなります。
情報がどこまで必要かというところですが、このレベルの情報まではＰＯＳでは調査不可能な部分かと思います。
当たり前のように日々の業務においては、色々な情報やデータが流れてきます。
そんな情報を上手く使えるか使えないかはその人の考え次第です。
どこまで精緻なデータが必要かにもよりますが、小さな書店にとっては恐らくは、自前加工のデータでも十分使える部分が多いかと思います。
それはまた情報取得も費用対効果で考えてゆくということに繋がっていきます。
完成品のダウンロード
完成品はこちらです。
今まで解説しましたエクセルＶＢＡの完成品です。使用料は無料です。
＜このＤＬしたエクセルファイルはＶＢＡコードを保護していますので改変はできません。＞
最終形のダウンロードはこちら↓から。
このソフトはご自分で業務でお使いいただくのはフリーですが、
転載や転売については許可しておりませんので、ご使用にならないよう固くお断りいたします。
エクセルVBAを独学で習得するためのポイントは？良書との出会いは重要 基礎知識習得のためのオンライン学習講座の参考記事 
エクセルVBA初級者がUdemyで動画学習する講座おすすめ５選と無料講座の上手な使い方。 今回の記事はここまでです。
最後までご覧いただき有難うございました。
電子書籍版「大村式【動画＆テキスト】Ｅｘｃｅｌマクロ＆VBA最高のはじめ方」をamazonで見てみる
（著者）大村あつし（出版社）技術評論社
（税込価格）1,628円（本体1,480円＋税）
学習書の新しい形です。
YouTubeと完全リンクした参考書です。入門と基礎を重点的に２２本の動画で解説をしています。
ちょっとした空き時間を利用してでもスマホがあれば学習ができます。
動画は優しい語り口調で、視聴者にある意味安心感を与えてくれます。動画は5分から20分間ぐらいで22本の構成です。
文章解説と動画解説の関係性は、動画解説が主で、文章解説がサポートいう使い方もできます。
エクセルVBAを使って業務効率を上げて行くのに、始めのうちに知っておきたい内容を纏めています。
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
続きを読む
