Как да отпечатате определени страници или работен лист въз основа на стойност на клетка в Excel?
Опитвали ли сте някога да отпечатате определена страница или работен лист въз основа на стойност на клетка в Excel? И как да го постигнем? Методите в тази статия могат да ви помогнат да го разрешите в детайли.
Отпечатайте определена страница въз основа на стойност на клетка с VBA код
Отпечатайте определен работен лист въз основа на стойност на клетка с VBA код
Отпечатайте определена страница въз основа на стойност на клетка с VBA код
Например искате определена страница, като например страница 1 от текущия работен лист, да се отпечата автоматично при въвеждане на номер на страница 1 в клетка A1 в текущия работен лист. Можете да направите следното, за да го постигнете.
1. Изберете клетката, която съдържа номера на страницата, въз основа на която искате да отпечатате, след което натиснете Друг намлява F11 клавиши едновременно, за да отворите Microsoft Visual Basic за приложения прозорец. След това щракнете Поставете > Модули.
2. След това Microsoft Visual Basic за приложения изскача прозорец, моля, копирайте и поставете следния VBA код в код прозорец.
VBA код: Отпечатайте страница въз основа на стойността на клетката
Option Explicit
Sub Print_Pages()
Dim xPage As Integer
Dim xYesorNo As Integer
With ActiveCell
If Not IsEmpty(.Value) And IsNumeric(.Value) Then
xPage = .Value
Else: MsgBox "Please specify a cell and enter a page in cell"
Exit Sub
End If
End With
xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
ActiveSheet.PrintOut from:=xPage, To:=xPage, preview:=True
Else
Exit Sub
End If
End Sub3. Натиснете F5 ключ за изпълнение на кода. В изскачащите Kutools за Excel кликнете върху Да бутон, за да отпечатате определена страница, или щракнете върху Не бутон, за да излезете от диалоговия прозорец, ако не искате да печатате. Вижте екранна снимка:
След това се отваря прозорецът за визуализация на определена страница от текущия работен лист, моля, щракнете върху Изпринти бутон, за да започнете да печатате.
Отпечатайте определена страница въз основа на стойност на клетка с VBA код
Да предположим, че искате да отпечатате активния работен лист, когато стойността в клетка B2 на този лист е равна на число 1001. Можете да го постигнете със следния VBA код. Моля, направете следното.
1. Щракнете с десния бутон върху Таб която искате да отпечатате въз основа на стойността на клетката, и след това щракнете Преглед на кода от менюто с десен бутон.
2. След това Microsoft Visual Basic за приложения се появи прозорец, моля, копирайте и поставете следния VBA код в прозореца на кода.
VBA код: Отпечатайте работен лист въз основа на стойността на клетката
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, xYesorNo As Integer
Set xCell = ActiveSheet.Range("B2")
If Application.Intersect(Target, xCell) Is Nothing Then Exit Sub
If xCell.Value = 1001 Then
xYesorNo = MsgBox("Ready to print the specified worksheet? ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
ActiveSheet.PrintOut
Else
Exit Sub
End If
End If
End Sub
Забележка: Можете да промените клетката и стойността на клетката в кода, както е необходимо.
3. Натиснете Друг + Q за да затворите Microsoft Visual Basic за приложения прозорец.
Когато въвеждате число 1001 в клетка B2, a Kutools за Excel изскача диалогов прозорец, моля щракнете върху Да бутон, за да започнете да печатате. Или щракнете върху Не бутон, за да излезете директно от диалоговия прозорец без печат. Вижте екранна снимка:
Свързани статии:
- Как да създадете динамична област за печат в Excel?
- Как да отпечатате само последната страница на работен лист в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
