엑셀함수에서 1씩증가하여 인쇄하는법

Share Tips & Tech

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

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

엑셀함수에서 1씩증가하여 인쇄하는법

2019.02.03 09:45 조회 수

3545

이온디

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

https://tip.daum.net/question/85549264

1. 엑셀 파일을 열고 Alt + F11 키를 눌러 엑셀 VBA 창을 엽니다.
2. 메뉴 - 삽입 - 모듈을 클릭하여 모듈을 삽입합니다.
3. 다음의 코드를 복사(Ctrl + C)하여 모듈 창에 붙여넣기(Ctrl + V)합니다.
Sub 인쇄()
' 인쇄 횟수
Dim a As Integer
a = Cells(2, 5) + 1
'(2,5)는 인쇄 횟수를 표시하는 셀의 주소 입니다.
'2는 두번째 행을 나타내고, 5는 다섯번째 열을 나타냅니다.
Cells(2, 5) = a
'(2,5)는 인쇄 횟수를 표시하는 셀의 주소 입니다.
ActiveWindow.SelectedSheets.PrintOut
End Sub
Sub 클리어()
Cells(2, 5) = 0 '(2,5)는 인쇄 횟수를 표시하는 셀의 주소 입니다.
End Sub
4. 아래 이미지처럼 되었습니다.

5. Alt + F11 키를 눌러 엑셀 화면으로 돌아갑니다.
6. 메뉴 - 개발 도구 - 삽입 - 양식 컨트롤 - 단추를 클릭하고 엑셀 화면에 단추를 그립니다.
7. 매크로 지정 창이 표시되면 인쇄를 선택하고 확인을 누릅니다.
8. 단추위에서 마우스 우클릭하고 텍스트 편집을 눌러 이름을 "인쇄"로 바꿔줍니다.
9. 메뉴 - 개발 도구 - 삽입 - 양식 컨트롤 - 단추를 클릭하고 엑셀 화면에 단추를 그립니다.
10. 매크로 지정 창이 표시되면 클리어를 선택하고 확인을 누릅니다.
11. 단추위에서 마우스 우클릭하고 텍스트 편집을 눌러 이름을 "클리어"로 바꿔줍니다.

첨부파일

Total 683 articles in 36 / 57 pages

	제목		날짜
263	[기본] 탐색기 파일 목록 텍스트로 저장하기	7674	2007/10/23
262	[사이트관리] 서브도메인을 라온넷에 연결하기	7693	2012/12/03
261	[모바일] 스마트폰 어플계의 '히든 챔피언'을 소개합니다 [2]	7791	2012/09/05
260	[기본] SnagIt, Camtasia 무료 배포	7820	2007/12/04
259	[기본] 플래시 시계 [2]	7827	2007/12/10
258	[하드웨어] 아이락스 키보드 구매기	7838	2009/05/10
257	[하드웨어] V840 컴퓨터와 연결하기	7879	2009/05/17
256	[모바일] 다음 웹툰 앱 등장!	7887	2013/06/10
255	[하드웨어] 아버지 컴퓨터 사양	7888	2007/10/07
254	[브라우저] 파이어폭스 설치된 플러그인을 다른 컴퓨터에서도 사용하는 방법	7896	2007/10/27
253	[웹로그] 초보자 파이어폭스 사용하기 및 기본적인 추천플러그인 (작성 중 임시)	7903	2007/10/07
252	[생활] CGV/롯데시네마/메가박스/프리머스 영화 싸게보는법! 재밌는 영화, 할인받아보자	7904	2013/12/16