ExcelVBAテキストでの疑問

質問

Option Explicit

Sub 請求書作成(Kokyaku As String) '引数「Kokyaku」は請求書を作成する顧客名
ここだけなぜ「請求書作成」、引数を宣言するのかが不明です。　

　　Dim i As Integer '「販売」ワークシートの表の処理用カウンタ変数
Dim Cnt As Integer '請求書のワークシートの表の処理用変数

Cnt = 12 '請求書のワークシートの表の先頭行(12行目)の値に初期化

'ワークシート「請求書雛形」を末尾にコピー
Worksheets("請求書雛形").Copy After:=Worksheets(Worksheets.Count)

Worksheets(Worksheets.Count).Name = Kokyaku 'ワークシート名を設定
Worksheets(Kokyaku).Range("A6").Value = Kokyaku '請求書の宛先を設定
Worksheets(Kokyaku).Range("E2").Value = Date '請求書の発行日を設定

'指定した顧客の販売データを請求書へコピー
For i = 4 To 32
If Worksheets("販売").Cells(i, 2).Value = Kokyaku Then
Worksheets(Kokyaku).Cells(Cnt, 1).Value = Worksheets("販売").Cells(i, 1).Value '日付
Worksheets(Kokyaku).Cells(Cnt, 2).Value = Worksheets("販売").Cells(i, 3).Value '商品
Worksheets(Kokyaku).Cells(Cnt, 3).Value = Worksheets("販売").Cells(i, 4).Value '単価
Worksheets(Kokyaku).Cells(Cnt, 4).Value = Worksheets("販売").Cells(i, 5).Value '数量
Worksheets(Kokyaku).Cells(Cnt, 5).Value = Worksheets("販売").Cells(i, 6).Value '金額

Cnt = Cnt + 1 '請求書のワークシートの表のコピー先の行を1つ進める
End If
Next i
End Sub

Sub フォーム用意()
myForm.Show
End Sub

回答No.1

kkkkkm

> ここだけなぜ「請求書作成」、引数を宣言するのかが不明です。　

この部分が質問だとしたら

請求書作成プロシージャを呼び出すときに変数Kokyakuが変化するからからじゃないですか。

請求書作成("A社")
請求書作成("B社")

とかで呼び出すように作られているのではないでしょうか。