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

	제목		날짜
11	[생활] 사진 정리(송현정)	21991	2010/12/30
10	[X61] 레노버 X61 무선 인터넷 제한됨 해결방법 (인텔 무선인터넷 드라이버 재설치)	22080	2013/07/04
9	[브라우저] 구글 크롬 플러스 마우스 오른쪽 버튼 해제하기(즐겨찾기 이용)	22297	2011/05/14
8	[텔넷] tar.gz, zip, rar 압축파일의 압축하기 및 압축풀기의 텔넷 명령어	23032	2004/05/01
7	[모바일] [컬러링]skt 컬러링 설정하기	25126	2011/11/16
6	[웹로그] svn이란?	25968	2012/12/14
5	[생활] 스타크래프트 뉴포커디펜스 팁	28179	2011/03/01
4	무료 FTP 사이트	29821	2007/11/20
3	[윈도우] AppData 위치 경로 변경 이동(아이튠즈 때문에 c드라이브 용량 부족한 문제 해결방법)(강추) [1]	32257	2011/08/29
2	[텔넷] [추천]SSH 파일 관리 명령어 - 폴더,파일의 삭제 및 압축/해제 [4]	56720	2007/03/30
1	[네트워크] KT 기가 공유기 와이파이 비밀번호 및 관리자 설정	73557	2015/11/25