주석 부탁합니다.



파일 첨부합니다.





Private Sub 버튼_종료_Click()

    Me.Hide

End Sub



Private Sub 버튼_출력_Click()

    Application.ScreenUpdating = 0

    

    If Me.대상_조회자료 Then

        조회자료_출력

    Else

        주소록_전체출력

    End If

    Me.Hide

    

    Application.ScreenUpdating = 1

End Sub



Sub 주소록_전체출력()

    If Me.형식_엑셀파일 Then

        주소록_엑셀_개별_양식출력

    Else

    End If

End Sub



Sub 조회자료_출력()

    If Me.형식_엑셀파일 Then

        조회_엑셀_개별_양식출력

    Else

    End If

End Sub



Sub 조회_엑셀_개별_양식출력()

    With 조회.Range("a4").CurrentRegion

        For r = 2 To .Rows.Count

            엑셀_개별_양식출력 .Cells(r, "a")

        Next

    End With

End Sub



Sub 주소록_엑셀_개별_양식출력()

    With 자료.Range("a1").CurrentRegion

        For r = 2 To .Rows.Count

            엑셀_개별_양식출력 .Cells(r, "a")

        Next

    End With

End Sub



Sub 엑셀_개별_양식출력(ByVal a As Range)

    양식.Range("a5") = a(1, "a")

    양식.Copy

    With ActiveSheet.UsedRange

        .Value = .Value

    End With

    

    Dim sPath$

    sPath = ThisWorkbook.Path & "\개별엑셀\"

    If Dir(sPath, vbDirectory) = Empty Then

        MkDir sPath

    End If

    

    With ActiveWorkbook

        .SaveAs sPath & a(1, 2)

        .Close

    End With

End Sub