Kako natisniti določene strani ali delovni list na podlagi vrednosti celice v Excelu?
Ste že kdaj poskusili tiskati določeno stran ali delovni list na podlagi vrednosti celice v Excelu? In kako to doseči? Metode v tem članku vam lahko pomagajo pri podrobnejšem reševanju.
Natisnite določeno stran na podlagi vrednosti celice s kodo VBA
Natisnite določen delovni list na podlagi vrednosti celice s kodo VBA
Natisnite določeno stran na podlagi vrednosti celice s kodo VBA
Na primer, želite, da se določena stran, na primer stran 1 trenutnega delovnega lista, samodejno natisne ob vnosu strani številka 1 v celico A1 na trenutnem delovnem listu. Za dosego lahko storite naslednje.
1. Izberite celico s številko strani, na kateri želite natisniti, nato pritisnite druga in F11 tipke hkrati, da odprete Microsoft Visual Basic za aplikacije okno. Nato kliknite Vstavi > Moduli.
2. Nato Microsoft Visual Basic za aplikacije Odpre se okno, kopirajte in prilepite naslednjo kodo VBA v Koda okno.
Koda VBA: Natisnite stran na podlagi vrednosti celice
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 Sub
3. Pritisnite F5 tipko za zagon kode. V pojavnem oknu Kutools za Excel pogovorno okno, kliknite na Da , če želite natisniti določeno stran, ali kliknite Ne za izhod iz pogovornega okna, če ne želite tiskati. Oglejte si posnetek zaslona:
Nato se odpre okno za predogled določene strani trenutnega delovnega lista, kliknite na Tiskanje za začetek tiskanja.
Natisnite določeno stran na podlagi vrednosti celice s kodo VBA
Recimo, da želite natisniti aktivni delovni list, ko je vrednost v celici B2 tega lista enaka številki 1001. To lahko dosežete z naslednjo kodo VBA. Naredite naslednje.
1. Z desno miškino tipko kliknite Zavihek lista ki ga želite natisniti na podlagi vrednosti celice, in nato kliknite Ogled kode v meniju z desnim klikom.
2. Nato Microsoft Visual Basic za aplikacije odpre se okno, kopirajte in prilepite naslednjo kodo VBA v okno Code.
Koda VBA: natisnite delovni list na podlagi vrednosti celice
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
Opombe: V kodi lahko spremenite celico in vrednost celice, kot jo potrebujete.
3. Pritisnite druga + Q zaprete Microsoft Visual Basic za aplikacije okno.
Pri vnosu številke 1001 v celico B2 se a Kutools za Excel Pojavi se pogovorno okno, kliknite Da za začetek tiskanja. Ali pa kliknite Ne gumb za neposreden izhod iz pogovornega okna brez tiskanja. Oglejte si posnetek zaslona:
Sorodni članki:
- Kako ustvariti dinamično območje tiskanja v Excelu?
- Kako natisniti samo zadnjo stran delovnega lista v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!