Как распечатать конкретный лист на основе значений ячеек в Excel?
Вы когда-нибудь пробовали напечатать какие-то конкретные листы на основе значения ячейки? В этой статье я расскажу о некоторых примерах по этой проблеме, если вас интересует эта проблема, продолжайте.
Распечатать лист на основе ячейки с VBA
Распечатать лист на основе соседней ячейки с VBA
Распечатать лист на основе ячейки с VBA
Предположим, есть два листа, вы хотите напечатать Sheet1 или Sheet2 или оба листа на основе Cell A1 в Sheet1. Пожалуйста, сделайте как показано ниже:
В этом случае введите 1, чтобы напечатать первый лист, введите 2, чтобы напечатать второй лист, и 3, чтобы напечатать оба листа.
1. Введите 1, 2 или 3, как вам нужно для A1 на первом листе, и нажмите Alt + F11 ключи для открытия Microsoft Visual Basic для приложений окно. Смотрите скриншот:
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
3. Нажмите F5 Клавиша для непосредственной печати листов.
Распечатать лист на основе соседней ячейки с VBA
Если у вас есть несколько листов в книге, и вы хотите распечатать один или несколько листов на основе значений ячеек из этой книги, вы можете сделать следующее:
1. Создайте новый лист с именем Контрольный лист в книге, которую вы используете, и перечислите все имена листов в столбце A (включите или исключите контрольный лист по мере необходимости). Смотрите скриншот:
2. Тип "Распечатать»В соседней ячейке рядом с названием листа, если вы хотите его распечатать. См. Показанный снимок экрана.
3. Нажмите Alt + F11 ключи для включения Microsoft Visual Basic для приложений окно и щелкните Вставить > Модули. Смотрите скриншот ：
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 
После запуска кода лист (ы) будет напечатан прямо сейчас, и в то же время новый контрольный лист заменит старый.
| Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. |
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
