Как скрыть ячейку для печати в 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 диалоговое окно, как показано на скриншоте ниже. И вы можете видеть, что указанные диапазоны являются пробелами на распечатке.

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

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

Here is a stab at the code you require. Hiding and unhiding rows is easy if you know how. I printed a worksheet with the macro recorder on so you can see how you could tailor the printing if you wish. I would set a shortcut key to run this macro.

Option Explicit
Sub PrintNonBlankColA()

  Dim RowCrnt As Integer
  Dim RowLast As Integer

  ' Note: This operates on the active worksheet

  Application.ScreenUpdating = False

  RowLast = Cells.SpecialCells(xlCellTypeLastCell).Row

  ' Hide all rows with a used cell and column "A" empty
  For RowCrnt = 1 To RowLast
    If IsEmpty(Cells(RowCrnt, "A")) Then
      Range(RowCrnt & ":" & RowCrnt).EntireRow.Hidden = True
    End If
  Next

  ' For the following statements, I switched on the macro recorder,
  ' printed a sheet with all the headers and footers I wanted,
  ' switched off the macro recorder and copied the code out of the
  ' saved macro.
  ' Consider: .CenterHeader = "Activities for Acme Inc"
  ' If you name the worksheets for the client, the following would
  ' give you a heading for the appropriate client:
  ' .CenterHeader = "Activities for " & ActiveSheet.Name
  With ActiveSheet.PageSetup
      .PrintTitleRows = ""
      .PrintTitleColumns = ""
  End With
  ActiveSheet.PageSetup.PrintArea = ""
  With ActiveSheet.PageSetup
      .LeftHeader = ""
      .CenterHeader = "Activities for Acme Inc"
      .RightHeader = ""
      .LeftFooter = "&D"
      .CenterFooter = "Page &P of &N"
      .RightFooter = "Copyright Nadir Co."
      .LeftMargin = Application.InchesToPoints(0.75)
      .RightMargin = Application.InchesToPoints(0.75)
      .TopMargin = Application.InchesToPoints(1)
      .BottomMargin = Application.InchesToPoints(1)
      .HeaderMargin = Application.InchesToPoints(0.5)
      .FooterMargin = Application.InchesToPoints(0.5)
      .PrintHeadings = False
      .PrintGridlines = False
      .PrintComments = xlPrintNoComments
      .CenterHorizontally = False
      .CenterVertically = False
      .Orientation = xlPortrait
      .Draft = False
      .PaperSize = xlPaperA4
      .FirstPageNumber = xlAutomatic
      .Order = xlDownThenOver
      .BlackAndWhite = False
      .Zoom = 100
      .PrintErrors = xlPrintErrorsDisplayed
  End With
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

  ' Unhide all rows
  Cells.EntireRow.Hidden = False

End Sub

Loading above code to a module

From within Excel:

• Select Tools then Macro then Visual Basic Editor. Alternatively, click Alt+F11. You will probably see the Project Explorer down the left, the Immediate window in the bottom with the bulk of the screen grey.
• Select Insert then Module. The grey section will go white.
• Copy and paste my code into the now white section. The macro can now be run against any sheet.

Using macro

• Switch to Excel.
• Select Tools then Macro then Macros.... Alternatively, click Alt+F8. A small Macro window will be displayed. You will only have one macro so it will be selected and the Run button will be active.

You can run the macro by clicking Alt+F8 then Enter but you might find the following more convenient.

• From the Macro window, select Options. You will now see a small Macro Options window.
• Enter a letter (I always use q) into the little box and click OK.
• Close the Macro Window.

You can now switch to the appropriate client’s work sheet and click Ctrl+q to run the macro.

Adjust the macro to your requirements

In the middle of my code is my idea of how you might set up a report with «Activities for Acme Inc» at the top and date, page number and copyright at the bottom.

Replace this code as follows:

• From Excel, select Tools then Macro then Record New macro. You see a small Record Macro window.
• Make sure the text box under «Store macro in:» says «This Workbook».
• Click OK. The window disappears. You may see a very small window with a square button labelled Stop recording. If this window is visible, ignore it for the moment.
• Print a client report with whatever headings, footers, margins, etc. you require.
• If you can see the small window, click it. If you cannot see it, select Tools then Macro then Stop Recording.
• Switch to the Visual Basic Editor. There will be a new Module. Click on it in the Project Explorer Window.
• You will see Sub Macro1() all the statements to print a client report the way you like and End Sub.
• Copy those statements (not sub and end sub) and paste them over the top of the equivalent statements in my macro.

