글 수 65
=========================== 1 - 1 ========================================
Dim currentWindowCaption As String
Sub 입력작업()
currentWindowCaption = ActiveWindow.Caption
Sheets("매출표").Select
Application.Goto Sheets("매출표").Range("B" & Sheets("매출표").Range("B65536").End(xlUp).Row + 1)
mcInputForm.Show
mcInputForm.Top = 0
mcInputForm.Left = 350
매출표문서인지확인하기2 (currentWindowCaption) '******************************** 매출표문서인지확인하기
End Sub
=========================== 1 - 2 ========================================
Sub 매출표문서인지확인하기2(ByVal currentWindowCaption As String)
On Error GoTo a:
Windows(currentWindowCaption).Activate
If (0) Then
a: End
End If
End Sub
=========================== 2 - 1 ========================================
Private Sub mc제품필터링하기(ByVal 필터링할제품명 As String)
매출표보기 (1)
Range("B2").Select
Selection.AutoFilter Field:=3, Criteria1:=mcCombo1
스크롤업하기
End Sub
=========================== 2 - 1 ========================================
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