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

Share Tips & Tech

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

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

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

2019.02.03 09:45 조회 수

3544

이온디

첨부파일 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 53 / 57 pages

	제목		날짜
59	[엑셀] 오류 해결~!	100	2019/02/04
58	[기타] 네이버지도 api v3 사용하기	458	2019/02/25
57	[윈도우서버] robots.txt 인식이 안될 경우.	118	2019/02/27
56	[사이트관리] 웹사이트 보안검사 멀웨어 체크 / 웹사이트 악성코드 검사방법	191	2019/03/01
55	[하드웨어] LG노트북 LG13Z94 / 13ZD940-GX30K 터치패드 세손가락 드라이버 설치 (윈도우10)	1310	2019/03/29
54	[브라우저] 유투브 공유하기 자동재생 설정(웨일, 크롬)	332	2019/04/06
53	phpmyadmin 설치하기	95	2019/04/24
52	[기타] 마우스 캔버스 터치 사인 저장	173	2019/09/30
51	[엑셀] [엑셀] 원하는 날짜에 해당하는 항목값의 갯수 추출하기	110	2019/10/12
50	[리눅스서버] [solved] Warning: Journal has been rotated since unit was started. Log output is incomplete or unavailable.	1905	2019/12/08
49	[wnmp] XE 설치하기	137	2020/01/11
48	[유틸리티] [FreeCommander] 컬러 스키마 변경	327	2020/01/12