Перейти к основному содержанию

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

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

Исключить определенную ячейку или область из печати, настроив формат ячейки
Исключить определенную ячейку или область из печати с помощью кода VBA


Исключить определенную ячейку или область из печати, настроив формат ячейки

Как показано на скриншоте ниже, вам нужно исключить строки с номерами 5 и 9 при печати рабочего листа. Перед печатью вы можете настроить формат определенной ячейки или области, чтобы скрыть содержимое ячейки для достижения этого. Пожалуйста, сделайте следующее.

1. Выберите ячейку или область, которые вы исключите из печати (здесь я выбираю несколько диапазонов A6: C6 и A10: C10), затем нажмите Ctrl + 1 одновременно, чтобы открыть диалоговое окно Формат ячеек.

2. в Формат ячеек диалоговое окно, нажмите На заказ в Категории поле под Номер регистрации tab, затем введите три точки с запятой ;;; в Тип поле и, наконец, щелкните OK кнопка. Смотрите скриншот:

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

Примечание. После печати можно удалить точки с запятой, введенные на шаге 2, в диалоговом окне «Формат ячеек», чтобы отобразить содержимое ячейки.


Исключить определенную ячейку или область из печати с помощью кода VBA

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

1. Нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окно, дважды щелкните Эта рабочая тетрадь в Проект панели, а затем скопируйте и вставьте приведенный ниже код VBA в ThisWorkbook (Код) окно.

Код VBA: исключить определенную ячейку или область из печати в Excel

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim xIndex As Long
    If ActiveSheet.Name = "Sheet1" Then
        Cancel = True
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        With ActiveSheet
            xIndex = .Range("A6:C6,A10:C10").Font.ColorIndex
            .Range("A6:C6,A10:C10").Font.Color = vbWhite
            .PrintOut
            .Range("A6:C6,A10:C10").Font.ColorIndex = xIndex
        End With
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
    MsgBox "Print completed!", vbInformation, "Kutools for Excel"
End Sub

Внимание: В коде Sheet1 - это имя активного листа, которое нужно напечатать, а A6: C6, A10: C10 - это диапазоны, которые вы исключите из печати. Пожалуйста, измените их в соответствии с вашими потребностями.

3. Нажмите другой + Q одновременно нажмите клавиши, чтобы закрыть окно Microsoft Visual Basic для приложений.

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


Статьи по теме:

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

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

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

Описание


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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (3)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
I've recieved an error in my line:

xIndex = .Range("B52:K92").Font.ColorIndex
This comment was minimized by the moderator on the site
Hi Maria,
After modifying the ranges in the VBA code, please press the "Save" button to save the code first, then go to print.
This comment was minimized by the moderator on the site
__________
Rated 5 out of 5
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations