이온디
호스팅센터
웹디벨로퍼
IT프리랜서 커뮤니티
업무관리
스레드
현재글(엑셀 vba 입력메세지창 입력 방법})

Sub 인쇄하기()

  Dim J As Integer
  J = InputBox("몇장인쇄 할까요?")
    For J = 1 To J
       Worksheets(2).Range("A1") = Worksheets(1).Cells(2 * J, 2)
       Worksheets(2).Range("A3") = Worksheets(1).Cells(2 * J + 1, 2)
       ActiveWindow.SelectedSheets.PrintOut
    Next
 End Sub



출처 : https://answers.microsoft.com/ko-kr/msoffice/forum/all/%EC%97%91%EC%85%80-%EB%84%98%EB%B2%84%EB%A7%81/7260ae82-b0d8-48f1-b93d-1794fdafa259

 


내용을 입력하세요
0
댓글은 로그인 사용자만 작성 가능합니다. 로그인하기