Kako hitro natisniti skrite delovne liste v Excelu?
Avtor: XiaoyangZadnja sprememba: 2012-08-09
Če imate delovni zvezek, ki vsebuje na stotine delovnih listov, nekaj vidnih in drugih skritih, zdaj pa želite natisniti le skrite delovne liste. Ker Excel privzeto ne more natisniti skritih listov, vam bom predstavil preprosto kodo VBA za tiskanje skritih delovnih listov. Naredite naslednje:
1. klik Razvojni > Visual Basic, Prikazalo se bo novo okno. Nato kliknite Vstavi > Moduli, nato v modul vnesite naslednje kode:
VBA: natisnite skrite delovne liste v Excelu
Sub PrintHiddenSheets () Zatemni list kot delovni list Dim CurStat kot različica Za vsak wSheet v ActiveWorkbook.Worksheets Če ni wSheet.Visible Potem CurStat = wSheet.Visible wSheet.Visible = xlSheetVisible wSheet.PrintOut wSheet.Visible = CurStat Konec Če Naslednji End Sub
2. In nato kliknite za zagon kode in vsi skriti delovni listi bodo natisnjeni.