値を渡して、プログラムを実行したいことありませんか？
今回は、２種類の方法で値を渡します
ドロップダウンリストを使う方法とユーザーフォームを使う方法です
ドロップダウンリストを使う方法はとっても簡単です
ユーザーフォームにも挑戦してみましょう！
グレードがぐっと上がるかも…？
難しいことはしていません ぜひ、やってみて！
リストで選択
店名を選んでプログラムに渡します
F列に検索したい店名を書き出します
C3セルに店名が表示されるようにしましょう！
データ→データの入力規則で入力値の種類をリストにします
元の値はF3セルからF7セルとします
C3セルで店名を選択できるようになりました
選択した値をプログラムに渡してみよう！
標準モジュールにTenmei_Selectプロシージャを作成します
C3セルの値をTenmeiに代入します
MsgBoxで表示してみましょう！
Tenmei_Selectプロシージャに値が渡りましたね！
MsgBoxをプログラムに変えていきましょう～
こちらを使います！
売上明細データから店名別に売上表を作成しています
これも見てね！ ブログもあります
プログラムソースは、ブログにあります
このプログラムを使って、渡ってきた店名から売上表を作成してみましょう！
こちらのuriage_keisan6プロシージャをTenmeiを引数として呼び出します
渡した引数を実引数と呼びます
uriage_keisan6□の箇所を…
このように変更します
渡されたTenmeiを使います
件数も最終行を取得できるように変更しましょう
渡される側の引数は、仮引数と言います
Tenmeiでなく、他の変数名を指定してもいいですよ！
そのように使う方が多いです
'Tenmeiを渡して売上表作成 Tenmeiは実引数
Call Uriage_Keisan(Tenmei)
’TenmeiをMisemeiとして受け取る Misemeiは仮引数
Sub Uriage_Keisan(Misemei As String)
実行ボタンを作りTenmei＿Selectと紐づけます
実行してみましょう
店名別に売上表が作成できましたか？
Sub Tenmei_Select()
Dim Tenmei As String
Tenmei = Range("c3")
'Tenmeiを渡して売上表作成
Call uriage_keisan6(Tenmei)
End Sub'Uriage_Keisan5をWithステートメントを使って
Sub uriage_keisan6(Tenmei As String)
Dim i As Long '売上データの行数
Dim j As Long '作成する売上表の行数
Dim k As Long '売上の項目の位置(列)
With Worksheets("売上明細")
j = 5
For i = 3 To .Cells(Rows.Count, 3).End(xlUp).Row
If .Cells(i, 3) = Tenmei Then '店名がTenmeiかどうか
'売上表に転記
For k = 4 To 7
Worksheets(Tenmei).Cells(j, k - 2) = .Cells(i, k) '商品名～金額
Next k
j = j + 1 '次に作成する売上表の行数の計算
End If
Next i
End With
End Sub
ユーザーフォームから選択
ユーザーフォーム作成
ユーザーフォームを作成します
次のようなオブジェクト名にしました
ユーザーフォームの作り方はこちらもどうぞ❕
標準モジュールプログラム
標準モジュール
Tenmei_Selectをこのように書き直します
作成したフォームを呼び出すだけです
ユーザーフォームプログラム
ユーザーフォーム
初期設定
UserForm_Initializeで、
ユーザーフォームが表示される直前に行いたい処理を書きます
このように表示されるので…
コンボボックスの設定をします
店名検索シートの値をコンボボックスのTenmeiBox.Listに代入します
標準モジュールのTenmei_Selectを実行してみましょう
コンボボックスに指定した店名が代入されましたか？
TenmeiBox.List = Worksheets(“店名検索”).Range(“F3:F7”).Value
店名の値をRange(“F3:F7”)と決め打ちにしていますが、
最終行の取得を使って、このようにすれば、店名の数が増減しても対応できます
Gyo = Worksheets(“店名検索”).Cells(Rows.Count, 6).End(xlUp).Row
TenmeiBox.List = Worksheets(“店名検索”).Range(“F3:F” & Gyo).Value
あるいは、
TenmeiBox.List = Worksheets(“店名検索”).Range(Cells(3, 6), Cells(Gyo, 6)).Value
コマンドボタンの設定
OKbuttonをダブルクリックします
このように表示されるので…
先ほど作成したuriage_keisan6あるいは、Tenmei_Filterを呼び出します
引数はコンボボックスのTenmeiBox.Textです
選択した店名がここに入っているので、この値を渡します
処理が終わって戻ってきたら、Unloadでフォームを閉じます
コマンドボタンを作らずに、コンボボックスに変更があったら、
プログラムを実行する方法もあります
こちらを使うと店名を選択したらすぐ実行されます
？何選んだ？？となるので、コマンドボタンで確定する方がいいのではないかと思います
せっかちさんはこちらもどうぞ！
（こちらにする場合は、OKbutton_Clickはなしです）
上の呼び出すプログラムはどちらかね！(^^;)
フローチャート
ユーザーフォームを使った場合のフローチャートです
こんな感じかな？
プログラムソース
標準モジュール
Sub Tenmei_Select()
'店名選択フォームの表示
SentakuForm.Show
End Sub
'Uriage_Keisan5をWithステートメントを使って
Sub uriage_keisan6(Tenmei As String)
Dim i As Long '売上データの行数
Dim j As Long '作成する売上表の行数
Dim k As Long '売上の項目の位置(列)
With Worksheets("売上明細")
j = 5
For i = 3 To .Cells(Rows.Count, 3).End(xlUp).Row
If .Cells(i, 3) = Tenmei Then '店名がTenmeiかどうか
'売上表に転記
For k = 4 To 7
Worksheets(Tenmei).Cells(j, k - 2) = .Cells(i, k) '商品名～金額
Next k
j = j + 1 '次に作成する売上表の行数の計算
End If
Next i
End With
End Sub
ユーザーフォーム
Option Explicit
'ユーザーフォームが表示される前に実行される処理
Private Sub UserForm_Initialize()
'コンボボックスのListに店名を代入
TenmeiBox.List = Worksheets("店名検索").Range("f3:f7").Value
End Sub
'コマンドボタン（OK)が押された時の処理
Private Sub OKbutton_Click()
'どちらかを呼び出す
'Call uriage_keisan6(SentakuForm.TenmeiBox.Text)
Call Tenmei_Filter(SentakuForm.TenmeiBox.Text)
'フォームを閉じる
Unload Me
End Sub
'コンボボックスだけの処理ならこちらでも…
'Private Sub TenmeiBox_Change()
' 'どちらかを呼び出す
' Call uriage_keisan6(SentakuForm.TenmeiBox.Text)
' 'Call Tenmei_Filter(SentakuForm.TenmeiBox.Text)
' 'フォームを閉じる
' Unload Me
'End Subいかがでしたか？
そんなにむずかしくなかったでしょう❓
コメント