【Excel-VBA】Functionの引数 戻り値 

Function プロシージャ名(ByVal 引数名1 As データ型, ByVal 引数名2 As データ型, ・・・) As 戻り値のデータ型
プロシージャ名 = 戻り値
End Function

Sub macro3()
Dim str As String
str = func3(2, 3)
MsgBox str, vbInformation
End Sub

Function func3(ByVal num1 As Integer, ByVal num2 As Integer) As String
Dim mul As Integer
mul = num1 * num2
func3 = CStr(num1) & ” * ” & CStr(num2) & ” = ” & CStr(mul)
End Function

コメントを残す

メールアドレスが公開されることはありません。