Step45　コード・品番・品名抽出フォームの作成 : Excel請求書

一覧シートから期間抽出を作成しましたが、コード・品番・品名からキーワード抽出したい場合もあるはずですので追加することにします。

作成画面

■一覧シートに抽出ボタンを追加

ボタンを［期間抽出］の横に追加し、Captionプロパティに「コード・品番・品名抽出」と入力します。
［期間解除］ボタンも解除するのは期間だけではなくなるので、Captionプロパティに「抽出解除」に変更します。

■ユーザーフォーム2の追加

VBE画面に移動しメニューの［挿入］－［ユーザーフォーム］をクリックし「UserForm2」を作成します。


UserForm1内のコントロールをコピーし、UserForm2に貼り付けます。
そして下の画像のように変更してください。

テキストボックスを新規に追加すると、入力順が変わるので変更します。
変更するまではTABキーを押すと［キーワード1］［キーワード2］～［閉じる］の後に［キーワード3］になります。
これを［キーワード1］［キーワード2］［キーワード3］にします。

１．［キーワード3］のテキストボックスを選択します。
２．プロパティのTabindexに3番目なので3と入力します。

これでTABキーを押すと上から順に移動します。


フォームのタイトルを設定します。

１．コントロールがないフォーム上をクリックします。
２．Captionプロパティに「コード・品番・品名抽出」と入力します。

■コード・品番・品名抽出フォームを開く

新しく追加したボタンのクリックイベントに下記のコードを入力します。

Private Sub CommandButton4_Click()
    UserForm2.Show
End Sub

これでボタンをクリックするとコード・品番・品名抽出フォームが開きます。

[関連リンク］

ユーザーフォーム作成方法
ユーザーフォームを開く、閉じる
Step36　一覧表から期間で抽出するユーザーフォームの作成