エクセル顧客管理
納品書を作成、商品情報を取得(3)

第25回.納品書を作成、商品情報を取得(3)

エクセルで顧客管理を作ろう、

前回までで、「商品番号」で「商品マスタ」より情報を取得が一応できました、

しかし、「顧客番号」で「顧客一覧」より情報取得の時のように、

一覧を検索して、そこで選択した情報を取得するようにはなっていません。

今回は、商品情報を取得3部作の最終です。

明細部にボタンを付けて、「商品マスタ」へ移動し、そこで選択できるようにします。

前回同様に、エクセルのサンプル をアップします。

ダウンロード用の別サイトが表示されます。

さて、まず言い訳をする必要があります。

「第22回.コントールについて 」、ここで私は、

作成中のエクセルでは、「ActiveX　コントロール」のみ使用します。

と言い切ってしまいました。

すみません、今回は「フォーム　コントロール」の「ボタン」を使用します。

明細行にボタンを付ける事を忘れていました。

「ActiveX　コントロール」では、ボタン毎にSubモジュールが必要になってしまい、ちょっと不便です。

「フォーム　コントロール」のボタンなら、１つのSubモジュールで済みますし、

ボタンのコピペだけで増やす事ができるのです。

シート「商品マスタ」にコンボボックスを作ります

コンボボックスの追加方法は何回かやりましたが、

１．2003なら「コントロールツールボックス」、2007以降なら「ActiveXコントロール」

　　の「コンボボックス」を適当な位置に追加して下さい。

２．プロパティを変更する

　　「オブジェクト名」を「cmbシート名」

このコンボボックスには、コードを入れません。

選択を変更しても何もすることがないからです。

コンボボックスにリストを追加します

シート「商品マスタ」のシートモジュールに以下を追加します。

シート「設定」のシート名を、配列に取り出し、その後、コンボボックスのListに入れています。

これは、「顧客一覧」と全く同一です。

標準モジュールを作り、それをCallするようにすれば、

「商品マスタ」と「顧客一覧」で共通に使えるのですが、

行数が短いので、コピペで済ませました。

今後、さらに増えるようなら、標準モジュールに作成します。

シート「商品マスタ」で、F1押下時の処理を追加します

「Mod共通」の「ファンクションF1」に以下を追加します。

太字が追加する部分です。

商品番号の入力されている行のセルが選択されている状態で、

F1が押下された場合に、｢納品書｣のアクティブなセルに商品番号を設定します。

ActiveCellを取得するには、そのシートをActiveにする必要があります。

従って、varWork = Cells(ActiveCell.Row, 開始セル取得("商品マスタ").Column)
で、「商品マスタ」のアクティブ行の商品番号を変数ヘ一旦入れておき、

シートを「納品書」に変更後に、この変数をアクティブセルへ入れています。

これはいかにも面倒なのですが、直接入れる事ができません。

できれば、WorkSheets(1).Activecell = WorkSheets(2).Activecell

のように記述したいところなのですが、

WorkSheetsにActivecellのプロパティが無いのです。

何かExcelとして、都合の悪い事があるのかもしれません。

標準モジュールを追加します

「挿入」→「標準モジュール」ですね、

プロパティで「Mod納品書」にオブジェクトを変更して下さい。

今後、「納品書」に関する、標準モジュールはここに記述していきます。

このように、なるべく処理内容毎に、標準モジュールは分けて作成することをお勧めします。

以下のSubモジュールを追加します。

今回のメインの内容です。

Application.Callerは、このプロシージャーの呼び元の名前が入っています。

ここでは、ボタンの名称になります。

ActiveSheet.Shapes(ボタンの名称)で、ボタンそのものになります。

.TopLeftCellは、そのボタンが属するセルの左上のセルです。

そして、そのセルをSelectしています。

つまり、クリックしたボタンが含まれるセルをアクティブにしています。

シート「納品書」に「フォーム　コントロール」の「コマンド　ボタン」を作成

１．2003なら「フォーム」、2007以降なら「フォーム　コントロール」

　　の「ボタン」を商品番号の入力セルに追加して下さい。

　　セルからはみ出さないようにして下さい。

２．ボタンの文字を変更します。

　　「ボタン1」等になっていますので、「検索」にして下さい。

　　ボタンの文字なので、自由な文字で結構です。

３．「マクロの登録」で、

　　一覧より、「商品検索」を選択し、「OK」

４．このボタンをコピーし、他の行に貼り付けて下さい。

　　ボタンは一度選択状態が解除されると、左クリックでは選択できません。

　　右クリックで選択することができます。

以上で完成です。

どうですか、全てのボタンの処理が、たった2行の記述で終わりです。

この為に、今回は、「フォーム　コントロール」を使用しました。

これで、

「納品書」でボタンクリック

↓

「商品マスタ」へ移動

↓

商品を選び、当該行のセルを選択し、F1

↓

「納品書」のボタンをクリックした行の商品番号が設定されます。

↓

商品情報が表示されます。

以上の機能が完成しました。

ただし、問題が１つあります。

フォームのボタンは、マウスポインタが指定できないのです。

ActiveXは、指定できますけど、ハンドは標準ではできません。

カスタムで指定しないと・・・

結局バラバラ、まあ、とりあえずは良しとしましょう。

これで、商品情報を取得の３部作が終了です。

次回は、WorksheetFunctionについて書く予定です。