Как распечатать определенные страницы или рабочий лист на основе значения ячейки в Excel?
Вы когда-нибудь пытались распечатать определенную страницу или рабочий лист на основе значения ячейки в Excel? И как этого добиться? Методы, описанные в этой статье, могут помочь вам решить эту проблему в деталях.
Распечатать определенную страницу на основе значения ячейки с кодом VBA
Распечатать определенный рабочий лист на основе значения ячейки с кодом VBA
Распечатать определенную страницу на основе значения ячейки с кодом VBA
Например, вы хотите, чтобы определенная страница, такая как страница 1 текущего рабочего листа, печаталась автоматически при вводе номера страницы 1 в ячейку A1 текущего рабочего листа. Для этого вы можете сделать следующее.
1. Выберите ячейку, содержащую номер страницы, на основе которой вы хотите напечатать, затем нажмите другой и F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно. Затем нажмите Вставить > Модули.
2. Затем Microsoft Visual Basic для приложений появится всплывающее окно, скопируйте и вставьте следующий код VBA в Code окно.
Код VBA: печать страницы на основе значения ячейки
Option Explicit
Sub Print_Pages()
Dim xPage As Integer
Dim xYesorNo As Integer
With ActiveCell
If Not IsEmpty(.Value) And IsNumeric(.Value) Then
xPage = .Value
Else: MsgBox "Please specify a cell and enter a page in cell"
Exit Sub
End If
End With
xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
ActiveSheet.PrintOut from:=xPage, To:=xPage, preview:=True
Else
Exit Sub
End If
End Sub3. Нажмите F5 ключ для запуска кода. В всплывающем Kutools for Excel диалогового окна, нажмите Да кнопку, чтобы распечатать определенную страницу, или нажмите кнопку Нет , чтобы выйти из диалогового окна, если вы не хотите печатать. Смотрите скриншот:
После этого откроется окно предварительного просмотра определенной страницы текущего рабочего листа, нажмите Печать / PDF кнопку, чтобы начать печать.
Распечатать определенную страницу на основе значения ячейки с кодом VBA
Предположим, вы хотите распечатать активный рабочий лист, когда значение в ячейке B2 этого листа равно числу 1001. Вы можете добиться этого с помощью следующего кода VBA. Пожалуйста, сделайте следующее.
1. Щелкните правой кнопкой мыши Вкладка листа который вы хотите напечатать на основе значения ячейки, а затем щелкните Просмотреть код из контекстного меню.
2. Затем Microsoft Visual Basic для приложений появится всплывающее окно, скопируйте и вставьте следующий код VBA в окно кода.
Код VBA: распечатать лист на основе значения ячейки
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, xYesorNo As Integer
Set xCell = ActiveSheet.Range("B2")
If Application.Intersect(Target, xCell) Is Nothing Then Exit Sub
If xCell.Value = 1001 Then
xYesorNo = MsgBox("Ready to print the specified worksheet? ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
ActiveSheet.PrintOut
Else
Exit Sub
End If
End If
End Sub
Внимание: Вы можете изменить ячейку и значение ячейки в коде по своему усмотрению.
3. Нажмите другой + Q закрыть Microsoft Visual Basic для приложений окно.
При вводе числа 1001 в ячейку B2 появляется Kutools for Excel появится диалоговое окно, нажмите Да кнопку, чтобы начать печать. Или щелкните Нет , чтобы выйти из диалогового окна напрямую без печати. Смотрите скриншот:
Статьи по теме:
- Как создать динамическую область печати в Excel?
- Как распечатать только последнюю страницу листа в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
