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에서이 문제를 신속하게 해결할 수있는 방법이 있습니까?
워크 시트의 홀수, 짝수, 현재 또는 지정된 페이지 인쇄 Excel 용 Kutools's 지정된 페이지 인쇄 유틸리티를 사용하면 필요에 따라 홀수, 짝수, 현재 또는 지정된 페이지를 신속하게 인쇄 할 수 있습니다. Excel 용 Kutools: 200 이상의 편리한 Excel 추가 기능으로 60 일 동안 아무런 제한없이 시도 할 수 있습니다. 지금 무료 평가판 다운로드 및 다운로드! |
일반적으로 Excel에서이 작업을 직접 해결할 수있는 방법은 없지만 여기서는이를 처리 할 VBA 코드를 만듭니다.
1. 누르고있어. ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.
2. 딸깍 하는 소리 끼워 넣다 > 모듈다음 코드를 모듈 창문.
VBA 코드 : 각 인쇄 후 자동으로 셀 값 증가 :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | 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 키를 눌러이 코드를 실행하고 프롬프트 상자가 튀어 나와 현재 워크 시트를 인쇄 할 사본 수를 입력하라는 메시지가 표시되면 스크린 샷을 참조하십시오.
4. 딸깍 하는 소리 OK 버튼을 누르면 현재 워크 시트가 인쇄되는 동시에 인쇄 된 워크 시트는 필요한 경우 A001 셀에 Company-002, Company-003, Company-1 ...라는 번호가 매겨집니다.
주의 사항: 위의 코드에서 셀 A1 주문한 일련 번호가 삽입되며, 원래 셀 값은 A1 삭제됩니다. 그리고 "회사 -00"는 시퀀스 번호이므로 필요에 따라 변경할 수 있습니다.
Chrome, Firefox 및 새 Internet Explorer와 마찬가지로 Excel 및 기타 Office 소프트웨어에 편리한 탭을 가져옵니다.
놀랄 만한! 5 분 동안 생산성을 높입니다. 매일 2 시간을 절약 할 수있는 특별한 기술이 필요하지 않습니다!
300 Excel의 새로운 기능, Excel을 훨씬 쉽고 강력하게 만듭니다 :
제목 | 날짜 | ||
---|---|---|---|
467 | [파일관리/압축] 대용량 파일전송 프로그램(FileZilla Server, serio, Berrys Webshare) | 3412 | 2015/01/21 |
466 | [기타] 인터넷공유기 KT 허브 | 3463 | 2017/06/26 |
465 | [GitHub] Git 을 사용해봅시다! (1부) [출처] Git 을 사용해봅시다! (1부) | 3510 | 2014/08/04 |
464 | [엑셀] 엑셀함수에서 1씩증가하여 인쇄하는법 | 3545 | 2019/02/03 |
463 | 오픈아이디 관련글 | 3549 | 2008/12/23 |
462 | [GitHub] 처음으로 깃/깃허브 설정하기 | 3575 | 2014/08/04 |
461 | [엑셀] 엑셀 vba if문 빠져나오기(break, exit) | 3790 | 2019/02/04 |
460 | [GitHub] 깃허브(GitHub) 시작하기 (by 이온디) | 3860 | 2014/08/23 |
459 | 동영상 변환하기 | 3876 | 2008/12/17 |
458 | REMOTE VIEWER | 3898 | 2008/08/30 |
457 | [윈도우] WindowsUpdate_80070011 오류 해결법 | 3910 | 2014/09/03 |
456 | 미니위니 플래시 뮤직박스 0.1 | 4059 | 2008/08/01 |