Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

Как печатать определенные страницы или лист на основе значения ячейки в Excel?

Author Siluvia Last modified

Возникала ли у вас необходимость печатать определенные страницы или листы в Excel на основе значения ячейки? Будь то печать конкретного номера страницы или целого листа при выполнении условия, это руководство предоставляет пошаговые методы для достижения этой цели.

Печать определенной страницы на основе значения ячейки с помощью кода VBA
Печать определенного листа на основе значения ячейки с помощью кода VBA


Печать определенной страницы на основе значения ячейки с помощью кода VBA

Например, вы хотите, чтобы определенная страница, например страница 1 текущего листа, автоматически печаталась при вводе номера страницы 1 в ячейку A1 текущего листа. Вы можете сделать следующее, чтобы этого добиться.

1. Выберите ячейку, содержащую номер страницы, который вы хотите напечатать, затем нажмите клавиши Alt и F11 одновременно, чтобы открыть окно Microsoft Visual Basic for Applications. Затем нажмите Вставить > Модуль.

2. Затем появится окно Microsoft Visual Basic for Applications, пожалуйста, скопируйте и вставьте следующий код VBA в окно Кода.

Код 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 Sub

3. Нажмите клавишу F5, чтобы запустить код. В появившемся диалоговом окне Kutools for Excel нажмите кнопку Да, чтобы напечатать определенную страницу, или кнопку Нет, чтобы закрыть диалоговое окно, если вы не хотите печатать. См. скриншот:

A screenshot of the Kutools for Excel dialog box for printing a specific page based on a cell value

Затем открывается окно предварительного просмотра определенной страницы текущего листа, пожалуйста, нажмите кнопку Печать, чтобы начать печать.

A screenshot of the Print Preview window


Печать определенной страницы на основе значения ячейки с помощью кода VBA

Предположим, вы хотите напечатать активный лист, когда значение в ячейке B2 этого листа равно числу 1001. Вы можете достичь этого с помощью следующего кода VBA. Пожалуйста, сделайте следующее.

1. Щелкните правой кнопкой мыши вкладку Листа, который вы хотите напечатать на основе значения ячейки, а затем выберите Просмотр кода из контекстного меню.

2. Затем появится окно Microsoft Visual Basic for Applications, пожалуйста, скопируйте и вставьте следующий код 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

A screenshot showing where to insert VBA code for printing based on a cell value in Excel

Примечание: Вы можете изменить ячейку и значение ячейки в коде по своему усмотрению.

3. Нажмите Alt + Q, чтобы закрыть окно Microsoft Visual Basic for Applications.

При вводе числа 1001 в ячейку B2 появляется диалоговое окно Kutools for Excel, пожалуйста, нажмите кнопку Да, чтобы начать печать. Или нажмите кнопку Нет, чтобы закрыть диалоговое окно без печати. См. скриншот:

A screenshot of the Kutools for Excel dialog box for confirming worksheet printing based on cell value

Совет: Если вы хотите напрямую печатать не последовательные страницы, такие как страницы 1, 6 и 9 в текущем листе, или печатать только все четные или нечетные страницы, вы можете попробовать функцию Печать указанных страниц из Kutools for Excel, как показано на скриншоте ниже.

A screenshot of the Kutools for Excel Print Specified Pages utility for selective printing

Kutools для Excel - Усильте Excel более чем 300 необходимыми инструментами. Наслаждайтесь постоянно бесплатными функциями ИИ! Получите прямо сейчас


Связанные статьи:

Лучшие инструменты для повышения продуктивности в Office

🤖 Kutools AI Aide: Совершенно новый подход к анализу данных благодаря: Интеллектуальное выполнение |  Генерация кода  |  Создание пользовательских формул |  Анализ данных и построение диаграмм  |  Вызов Kutools Functions
Популярные функции: Поиск, выделение или отметка дубликатов | Удалить пустые строки | Объединить столбцы или адреса без потери данных | Округлить ...
Супер ПОИСК: VLOOKUP по нескольким критериям | VLOOKUP по нескольким значениям | Многолистовой поиск | Распознавание нечетких соответствий ...
Расширенный раскрывающийся список: Быстро создать раскрывающийся список | Зависимый раскрывающийся список | Множественный выбор в раскрывающемся списке ...
Менеджер столбцов: Добавить определённое количество столбцов | Переместить столбцы | Переключить видимость скрытых столбцов | Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка фокусировки | Дизайн листа | Улучшенная строка формулы | Управление книгой и листами | Библиотека автотекста | Выбор даты | Объединить данные | Зашифровать/расшифровать ячейки | Отправить письмо по списку | Супер фильтр | Специальный фильтр (фильтр жирный/курсив/зачеркнутый...) ...
Топ15 наборов инструментов:12 текстовых инструментов (Добавить текст, Удалить определенные символы, ...) |50+ типов диаграмм (Диаграмма Ганта, ...) |40+ полезных формул (Расчет возраста на основе даты рождения, ...) |19 инструментов для вставки (Вставить QR-код, Вставить изображение по пути, ...) |12 инструментов преобразования (Преобразовать в слова, Конвертация валюты, ...) |7 инструментов объединения и разделения (Расширенное объединение строк, Разделить ячейки, ...) | ... и многое другое
Используйте Kutools на предпочитаемом вами языке — поддерживает Английский, Испанский, Немецкий, Французский, Китайский и более40 других языков!

Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...


Office Tab добавляет вкладки в Office и делает вашу работу намного проще

  • Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
  • Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!

Все надстройки Kutools. Один установщик

Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.

Excel Word Outlook Tabs PowerPoint
  • Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
  • Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
  • Совместная работа — максимальная эффективность между приложениями Office
  • 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
  • Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек