「Excel VBA」Functionプロシージャのサンプル

2022年7月1日

構文
Function プロシージャ名([引数]) as 戻り値のデータ型
プロシージャ名 = 戻り値
End Function
書式
Function メソッド名(変数名) As データの型
処理コード
End Function

使用例

Sub funA()
    If cftDig(44) = False Then
       'ダイアログが表示される
        MsgBox "結果エラ123456"
    End If

End Sub

'Functionプロシージャを実行 戻り値のデータ型Boolean
Function cftDig(n) As Boolean

    If Not (n = 43) Then
       '値をセット
        cftDig = False
        'Functionを抜ける
        Exit Function
    End If
   '値をセット
    cftDig = True
End Function

実行結果
「結果エラ123456」が表示されます。