반응형

Dim rtn As String

 

Sub sub01()
        Call fncName(va)
        tmp= rtn
        Cells(1, 1) = tmp
End Sub

Public Function fncName(ByVal va As Integer) As String
    rtn = va
    fncName = rtn
End Function

1) sub01에서 fncName을 호출한다 

     (Sub가 Function을 호출한다)

2) Function은 return값이 있다.

3) 반환할 rtn변수를 선언해 두고 function에서 사용한다.

4) 반활할때 function의 이름에 반환할 변수를 대입해준다.

5)Function에 입력받을 변수에 ByVal을 반드시 선언해야 한다.

 

=============================

진짜 그지같네...

+ Recent posts