|
Option Explicit
Public Const PD_데이터_타이틀R As Long = 1
Public Const PD_데이터_헤더R As Long = 2
Public Const PD_데이터_시작R As Long = 3
Public Const PD_데이터_시작C As Long = 1
Public Const PD_데이터_데이터시작C As Long = 2
Sub 데이터생성_서식출력()
Dim OrgSheet As Worksheet
Dim tmpSheet As Worksheet
Dim NowSheet As Worksheet
Dim tmpEndR As Long
Dim tmpEndC As Long
Dim NowSRow As Long
Dim NowRowCount As Long
Dim tmpRange As Range
Dim SaveRange As Range
Dim I As Long
Dim J As Long
Set tmpSheet = Sheets("데이터")
Set OrgSheet = Sheets("출력양식")
Set tmpRange = tmpSheet.Cells(PD_데이터_헤더R, PD_데이터_시작C).CurrentRegion
tmpEndR = tmpRange.Cells(tmpRange.Rows.Count, 1).Row
tmpEndC = tmpRange.Cells(1, tmpRange.Columns.Count).Column
For I = PD_데이터_시작R To tmpEndR
If Len(tmpSheet.Cells(I, PD_데이터_시작C)) > 0 Then
For J = PD_데이터_시작C + 1 To tmpEndC
If Len(tmpSheet.Cells(PD_데이터_타이틀R, J)) > 0 Then
OrgSheet.Range(tmpSheet.Cells(PD_데이터_타이틀R, J)) = tmpSheet.Cells(I, J)
End If
Next
Dim rngA As Range '변수 지정
Application.ScreenUpdating = False '코드 실행 중 차트와 같은 화면 업데이트 방지'
Application.Calculation = xlCalculationManual '코드 실행 중 셀 계산 방지'
Application.EnableEvents = False ' 이벤트 실행 방지'
For Each rngA In Sheets("출력양식").Range("E34:E37")
If rngA.Value = "" Or rngA.Value = 0 Then
rngA.EntireRow.Hidden = True
Else
rngA.EntireRow.Hidden = False
End If
Next
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
OrgSheet.PrintPreview
End If
Next
End Sub
------------------------------------
매크로 내용이 프린트 하는 파일 입니다.
알려주신 내용을 넣어보니.
매크로가 멈추는거 같아요,,
다르게 설정해야 할까요~?
|
|