If you do not include anything like client name in your report headers and footers, your macro will be ready for use. I give one example in my code where I use the worksheet name the report header. Without knowing your exact requirements I cannot be more precise but I hope this gives you a start.

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

Предотвратить печать содержимого ячеек, изменив цвет шрифта

Предотвратить печать содержимого ячеек, скрывая

Запретить печать содержимого ячеек с помощью Kutools for Excel

Запретить ячейку содержимое от печати путем изменения цвета шрифта

Чтобы предотвратить печать содержимого ячейки, вы можете изменить цвет шрифта ячейки, чтобы его нельзя было увидеть при печати. ​​

1. Выберите ячейки, которые вы не хотите печатать, затем нажмите Главная > Цвета шрифта , затем выберите цвет, который совпадает с цветом вашего фона из списка. . См. Снимок экрана:

Здесь мой фон белый, я выбираю белый цвет шрифта. Теперь вы можете видеть мои данные, как показано на скриншоте ниже:

2. Теперь вы можете нажать Файл или Office Button > Печать , чтобы просмотреть рабочий лист.

Запретить печать содержимого ячеек путем скрытия

Есть несколько способов скрыть содержимое ячейки, чтобы оно не было напечатано.

Метод 1 Форматирование ячеек как “”; “”; “”; “”

1. Выберите ячейки, которые вы не будете печатать, и щелкните правой кнопкой мыши, чтобы выбрать Форматировать ячейки в контекстном меню.

2. В диалоговом окне Формат ячеек на вкладке Число нажмите Пользовательский в списке Категория , введите “”; “”; “”; “” в текстовое поле Тип в правом разделе. См. Снимок экрана:

3. Нажмите OK , теперь содержимое ячейки скрыто

Способ 2 Щелкните правой кнопкой мыши, чтобы скрыть весь столбец или строку

Если вы не печатаете весь столбец или строку, вы можете щелкнуть заголовок строки или столбца, чтобы выбрать всю строку или столбец, затем щелкните правой кнопкой мыши, чтобы выбрать Скрыть из контекстного меню. См. Снимок экрана:

Метод 3 Используйте Сгруппировать, чтобы скрыть весь столбец или строку

1. Выберите столбец или строку, которую хотите скрыть, а затем нажмите Данные > Группа .. См. Снимок экрана:

2. Затем появится диалоговое окно Группа , если вы хотите скрыть строки, установите флажок Строки , если вы хотите скрыть столбцы, установите флажок Столбцы и нажмите OK .

Примечание : если вы выбрали для группировки целые столбцы или целые строки, просто пропустите этот шаг.

3. Затем отметьте кнопку «минус», чтобы скрыть столбцы или строки. См. Скриншоты:

Запретить печать содержимого ячеек с помощью Kutools for Excel

После бесплатной установки Kutools for Excel, сделайте следующее:

1. Нажмите Kutools Plus > Инструменты печати > Мастер печати множественного выбора . См. Снимок экрана:

2. В появившемся диалоговом окне нажмите кнопку с плюсом, чтобы добавить выделение для печати. См. Снимок экрана:

3. Затем появится диалоговое окно для выбора вариантов, вы можете нажать клавишу Ctrl , чтобы выбрать сразу несколько вариантов. См. Снимок экрана:

4. Нажмите OK , после чего вы увидите, что несколько вариантов добавлены в Диапазон для печати , теперь нажмите Далее . См. Снимок экрана:

4. Затем в диалоговом окне Шаг 2 из 3 отметьте нужный параметр настройки печати и нажмите Далее.

5. На последнем шаге выберите нужный вариант, здесь я просто выбираю Активировать лист, но не печатать его , нажимаю Готово .

Теперь он создаст новый рабочий лист перед всеми листами. , чтобы отобразить все диапазоны, выбранные в диалоговом окне Шаг 1 из 3, и распечатать его. См. Снимок экрана:

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

Запретить печать содержимого ячеек

Ответы:

""; ""; ""; ""

;;;

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If ActiveSheet.Name = "Sheet1" Then
        Cancel = True
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        With ActiveSheet
            .Rows("10:15").EntireRow.Hidden = True
            .PrintOut
            .Rows("10:15").EntireRow.Hidden = False
        End With
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

        With ActiveSheet
            .Range("B1,D1").EntireColumn.Hidden = True
            .PrintOut
            .Range("B1,D1").EntireColumn.Hidden = False
        End With

        With ActiveSheet
            On Error Resume Next
            .Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
            .PrintOut
            .Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False
            On Error GoTo 0
        End With