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

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

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

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

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


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

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

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

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

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

doc друк аркуша за коміркою 2

3. прес F5 ключ для безпосереднього друку аркуша (листів).


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

Якщо у вас є кілька аркушів книги, і ви хочете надрукувати один або кілька аркушів на основі значень комірок із цієї книги, ви можете зробити, як показано нижче:

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

2 Тип "друк”У сусідній комірці поруч із назвою аркуша, якщо ви хочете його надрукувати. Див. Показаний знімок екрана.
doc друк аркуша за коміркою 4

3. прес Alt + F11 клавіші, щоб увімкнути Microsoft Visual Basic для додатків вікно та натисніть Insert > Модулі. Див. Скріншот:
doc друк аркуша за коміркою 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

 doc друк аркуша за коміркою 6

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

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

Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. 
днів, будь ласка, завантажте та отримайте безкоштовну пробну версію зараз.
doc друк аркуша за коміркою 7

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

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

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (0)
Поки немає оцінок. Оцініть першим!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0  Персонажі
Рекомендовані місця