반응형

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