엑셀함수에서 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 49 / 57 pages

	제목		날짜
107	[윈도우] 복구 콘솔을 하드에 설치하는 방법	11079	2008/08/30
106	[텔넷] SSH 사용방법 - 리눅스 명령어	11107	2004/05/07
105	[윈도우] 키보드로 클릭 대신하기	11125	2013/06/11
104	[모바일] [안드로이드]할일 관리 어플, GTasks [1]	11129	2011/11/14
103	[기타] 각 포털사이트 별 서비스 비교	11152	2004/05/26
102	[네트워크] 윈도우98 이용하는 컴에서 윈도우2000 이용하는 컴에 들어가는 방법	11163	2003/10/06
101	[사이트관리] robots.txt 작성방법	11210	2009/07/01
100	[미디어/녹음·재생] 윈도8 태블릿용 팟플레이어 추천 스킨 : 매트로X	11260	2013/06/22
99	[웹로그] BlogAPI를 이용해서 제로보드XE에 글 올리기	11275	2007/11/18
98	[모바일] 에코모바일 3G접속과 MMS수신을 위한 APN설정	11335	2013/06/13
97	[윈도우] '날씬하고 날렵하게' 윈도우7 최적화 실용 팁테크	11361	2011/11/23
96	[웹로그] 알약 설치 후 - AYServiceNT.aye 라는 서비스는 왜 자동 시작되는 걸까? [3] [2]	11378	2007/11/12