Excel에서 셀 값에 따라 특정 시트를 인쇄하는 방법은 무엇입니까?

셀 값에 따라 특정 시트를 인쇄해 본 적이 있습니까? 이 문서에서는 이 문제를 해결하기 위한 몇 가지 예제를 제공하겠습니다. 관심이 있으시다면 계속 읽어주세요.

VBA를 사용하여 셀에 기반한 시트 인쇄

VBA를 사용하여 인접 셀에 기반한 시트 인쇄

VBA를 사용하여 셀에 기반한 시트 인쇄

두 개의 시트가 있다고 가정하고, Sheet1의 A1 셀에 따라 Sheet1 또는 Sheet2 또는 두 시트 모두를 인쇄하려고 합니다. 아래와 같이 진행하세요:

이 경우 1을 입력하면 첫 번째 시트를 인쇄하고, 2를 입력하면 두 번째 시트를 인쇄하며, 3을 입력하면 두 시트 모두를 인쇄합니다.

1. 첫 번째 시트의 A1 셀에 필요에 따라 1, 2 또는 3을 입력하고 Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 클릭하세요 삽입 > 모듈그리고 아래 코드를 모듈 스크립트에 붙여넣습니다. 스크린샷을 참조하세요:

VBA: 셀 값에 따른 시트 인쇄

Sub PrintStuff()
'UpdayebyExtendoffice20180811
    Dim xRgVal As Variant
    Dim xSheets As Sheets
    Set xSheets = ActiveWorkbook.Worksheets
    xRgVal = xSheets(1).Range("A1").Value
    If (IsNumeric(xRgVal)) And (Len(xRgVal) = 1) Then
        Select Case xRgVal
            Case 1
                xSheets(1).PrintOut
            Case 2
                xSheets(2).PrintOut
            Case 3
                xSheets(1).PrintOut
                xSheets(2).PrintOut
            Case Else
                MsgBox "Enter1, 2 or 3 into A1 (1 print Sheet1 2 print Sheet2 3 print Sheet1 and Sheet2 ", , "KuTools For Excel"
                Exit Sub
            End Select
    Else
        Exit Sub
    End If
End Sub

3. F5 키를 눌러 바로 시트를 인쇄합니다.

VBA를 사용하여 인접 셀에 기반한 시트 인쇄

워크북에 여러 시트가 있고, 워크북의 셀 값에 따라 하나 또는 여러 시트를 인쇄하려는 경우 아래와 같이 할 수 있습니다:

1. 사용 중인 워크북에 Control Sheet 라는 새 시트를 만들고 열 A에 모든 시트 이름을 나열합니다 (필요에 따라 제어 시트를 포함하거나 제외). 스크린샷을 참조하세요:

2. 인쇄하려는 시트 이름 옆의 인접한 셀에 “print”라고 입력합니다. 표시된 스크린샷을 참조하세요.

3. Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 활성화하고 삽입 > 모듈을 클릭합니다. 스크린샷을 참조하세요:

4. 아래 코드를 모듈에 붙여넣고 F5 키를 눌러 코드를 실행합니다.

VBA: 인접 셀에 따른 인쇄

Sub CreateControlSheet()
'UpdatebyExtendoffice20170811
    Dim i As Integer
    Dim xCSheetRow As Integer
    Dim xSName As String
    Dim xCSheet As Variant
    Dim xRgVal As String
    On Error Resume Next
    xSName = "Control Sheet"
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set xCSheet = ActiveWorkbook.Worksheets(xSName)
    xCSheetRow = xCSheet.Range("B65536").End(xlUp).Row
    For i = 2 To xCSheetRow
        xRgVal = xCSheet.Range("B" & i).Value
        If xRgVal = "Print" Or xRgVal = "print" Then
            If xCSheet.Range("A" & i).Value <> "" Then
                ActiveWorkbook.Worksheets(xCSheet.Range("A" & i).Value).PrintOut
            End If
        End If
    Next
    xCSheet.Delete
    ActiveWorkbook.Worksheets.Add
    ActiveSheet.Name = "Control Sheet"
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Sheet Name"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Print?"
    For i = 1 To ActiveWorkbook.Worksheets.Count
        Range("A" & i + 1).Value = ActiveWorkbook.Worksheets(i).Name
    Next
    Cells.Columns.AutoFit
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

코드를 실행한 후, 시트가 즉시 인쇄되며 동시에 새로운 Control Sheet가 이전 것을 대체합니다.

팁: Kutools for Excel이 있다면 링크 테이블 생성 유틸리티를 사용하여 새 시트에 모든 시트 이름 목록을 클릭 가능한 링크로 빠르게 생성할 수 있습니다.