WEB 웹팁 디자인팁 폰트 컬러 UI/UX 모바일UI Widget 디자인소스 기획팁 웹서비스 회사복지 스타트업 회사후기 메모/서식 퍼블팁 추천사이트 HTML•CSS 자바스크립트 jQuery React 앵귤러JS Node.js Codepen 개발팁 PHP 한글코딩 인터뷰 안드로이드 오픈API 파이썬 Flutter 서버관리팁

엑셀 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

이온디 유한회사 | 사업자번호 : 405-86-01061 | 통신판매신고 : 제2018-대구동구-0767호 [사업자확인]
주소. 대구광역시 동구 안심로16길 71, 5층 502호 / 전화. 0507-1433-0311