※以下のような記述で関数の呼び出しと戻り値の利用が可能となる
=== === === === ===【以下は関数の記述例】=== === === === ===
Option Explicit
'▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼
Sub main()
Dim Fa As Long
Dim Fb As Long
Dim Fc As Long
Fa = 0
Fb = 0
Fc = 0
'--- --- --- --- --- --- --- ---
'□ 値をセット
'--- --- --- --- --- --- --- ---
Fa = 2
Fb = 3
Fc = 10
'--- --- --- --- --- --- --- ---
'*** *** *** *** *** *** *** *** *** ***
'■ 関数の結果をセルに反映
'*** *** *** *** *** *** *** *** *** ***
Cells(1, "A") = Func_01(Fa, Fb, Fc)
'*** *** *** *** *** *** *** *** *** ***
End Sub
'▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼
'************************************************
Function Func_01(Ra As Long, Rb As Long, Rc As Long)
Dim Result_01 As Long
MsgBox Ra
MsgBox Rb
MsgBox Rc
'--- --- --- --- --- --- --- ---
'□ 引数を使って計算
'--- --- --- --- --- --- --- ---
Result_01 = Ra + Rb + Rc
'--- --- --- --- --- --- --- ---
'*** *** *** *** *** *** ***
'■ 結果を戻り値とする
'*** *** *** *** *** *** ***
Func_01 = Result_01
'*** *** *** *** *** *** ***
End Function
'************************************************
PR
COMMENT