Excel에서 셀 값을 기반으로 특정 시트를 인쇄하는 방법은 무엇입니까?

셀 값을 기반으로 특정 시트를 인쇄 해 본 적이 있습니까? 이 기사에서는이 문제에 대한 몇 가지 예에 대해 이야기 할 것입니다.이 문제에 관심이 있으시면 계속 진행하십시오.

VBA를 사용하여 셀을 기반으로 시트 인쇄

VBA로 인접한 셀을 기반으로 시트 인쇄

---

VBA를 사용하여 셀을 기반으로 시트 인쇄

두 장의 시트가 있다고 가정하면 Sheet1의 Cell A2을 기반으로 Sheet1 또는 Sheet1 또는 두 시트를 모두 인쇄하려고합니다. 다음과 같이하십시오 :

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

1. 첫 번째 시트에 A1에 필요한대로 2, 3 또는 1을 입력하고 Alt + F11 여는 열쇠 응용 프로그램 용 Microsoft Visual Basic 창문. 스크린 샷보기 :

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. 이름이 지정된 새 시트를 만듭니다. 제어 시트 사용하는 통합 문서에서 A 열에 모든 시트 이름을 나열합니다 (필요에 따라 제어 시트를 포함하거나 제외). 스크린 샷보기 :

2. 유형 "인쇄”를 인쇄하려면 시트 이름 옆에있는 인접한 셀에 입력하십시오. 표시된 스크린 샷을 참조하십시오.

3. 프레스 Alt + F11 활성화하는 키 응용 프로그램 용 Microsoft Visual Basic 창을 클릭 한 다음 끼워 넣다 > 모듈. 스크린 샷보기 :

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

 

코드를 실행하면 시트가 바로 인쇄되고 동시에 새 컨트롤 시트가 이전 시트를 대체합니다.

팁.당신이 있으면 Excel 용 Kutools의 시트 이름 목록 만들기 유틸리티를 사용하면 클릭 가능한 링크를 통해 새 시트의 모든 시트 이름 목록을 빠르게 만들 수 있습니다.

일, 지금 다운로드하여 무료 평가판을 받으십시오.