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
제목 | 날짜 | ||
---|---|---|---|
[엑셀] 엑셀 vba 입력메세지창 입력 방법 | 93 | 2019/02/04 | |
2 | [엑셀] 오류 해결~! | 100 | 2019/02/04 |
1 | [엑셀] [엑셀] 원하는 날짜에 해당하는 항목값의 갯수 추출하기 | 110 | 2019/10/12 |