글 수 65
Sub 함수이름( ByVal View_type As Integer ) '정수를 값으로 받을때..
End Sub
Sub 함수이름( ByRef target As String ) '문자를 참조영역으로 받을때..
End Sub
Sub 함수이름( myText As MSForms.TextBox ) '폼의 텍스트 상자를 변수로 받을 때..
End Sub
----------------------------------------------------------------------------------------------------
■ 전역변수의 선언
Public myTxtBox As MSForms.TextBox '달력이 있는 유저폼을 호출한 텍스트 상자를 담을 전역 변수를 선언
■ 매개변수 전달을 위한 외부함수(모듈)
Sub dhFormShow(myText As MSForms.TextBox)
Set myX = myText
UserForm1.Show
End Sub
■ 모듈에서 변수 전달하는 방법
Application.Run "Book1!dhFormShow", Me.TextBox1
----------------------------------------------------------------------------------------------------
Sub 매출표보기(ByVal View_type As Integer)
매출표문서인지확인하기1 '******************************** 매출표문서인지확인하기
On Error GoTo MC_error:
If (View_type <> 1) Then
입력창숨기기
Else
Application.GoTo Sheets("매출표").Range("B" & Sheets("매출표").Range("B65536").End(xlUp).Row + 1)
End If
If (0) Then
MC_error: MsgBox "에라났음ㅠ_ㅠ매출표보기에서", , "에라 창"
End If
End Sub