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

Share Tips & Tech

각종 팁&정보를 나누는 곳입니다.
누군가에게 도움이 된다 싶으시면 언제라도 포스팅 :)

글 등록하기 | 내글 관리하기 | 연재글 | 보관함

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

2019.02.04 14:39 조회 수

이온디

첨부파일 https://imweb.eond.com/webtip/414869

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

Total 683 articles in 19 / 57 pages

	제목		날짜
467	[파일관리/압축] 대용량 파일전송 프로그램(FileZilla Server, serio, Berrys Webshare)	3412	2015/01/21
466	[기타] 인터넷공유기 KT 허브	3463	2017/06/26
465	[GitHub] Git 을 사용해봅시다! (1부) [출처] Git 을 사용해봅시다! (1부)	3510	2014/08/04
464	[엑셀] 엑셀함수에서 1씩증가하여 인쇄하는법	3545	2019/02/03
463	오픈아이디 관련글	3549	2008/12/23
462	[GitHub] 처음으로 깃/깃허브 설정하기	3575	2014/08/04
461	[엑셀] 엑셀 vba if문 빠져나오기(break, exit)	3790	2019/02/04
460	[GitHub] 깃허브(GitHub) 시작하기 (by 이온디)	3860	2014/08/23
459	동영상 변환하기	3876	2008/12/17
458	REMOTE VIEWER	3898	2008/08/30
457	[윈도우] WindowsUpdate_80070011 오류 해결법	3910	2014/09/03
456	미니위니 플래시 뮤직박스 0.1	4059	2008/08/01