인쇄시 셀값 자동 증가하면서 인쇄하는 방법

Share Tips & Tech

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

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

인쇄시 셀값 자동 증가하면서 인쇄하는 방법

2019.02.03 10:02 조회 수

2688

이온디

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

각 인쇄 후에 셀 값을 자동으로 증가시키는 방법은 무엇입니까?

https://www.extendoffice.com/ko/documents/excel/3606-excel-auto-increment-number-when-printing.html

가정하면, 100 사본을 인쇄 할 필요가있는 워크 시트 페이지가 있습니다. A1 셀은 001이라는 수표 번호입니다. 이제 모든 인쇄 후에 숫자가 1만큼 증가합니다. 즉 두 번째 사본을 인쇄하면 번호가 자동으로 Company-002로 증가하고 세 번째 사본은 번호가 Company-003 ... 백 번째 사본이되고 번호는 Company-100가됩니다. Excel에서이 문제를 신속하게 해결할 수있는 방법이 있습니까?

VBA 코드로 인쇄 할 때마다 셀 값 자동 증가

워크 시트의 홀수, 짝수, 현재 또는 지정된 페이지 인쇄

Excel 용 Kutools's 지정된 페이지 인쇄 유틸리티를 사용하면 필요에 따라 홀수, 짝수, 현재 또는 지정된 페이지를 신속하게 인쇄 할 수 있습니다.

Excel 용 Kutools: 200 이상의 편리한 Excel 추가 기능으로 60 일 동안 아무런 제한없이 시도 할 수 있습니다. 지금 무료 평가판 다운로드 및 다운로드!

VBA 코드로 인쇄 할 때마다 셀 값 자동 증가

놀랄 만한! Excel에서 효율적인 탭 사용하기 Chrome, Firefox, Safari와 같이!

일반적으로 Excel에서이 작업을 직접 해결할 수있는 방법은 없지만 여기서는이를 처리 할 VBA 코드를 만듭니다.

1. 누르고있어. ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈다음 코드를 모듈 창문.

VBA 코드 : 각 인쇄 후 자동으로 셀 값 증가 :

Sub IncrementPrint()
'updateby Extendoffice 20160530
    Dim xCount As Variant
    Dim xScreen As Boolean
    Dim I As Long
    On Error Resume Next
LInput:
    xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
    If TypeName(xCount) = "Boolean" Then Exit Sub
    If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
        MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
        GoTo LInput
    Else
        xScreen = Application.ScreenUpdating
        Application.ScreenUpdating = False
        For I = 1 To xCount
            ActiveSheet.Range("A1").Value = " Company-00" & I
            ActiveSheet.PrintOut
        Next
        ActiveSheet.Range("A1").ClearContents
        Application.ScreenUpdating = xScreen
    End If
End Sub

3. 그런 다음 F5 키를 눌러이 코드를 실행하고 프롬프트 상자가 튀어 나와 현재 워크 시트를 인쇄 할 사본 수를 입력하라는 메시지가 표시되면 스크린 샷을 참조하십시오.

1을 인쇄 할 때 문서가 증가합니다.

4. 딸깍 하는 소리 OK 버튼을 누르면 현재 워크 시트가 인쇄되는 동시에 인쇄 된 워크 시트는 필요한 경우 A001 셀에 Company-002, Company-003, Company-1 ...라는 번호가 매겨집니다.

주의 사항: 위의 코드에서 셀 A1 주문한 일련 번호가 삽입되며, 원래 셀 값은 A1 삭제됩니다. 그리고 "회사 -00"는 시퀀스 번호이므로 필요에 따라 변경할 수 있습니다.

권장 생산성 도구

사무실 탭

Chrome, Firefox 및 새 Internet Explorer와 마찬가지로 Excel 및 기타 Office 소프트웨어에 편리한 탭을 가져옵니다.

Excel 용 Kutools

금색 star1 놀랄 만한! 5 분 동안 생산성을 높입니다. 매일 2 시간을 절약 할 수있는 특별한 기술이 필요하지 않습니다!

금색 star1 300 Excel의 새로운 기능, Excel을 훨씬 쉽고 강력하게 만듭니다 :

데이터 손실없이 셀 / 행 / 열 병합.
여러 시트 및 통합 문서 결합 및 통합.
범위 비교, 여러 범위 복사, 날짜, 단위 및 통화 변환 텍스트 변환.
색상, 페이징 부분합, 고급 정렬 및 수퍼 필터,
추가 선택 / 삽입 / 삭제 / 텍스트 / 형식 / 링크 / 주석 / 통합 문서 / 워크 시트 도구 ...

첨부파일

Total 683 articles in 56 / 57 pages

	제목		날짜
23	[워드프로세서] 지정된 경로를 찾을 수 없습니다	16906	2009/10/10
22	[윈도우] SkyDrive 편리하게 사용하기(윈도우 탐색기로 이용하는 방법)	18237	2011/04/02
21	[미디어/녹음·재생] flac mp3 변환	18370	2011/01/28
20	[브라우저] IE 인코딩 고정하기 [6]	18435	2004/05/22
19	[브라우저] 파이어폭스 추천 확장기능 [2] [1]	18573	2007/11/12
18	[생활] 고등학교 졸업증명서 인터넷으로 출력가능합니다(공인인증서 필요!!!!).~~	18823	2007/09/10
17	[웹로그] 프로젝트에서 마일스톤이란?	18841	2012/12/14
16	[윈도우] Program Files 저장 위치 바꾸기	18901	2010/07/26
15	[브라우저] 구글 크롬 플러스에서 오른쪽 마우스 해제 하기(플러그인 이용) [1]	19013	2011/05/14
14	[윈도우] 윈도우 7 64비트 서비스팩1 설치 실패	19501	2013/10/29
13	[기본] 중국으로 문자 보내기 [11]	20332	2010/09/11
12	[생활] 효과적인 사진 폴더 정리 비법.	21523	2010/12/30