Як надрукувати конкретний аркуш на основі значень комірок в Excel?

Ви коли-небудь пробували друкувати певні аркуші на основі значення комірки? У цій статті я розповім про кілька прикладів з цього питання. Якщо вас зацікавила ця проблема, будь ласка, продовжуйте.

Друк аркуша на основі комірки з VBA

Друк аркуша на основі сусідньої комірки з VBA

---

Друк аркуша на основі комірки з VBA

Припустимо, що є два аркуші, ви хочете надрукувати аркуш1 або аркуш2 або обидва аркуші на основі комірки А1 у аркуші1. Будь ласка, виконайте наведені нижче дії.

У цьому випадку введення 1 означає друк першого аркуша, введення 2 - друку другого аркуша та 3 - друку обох аркушів.

1. На першому аркуші введіть 1, 2 або 3, якщо вам потрібно А1, і натисніть Alt + F11 клавіші, щоб відкрити Microsoft Visual Basic для додатків вікно. Дивіться знімок екрана:

2. клацання Insert > Модулі, і вставте нижче код в Модулі сценарій. Дивіться знімок екрана:

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 для додатків вікно та натисніть Insert > Модулі. Див. Скріншот:

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

 

Після запуску коду аркуш (и) буде надруковано прямо зараз, і одночасно новий контрольний аркуш замінить старий.

Порада.Якщо у вас є Kutools для ExcelАвтора Створіть список назв аркушів Ви можете швидко створити список усіх імен аркушів на новому аркуші за допомогою посилання, яке можна натиснути.

днів, будь ласка, завантажте та отримайте безкоштовну пробну версію зараз.