プロシージャには２つあります。
１つは、前講で学んだサブプロシージャであり、
もう一つが本講で学ぶファンクションプロシージャです。
２つとも社員です。
つまり、社長や他の社員に命じられて仕事をする点は共通しています。
違いは、サブプロシージャは命じられた仕事を遂行するだけなのに対して、
仕事の結果を報告するのがファンクションプロシージャです。
親分に誰々を消せ命じられて、
サブプロシージャは殺人を実行するだけですが、
ファンクションプロシージャの方は、その結果の報告もします。
比喩での説明は以上にしまして、
端的に違いを説明しますと、
サブプロシージャは戻り値をもたないのに対して、
ファンクションプロシージャは、戻り値をもちます。
前講で引数の話をしました。
ファンクションプロシージャも引数のないプロシージャと
引数のあるプロシージャの２種類あります。
そして、引数のあるプロシージャが数学の関数と同じなのです。
では皆さん、次のようなマクロを組んで下さい。
Private Sub CommandButton1_Click()
Dim x As Integer, y As Integer 'xは整数を入れる変数 yも整数を入れる変数
x = 10 'aは整数を入れる整数
Cells(4, 1) = x
y = f(x)
Cells(5, 1) = y
End Sub
Function f(x As Integer)
f = 2 * x
End Function
Private Sub CommandButton2_Click()
Rows("4:2000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
すると、実行結果は
となります。
これはxに10を入れたら２倍になって帰って来てそれがyに入ったということです。
前話でパーツの中身を知らなくても、使い方さえ知っていればよいと、
話したのは、fは値を２倍にしてくれる箱であることを理解していれば、
fを使えるということなのです。
値を２倍にしてくれるツールだということを知っていれば、
中の構造がどうなっているのかを知っている必要がないのです。
中を見なくてもいいよということを抽象化と呼んでいるのですが、
どう考えてもブラックボックス化の方がいいと思いませんか。
ｆ（ｘ）＝２ｘ
と同じであることお分かりですか。
ブラックボックスｆとは、入ってきた値を加工する機械です。
さて、戻り値という言葉を使いました。
ファンクションプロシージャfはCommandButton1_Clickから10という値を渡されて、
それを２倍にして、CommandButton1_Clickに戻したのです。
戻す値だから、戻り値です。
報告すると比喩でいったのは、戻り値を仕事の依頼主に戻すことです。
10を2倍したらどうなるか調べて報告しなさい・・・これが仕事の依頼内容です。
もっとも、こんな簡単な仕事なら一瞬ですが、
数独の問題数はいくつあるか調べて報告しなさいといわれば、
スパコンを使える環境に合ったとしても、
報告できるファンクションプロシージャは現在はありません。
もし、あなたがそんなファンクションプロシージャを開発できれば、
間違いなく歴史に名前を残すことが出来ます。
それでは、皆さんファンクションプロシージャfは１から１０までの和を求めて報告任務
ファンクションプロシージャgは１１から２０までの和を求めて報告する任務として、
マクロを組んでみて下さい。
最初は、引数のないファンクションプロシージャで組んでみて下さい。
実行ボタンを押すと
ファンクションプロシージャの作り方は、サブプロシージャの場合と同じで、
エンターなどでどこかに空白行を作り
function f
と打ってエンターをすればよいのです。
第５講第10話へ 第２話へ
