급여명세서 매크로

실무/엑셀·2016. 3. 2. 17:27

급여명세서 만들기

함수

매크로로 자동으로 출력하기

 

 

 

 

급여명세서_시작.xlsx

 

 

 

 

급여명세서_이름정의까지 폼 만들기 전.xlsx

 

 

Alt + F11

[삽입] - [모듈]

 

[프로시저 추가] 대화상자

매크로의 이름 : OnePrint

형식 : Sub

범위 : Pblic

 

worksheets("명세서").PrintPreview

 

worksheets("명세서")    '명세서' 워크시트를 가리키는 개체

PrintPreview                  인쇄미리보기 실행 메서드

 

[인쇄하기]단추 우클릭에서 OnePrint 매크로 지정

 

 

VB Editor에서 작성하는 VBA 코드를 프로시저라고 부른다.

형식의 Sub 은 특정한 동작을 실행할때 사용하는 프로시저이며, Functio  은 계산을 수행하고 그 결과값을 돌려줄때 사용된다.

보통 매크로 기록기를 이용해서 작성한 코드는 Sub 프로시저이다.

 

 

급여명세서_폼만들기까지.xlsx

 

 


 

[프로시저 추가] 대화상자

매크로의 이름 : AllPrint

형식 : Sub

범위 : Pblic

 

Dim intNo As Integer

Dim intCount As Integer

 

intCount=Range("사번").count

 

For inNo=1 To intCount

  Range("위치")=intNo

  worksheets("명세서").PrintPreview

Next intNo

 

MsgBox "직원 모두" & intCount & "명의 급여명세서가 출력되었습니다."

 

 

worksheets("명세서")    '명세서' 워크시트를 가리키는 개체

PrintPreview                  인쇄미리보기 실행 메서드

 

[인쇄하기]단추 우클릭에서 AllPrint 매크로 지정

 

 

 

 


 

 

Option Explicit


Public Sub PrintOne()
   Worksheets("명세서").PrintPreview
End Sub

 

Public Sub PrintAll()
   Dim intNo As Integer
   Dim intCount As Integer
  
   intCount = Range("사번").Count
  
   For intNo = 1 To intCount
      Range("위치") = intNo
      Worksheets("명세서").PrintPreview
   Next intNo

   MsgBox "직원 모두 " & intCount & "명의 급여명세서가 출력되었습니다."
End Sub

 

 

 


 

 

 

 

 

 

 

급여명세서.xlsx

 

 

댓글