Functionプロシージャーを使おう

大きなプログラムをコーディングするときは、関数を多用する必要が出てきます。
ここでは、値の受け渡しが出来るようFunctionプロシージャーを勉強しましょう。
最初にByVal、ByRefを勉強してそれからFunctionプロシージャーに入ります。

■ Byvalを使おう

次のコードを実行してみましょう。関数が2つあるので注意してください。

Sub Main()
 
 Dim a As Integer
 a = 1
 Dim i As Integer
 
 For i = 0 To 5
  Call Message1(a)
  MsgBox a
 Next
 
End Sub
--------------------------------------------------------------------
Private Sub Message1(ByVal b As Integer)
 
 b = b + 1
 MsgBox b
 
End Sub

Call Message1
上のコードサンプルは２つの関数から構成されていることがお分かりになると思います。
①Main関数、②関数1という名前ですが、①Main関数を実行中に関数1を実行させるとき
Callを使用します。条件によってはCallを使用しなくてもよい場合がありますが、
すべてCallをつけておけば安心なのでとりあえず付けておきましょう。　
Call Message1(a)
Callに関しては上で説明しましたが、その後ろに怪しげなaが付いています。これは
引数と呼ばれるもので関数Message1にaという変数を渡すという意味です。
Message1(Byval　ｂ　As　Integer)
いつもはMessage１()で終わるところですが、なにやら奇妙な変数が定義されています。
勘のいいかたはお気づきかもしれませんが、先ほどMessage1関数で渡そうとしていたaという
変数を受け取りますよ、その受け取った変数をここではbとして使いますよ、という意味です。
Message1関数で変数３を渡してきたらbに３を代入してメッセージボックスで４を表示する関数
ということになります。

ちょっとややこしいですが、この辺をクリアしないと初級にはなれません。頑張りましょう。

■ Byrefを使おう

下のコードを実行してみてください。先ほどとは少し結果が違ってくると思います。

Sub Main()
 
 Dim a As Integer
 a = 1
 Dim i As Integer
 
 For i = 0 To 5
  Call Message2(a)
  MsgBox a
 Next
 
End Sub
--------------------------------------------------------------------

Private Sub Message2(ByRef b As Integer)
 
 b = b + 1
 MsgBox b
 
End Sub

先ほどとの違いはMessage2(ByRef　ｂ　As　Integer)の部分がByValがByRefになっただけです。
意外と参考書等には記載されていませんがとても重要です（とわたしも会社の方から教えてもらいました）。
違いは、ByValが値渡しにたいしてByRefが参照渡しという違いがあります、と大抵の参考書には書いてあります。
先ほどの結果はMessage関数がaの値に影響を与えませんでしたが、今回はaの値ごと変更していることが
わかります。

うまく説明できませんが、サンプル関数の結果をよく考えて理解してください。

■ Functionプロシージャーを使おう

下のコードを実行してみてください。

Sub Main()

 Dim i As Integer
 
  For i = 1 To 5
   MsgBox Message(i)
  Next

End Sub
--------------------------------------------------------------------

 Function Message(ByVal a As Integer) As String

  If a > 3 Then
   Message = "引数は３より大きいです"
  ElseIf a = 3 Then
   Message = "引数は３です"
  Else
   Message = "引数は３よりちいさいです"
  End If

 End Function

これだけでは、説明不足かも知れませんが活用できるようになりましょう。