Note: The other languages of the website are Google-translated. Back to English

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

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

Распечатать лист на основе ячейки с VBA

Распечатать лист на основе соседней ячейки с VBA


Распечатать лист на основе ячейки с VBA

Предположим, есть два листа, вы хотите напечатать Sheet1 или Sheet2 или оба листа на основе Cell A1 в Sheet1. Пожалуйста, сделайте как показано ниже:

В этом случае введите 1, чтобы напечатать первый лист, введите 2, чтобы напечатать второй лист, и 3, чтобы напечатать оба листа.

1. Введите 1, 2 или 3, как вам нужно для A1 на первом листе, и нажмите Alt + F11 ключи для открытия Microsoft Visual Basic для приложений окно. Смотрите скриншот:
документ распечатать лист по ячейке 1

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

документ распечатать лист по ячейке 2

3. Нажмите F5 Клавиша для непосредственной печати листов.


Распечатать лист на основе соседней ячейки с VBA

Если у вас есть несколько листов в книге, и вы хотите распечатать один или несколько листов на основе значений ячеек из этой книги, вы можете сделать следующее:

1. Создайте новый лист с именем Контрольный лист в книге, которую вы используете, и перечислите все имена листов в столбце A (включите или исключите контрольный лист по мере необходимости). Смотрите скриншот:
документ распечатать лист по ячейке 3

2. Тип "Распечатать»В соседней ячейке рядом с названием листа, если вы хотите его распечатать. См. Показанный снимок экрана.
документ распечатать лист по ячейке 4

3. Нажмите Alt + F11 ключи для включения Microsoft Visual Basic для приложений окно и щелкните Вставить > Модули. Смотрите скриншот :
документ распечатать лист по ячейке 5

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

 документ распечатать лист по ячейке 6

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

Наконечник.Если у вас есть Kutools for ExcelАвтора Создать список имен листов утилита, вы можете быстро создать список всех имен листов на новом листе с помощью интерактивной ссылки. Это полная функция без ограничений в

Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. 
дней, пожалуйста, скачайте и получите бесплатную пробную версию сейчас.


документ распечатать лист по ячейке 7

Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (0)
Оценок пока нет. Оцените первым!
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL