６．プログラム単位（関数）
６－１ 関数プロシージャの宣言
例えば，三角関数などの数学関数と同様，呼び出されるとユーザが設定した値を返すことのできる関数を作成することができる．これを
[Public | Private | Friend] [Static]
Function関数名 [(仮引数，仮引数，…)] [As型]
プロシージャ本体
関数名 ＝ 値
End Function
ここで，Public，Private，Friend，Staticは省略可能で以下の意味がある．
プロシージャ本体
関数名 ＝ 値
| Public | すべてのモジュールのすべてのプロシージャから参照を可能にする |
| Private | プロシージャを記述したモジュール以外からアクセスできないようにする |
| Friend | プロジェクト全体から参照できるがオブジェクトのインスタンスのコントローラからは参照できない |
| Static | プロシージャ内のローカル変数の値を保持する |
６－２ 関数プロシージャの呼び出し
先に定義した関数を呼び出す場合は，数学関数の場合と同様に行うことができる．呼び出すときの引数が
実引数（ Ａ，Ｂ，Ｃ，Ｄ ）
↓ ↓ ↓ ↓
仮引数（ Ｂ，Ｄ，Ａ，Ｃ ）
↓ ↓ ↓ ↓
仮引数（ Ｂ，Ｄ，Ａ，Ｃ ）
- ①
「1-5節(1)」 の①～⑩の手順でコマンドボタンを作成し，コードウィンドウを表示する． - ②（
プログラム例6-1 ）を入力する．「DegToRad」が度をラジアンに変換するユーザー作成の関数である．ここで，呼び出したときの引数名ｄ（実引数），関数側の引数名Deg（仮引数）が異なっている．このように，呼び出し側の引数と関数側の引数の名前は一致している必要はなく型の整合性さえとれていればよい．ここでは，仮引数Degは実引数と同じ型になるよう，「Deg As Single」のように，型宣言とともにコーディングしている．関数から値を返すため，プロシージャ本体において，変換後の値をDegtoRadに代入している． - ③ Excel表示ボタンでシートを表示し，デザインモードを解除する．
- ④ セルA1に変換したい角度を度で記入する．
- ⑤ コマンドボタンをクリックすると，A2にラジアンに変換された値が表示される． （プログラム例6-1）
Private Sub CommandButton1_Click()
Dim d As Single
d = Range("A1").Value
Range("A2").Value = DegToRad(d)
End Sub
Function DegToRad(Deg As Single) As Single
Dim pai As Single
pai = 3.141593
DegToRad = Deg / 180# * pai
End Function
（プログラム例6-1の結果）
Dim d As Single
d = Range("A1").Value
Range("A2").Value = DegToRad(d)
End Sub
Function DegToRad(Deg As Single) As Single
Dim pai As Single
pai = 3.141593
DegToRad = Deg / 180# * pai
End Function
６－３ 配列データの引き渡し
引数により配列データを関数プロシージャに引き渡す場合，先頭アドレスを渡すことで対応関係を確保している．仮引数は，右の例のように，配列の要素数を指定せず（）のみを付ければよい． （引数が配列の場合）
仮引数→（配列名() as type, …）
- ①
「1-5節(1)」 の①～⑩の手順でコマンドボタンを作成し，コードウィンドウを表示する． - ②（
プログラム例6-2 ）を入力する．引数により配列データを関数プロシージャに引き渡す場合，先頭アドレスを渡すことで対応関係を確保している．プログラム例は１次元配列の例で，引数の箇所では配列の要素数を指定せず（ ）のみを付けている． - ③ Excel表示ボタンでシートを表示し，デザインモードを解除する．
- ④ セルA1～A3にベクトルの成分を記入する．
- ⑤ コマンドボタンをクリックすると，B1に成分の合計値が表示される． （プログラム例6-2）
Private Sub CommandButton1_Click()
Dim MatA(3) As Integer
Dim i As Integer, Total As Integer
For i = 1 To 3
MatA(i) = Cells(i,1).value
Next i
Total = VectSum(MatA())
Range("B1").Value = Total
End Sub
Function VectSum(MatA() As Integer) As Integer
Dim i As Integer
VectSum = 0
For i = 1 To 3
VectSum = VectSum + MatA(i)
Next i
End Function
（プログラム例6-2の結果）
Dim MatA(3) As Integer
Dim i As Integer, Total As Integer
For i = 1 To 3
MatA(i) = Cells(i,1).value
Next i
Total = VectSum(MatA())
Range("B1").Value = Total
End Sub
Function VectSum(MatA() As Integer) As Integer
Dim i As Integer
VectSum = 0
For i = 1 To 3
VectSum = VectSum + MatA(i)
Next i
End Function
Function VectSum(MatA() As Integer) As Integer
Dim i As Integer
VectSum = 0
For i = 1 To UBound(MatA, 1)
VectSum = VectSum + MatA(i)
Next i
End Function
配列が２次元になっても基本的な考え方は同じで，仮引数を１次元配列同様に，以下のようにする．
（引数が２次元配列の場合）Dim i As Integer
VectSum = 0
For i = 1 To UBound(MatA, 1)
VectSum = VectSum + MatA(i)
Next i
End Function
仮引数→（２次元配列名() as type, …）
- ①
「1-5節(1)」 の①～⑩の手順でコマンドボタンを作成し，コードウィンドウを表示する． - ②（
プログラム例6-3 ）を入力する．引数における（ ）の取り扱いは１次元配列の場合と全く同じである．ただし，UBound(MatA,2)のように2となっているのは配列MatAにおける２次元目を意味している． - ③ セルA1～A3，B1～B3に２次元配列の成分を記入する．
- ④ コマンドボタンをクリックすると，C1に成分の合計値が表示される． （プログラム例6-3）
Private Sub CommandButton1_Click()
Dim MatA(3,2) As Integer
Dim Total As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 1 to 2
MatA(i, j) = Cells(i,j).Value
Next j
Next i
Total = MatSum(MatA())
Range("C1").Value = Total
End Sub
Function MatSum(MatA() As Integer) As Integer
Dim i As Integer, j As Integer
MatSum = 0
For j = 1 To UBound(MatA, 2)
For i = 1 To UBound(MatA, 1)
MatSum = MatSum +MatA(i, j)
Next i
Next j
End Function
（プログラム例6-3の結果）
Dim MatA(3,2) As Integer
Dim Total As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 1 to 2
MatA(i, j) = Cells(i,j).Value
Next j
Next i
Total = MatSum(MatA())
Range("C1").Value = Total
End Sub
Function MatSum(MatA() As Integer) As Integer
Dim i As Integer, j As Integer
MatSum = 0
For j = 1 To UBound(MatA, 2)
For i = 1 To UBound(MatA, 1)
MatSum = MatSum +MatA(i, j)
Next i
Next j
End Function
