プロシージャには、２種類あります。
SubプロシージャとFunctionプロシージャです。
２つのプロシージャを作るのはとても簡単なことです。
まず、参考ファイルを開いてください。
Private Sub CommandButton1_Click()
End Sub
Private Sub CommandButton2_Click()
Rows("5:200").Select
Selection.ClearContents
Range("A1").Select
End Sub
Ctrl+F11をして、VBAを開いて頂ければお分かりのように、
CommandButton1_Clickのコードは空です。
では、Subプロシージャfを作ってみることにしましょう。
fはこれから作るプロシージャの名前です。
変数のときと同様に禁則さえ犯さなければ、
名前は自由につけることができます。
禁則とは
① 半角英数と_（アンダーバー）と-（ハイフン）以外は使ってはならない。
② 数字と_と-は先頭には使えない。
ですから、変数名と同じ禁則です。
さて、ではSubプロシージャfを作ってみましょう。
緑の四角のところでエンターして、
Private Sub CommandButton1_Click()
End Sub
Private Sub CommandButton2_Click()
Rows("5:200").Select
Selection.ClearContents
Range("A1").Select
End Sub
１行開けて、１行開けたところに
sub fと打ってエンターします。
すると、自動的に
Sub f()
End Sub
となります。
これで、Subプロシージャfができた訳です。
sub fと先頭は小文字であったにも関わらず、Sub f()
となっています。
Functionプロシージャgを作りたければ、
function g
と打ってエンターすれば良いのです。
では、Subプロシージャfのコードを次のようにしましょう。
Sub f()
cells(5,1)="はじめてのSubプロシージャ"
End Sub
ところが、実行ボタンを押しても何も変わりありません。
当然です。
肝心のCommandButton1_Clickが空であるからです。
実行ボタンを押すとサブプロシージャCommandButton1_Clickが作動しますが、
コードが空なので、コンピュータは何もしないのです。
では、せっかく作ったSubプロシージャfに仕事をさせるにはどうしたらよいでしょうか。
Private Sub CommandButton1_Click()
f
End Sub
Sub f()
Cells(5, 1) = "はじめてのSubプロシージャ"
End Sub
それはfを挿入するだけです。
fは『Subプロシージャfさん、業務を遂行をしてください』の意味です。
fを挿入して、実行ボタンを押すと、
とfが仕事をしたことが分かります。fに仕事をさせるには、fの名前を呼ぶだけでよいのです。
呼ぶ＝callでしたね。
Private Sub CommandButton1_Click()
call f
End Sub
と変更して、実行ボタンを押してみてください。
全く変わりありません。
call fはfをコールするという意味ですが、
単にfでも同じです。
単にfでもfをコールする、fを呼ぶ
という意味になります。
でも、私は
Private Sub CommandButton1_Click()
f
End Sub
とcallをつけない方が好きです。
fと名前を呼んだだけで、
仕事をSubプロシージャfに命令できます。
２つのSubプロシージャCommandButton1_Clickとfは対等な関係ですから、
命令というより、依頼したといった方が良いかもしれません。
C言語やJavaなどでは、絶対的な社長mainが居て、
mainは命令を下しますが、
誰からの命令も受け付けません。
VBAでは、絶対的な社長は居なくて、
すべてのプロシージャが対等な関係にあります。
ですから、誰でも、
他の人（実は自分に仕事を依頼することもできます。）に仕事を依頼できるのです。
では演習に入りましょう。
Subプロシージャを２つ作り、
それぞれのSubプロシージャ名をfとgとします。
fは、１から１０までの和を求める計算を担当し、
gは、１から１０までの積を求める計算を担当します。
Private Sub CommandButton1_Click()
f
g
End Sub
によって、
を実現するプログラムを考えてください。
