Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako natisniti določen list glede na vrednosti celice v Excelu?

Ali ste kdaj poskusili natisniti nekaj posebnih listov na podlagi vrednosti celice? V tem članku bom govoril o nekaterih primerih o tej težavi, če vas zanima ta težava, prosim nadaljujte.

Tiskalni list temelji na celici z VBA

Tiskalni list na podlagi sosednje celice z VBA


Tiskalni list temelji na celici z VBA


Če mislite, da sta dva lista, želite natisniti Sheet1 ali Sheet2 ali oba lista na podlagi Cell A1 v Sheet1. Prosimo, naredite spodaj:

V tem primeru vnesite 1 pomeni, da natisnete prvi list, vnesite 2, da natisnete drugi list in 3, da natisnete oba lista.

1. Vnesite 1, 2 ali 3, kot je potrebno v A1 v prvem listu, in pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno. Prikaz slike:
doc natisni list po celici 1

2. klik Vstavi > Moduli, in prilepite spodnjo kodo v Moduli skripta. Prikaz slike:

VBA: list tiskanja na podlagi vrednosti celice

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

doc natisni list po celici 2

3. Pritisnite F5 ključ za neposredno tiskanje listov.


Tiskalni list na podlagi sosednje celice z VBA

Če v delovnem zvezku imate več listov in želite natisniti enega ali več listov na podlagi vrednosti celice iz te delovne knjige, lahko storite naslednje:

1. Ustvarite nov list z imenom Kontrolni list v delovnem zvezku, ki jo uporabljate, in v stolpcu A navedite vse ime lista (vključite ali izključite kontrolni list, kot ga potrebujete). Prikaz slike:
doc natisni list po celici 3

2. Tip "print"V sosednji celici poleg imena lista, če jo želite natisniti. Oglejte si prikaz slike.
doc natisni list po celici 4

3. Pritisnite Alt + F11 tipke, ki omogočajo Microsoft Visual Basic za aplikacije okno in kliknite Vstavi > Moduli. Prikaz slike:
doc natisni list po celici 5

4. Prilepite spodnjo kodo v modul in pritisnite F5 ključ za zagon kode.

VBA: Tiskanje na podlagi sosednje celice

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

doc natisni list po celici 6

Po zagonu kode bodo listi trenutno natisnjeni, hkrati pa bo novi kontrolni list nadomestil staro.

Nasvet.Če imate Kutools za ExcelJe Ustvari seznam imen listov uporabnost, lahko hitro ustvarite seznam vseh imen listov v novem listu s povezavo, ki jo je mogoče klikniti. Njegova polna funkcija je brez omejitev v dnevih 60, prosim, prenesite in zdaj imate brezplačen poskus.


doc natisni list po celici 7

Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.