[엑셀 실무 예제] 일일 업무 스테이션 -2/2 (조건부서식, VLOOKUP, 매크로)

엑셀 실무 예제, 일일 업무 스테이션 매크로 편을 이제 시작해 보겠습니다. 매크로에 대한 기본적인 개념이 궁금하신 분들은 아래링크의 포스팅을 참고해 주세요.

 

2023.12.13 - [엑셀 실무 예제] - 엑셀 매크로 기록 사용예제

엑셀 매크로 기록 사용예제

 

2023.12.07 - [엑셀 실무 예제] - 엑셀 매크로 사용 설정하는 방법

엑셀 매크로 사용 설정하는 방법

 

 

 1 . 실무예제 매크로

 실행순서 

1. 프린터 선택

2. 원하는 파일 OPEN

3. 특정위치에 입력된 숫자만큼 프린터

4. 파일 CLOSE

Sub OZ_ICN_LABEL()
  Call printerset_Zebra
  Application.Workbooks.Open FileName:="C:\Users\qcpar\OneDrive\Desktop\PMC SKID Label-4X6.xlsx"
  Worksheets("OZ ICN").PrintOut From:=1, To:=Sheets("YP ICN").Range("C10"), Copies:=2, Preview:=False
  Call FILE_CLOSE_SKID
End Sub

 

 

1. Sub OZ_ICN_LABEL() : 매크로 이름을 Sub OZ_ICN_LABEL() 로 정의합니다.

2. Call printerset_Zebra :  매크로 printerset_Zebra 를 불러옵니다.

3. Application.Workbooks.Open FileName:="C:\Users\qcpar\OneDrive\Desktop\PMC SKID Label-4X6.xlsx" : 해당위치의 파일을 Open 합니다. " " 사이의 경로만 변경하여 사용하시면 됩니다.

4. Worksheets("OZ ICN").PrintOut From:=1, To:=Sheets("YP ICN").Range("C10"), Copies:=2, Preview:=False : Open된 파일에서 OZ ICN 시트를 프린트하라

  To:=Sheets("YP ICN").Range("C10"), 페이지 끝번호입니다. 해당시트 YP ICN의 C10에 있는 숫자만큼 프린터 합니다.

  Copies:=2 : 인쇄 매수입니다. 2장씩 프린트합니다.

  Preview:=False : 미리 보기를 활성하지 않습니다. 프린트 미리보기를 원하시는 분들은 True로 변경해 보세요

5. Call FILE_CLOSE_SKID : 매크로 이름 FILE_CLOSE_SKID 을 불러옵니다.

6. End Sub : 매크로 마침

 

---

Sub printerset_Zebra()
  Application.Dialogs(xlDialogPrinterSetup).Show 
End Sub

 

1.  Application.Dialogs(xlDialogPrinterSetup).Show : 현재 내 컴퓨터에 등록된 프린터 선택화면을 띄워주는 명령어입니다.

 

---

 

Sub FILE_CLOSE_SKID()
  ActiveWorkbook.Close SaveChanges:=False, FileName:="C:\Users\qcpar\OneDrive\Desktop\PMC SKID Label-4X6.xlsx"""
End Sub

 

1. ActiveWorkbook.Close SaveChanges:=False, FileName:="C:\Users\qcpar\OneDrive\Desktop\PMC SKID Label-4X6.xlsx""" : 해당위치의 파일을 저장하지 않고 Close 하라는 명령어입니다.

 

 

공감과 댓글은 글쓴이에게 많은 힘이 됩니다.