値を返すFunction プロシージャ
Function名へ値を代入して、計算結果を呼び出し元へ返します。
実行前に確認
- 戻り値はFunction名へ代入します。VBAではReturn 値という構文は使いません。
- このPrivate Functionは同じモジュール内用です。セルの数式で使う例はユーザー定義関数のページを参照します。
- Excel実機での動作は未確認です。コピーした練習用ブックで試してください。
1サンプルコード
Option Explicit
Sub Example7034()
Dim result As Double
result = Area7034(6, 4)
MsgBox "面積：" & result
End Sub
Private Function Area7034(ByVal width As Double, ByVal height As Double) As Double
Area7034 = width * height
End Function図で見る値を返すFunction プロシージャの流れ
イメージ図Function名へ値を代入して、計算結果を呼び出し元へ返します。
入力・開始時
Area7034へ幅6・高さ4を渡す
実行する処理
Function名へ6×4の計算結果を代入
結果
呼び出し元で面積：24と表示
セルの値や既存のファイルを変更しない例です。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する4つの手順で、コードの使い方を確認できます
- 1
デスクトップ版Excelで練習用ブックを.xlsm形式で保存します。Alt＋F11→［挿入］→［標準モジュール］を選び、空のモジュールの先頭にこの例全体を貼り付けます。
- 2
書き換えは不要です。まず例の値のままで試し、値や変数名を変える場合は同じ名前の箇所も揃えます。
- 3
Example7034のSub内にカーソルを置き、F5キーで実行します。
- 4
Functionから6×4の結果が返り、「面積：24」と表示されます。