Excel VBA - 모듈 내에서 매크로를 실행하는 방법

Question

고객 및 제품 데이터가있는 배달 노트 스프레드 시트가 있습니다. '인쇄뿐만 아니라 저장하고 싶습니까?'라는 질문을 클릭했을 때보 다 버튼이 필요합니다. 모듈이 자체적으로 실행될 때 제대로 작동하는 파일을 저장할 매크로를 기록했지만 아래 코드에서 모두 함께 사용하면 'Compile Error : Expected End Sub'오류가 발생합니다. else 부분도 자체적으로 잘 실행됩니다. 이 오류를 해결하고 실행 코드를 얻으려면 어떻게해야합니까? 감사합니다

Private Sub CommandButton1_Click() 
MsgBox "Do you want to Save as well as Print?", vbYesNo 
If answer = vbYes Then 
Sub mac_SaveNote() 
ChDir "C:\Users\User\Desktop\DeliveryNotes" 
ActiveWorkbook.SaveAs Filename:="C:\Users\User\Desktop\DeliveryNotes\" & Range("A11"), _ 
    FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 
End Sub 
Else 
Sheets("Note 1").PrintOut , Copies:=2 'prints 2 copies of note1 
Range("A11:J16").ClearContents   'clears customer data 
Range("A18:I42").ClearContents   'clears product data 
End If 
End Sub 

Answer 1

두 가지 방법 :

이 첫 번째에서 하위를 이동하고 단순히 전화

: 하위 부분을

Private Sub CommandButton1_Click() 
MsgBox "Do you want to Save as well as Print?", vbYesNo 
If answer = vbYes Then 

    mac_SaveNote 

Else 
    Sheets("Note 1").PrintOut , Copies:=2 'prints 2 copies of note1 
    Range("A11:J16").ClearContents   'clears customer data 
    Range("A18:I42").ClearContents   'clears product data 
End If 
End Sub 

Sub mac_SaveNote() 
ChDir "C:\Users\User\Desktop\DeliveryNotes" 
ActiveWorkbook.SaveAs Filename:="C:\Users\User\Desktop\DeliveryNotes\" & Range("A11"), _ 
    FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 
End Sub 

또는 그대로 그냥 코드를 실행하고 제거

Private Sub CommandButton1_Click() 
MsgBox "Do you want to Save as well as Print?", vbYesNo 
If answer = vbYes Then 

    ChDir "C:\Users\User\Desktop\DeliveryNotes" 
    ActiveWorkbook.SaveAs Filename:="C:\Users\User\Desktop\DeliveryNotes\" & Range("A11"), _ 
     FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 

Else 
    Sheets("Note 1").PrintOut , Copies:=2 'prints 2 copies of note1 
    Range("A11:J16").ClearContents   'clears customer data 
    Range("A18:I42").ClearContents   'clears product data 
End If 
End Sub