개발자 소통방 팁&테크 PHP 한글코딩 인터뷰 안드로이드 오픈API 파이썬 Flutter PHP스톰 웹스톰 Intellij $user_lang->userLang20180820030538048 Editplus SublimeText 소프트웨어 웹CGI IE Toy jwFreeNote

엑셀 vba 입력메세지창 입력 방법

2019년 02월 04일

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