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