Як виключити певний аркуш під час друку книги?

Якщо у вас є книга, яка містить декілька аркушів, які потрібно надрукувати, але виключити певний, чи існує якийсь швидкий і простий спосіб для нас надрукувати всі аркуші, крім одного, в Excel?

Виключіть певний аркуш під час друку книги з кодом VBA

Виключіть певний аркуш під час друку книги з кодом VBA

Щоб надрукувати всю книгу, крім однієї конкретної таблиці, вам може допомогти наступний код VBA.

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у вікно модуля.

Код VBA: Виключіть певний аркуш під час друку книги:

Private Sub Printexclude()
'Updateby Extendoffcie
    Dim ws As Worksheet
    Dim strShName As String
    On Error Resume Next
    strShName = Application.InputBox("Enter the sheet name you want to exclude:", _
    "Kutools For Excel", , , , , , 2)
    Application.ScreenUpdating = False
    For Each ws In ThisWorkbook.Worksheets
        If ((ws.Visible = xlSheetVisible) And _
         (ws.Name <> strShName)) Then ws.PrintOut
    Next ws
    Application.ScreenUpdating = True
End Sub

3. А потім натисніть F5 клавішу для запуску цього коду, і з'явиться вікно запиту, щоб нагадати вам про введення імені аркуша, яке потрібно виключити під час друку книги, див.

4. Потім натисніть OK та інші робочі аркуші будуть надруковані відразу, за винятком конкретного аркуша, як вам потрібно.

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

	Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
	Супер пошук: VLookup за кількома критеріями  |   Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
	Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
	Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
	Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул   |  Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок   |  Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
	Топ-15 наборів інструментів:  12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

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

Детальніше ... Завантажити безкоштовно...

---

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

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

Детальніше ... Завантажити безкоштовно...