Как бързо да отпечатате скрити работни листове в Excel?
Автор: XiaoyangПоследна промяна: 2012-08-09
Ако имате работна книга, която съдържа стотици работни листове, някои видими и други скрити, и сега искате да отпечатате само скритите работни листове. Тъй като Excel не може да отпечата скритите листове по подразбиране, ще ви представя прост VBA код за отпечатване на скритите работни листове. Моля, направете следното:
1. кликване Софтуерен Инженер > Visual Basic, Ще се покаже нов прозорец. След това щракнете Поставете > Модули, след това въведете следните кодове в модула:
VBA: отпечатайте скрити работни листове в Excel
Sub PrintHiddenSheets() Dim wSheet като работен лист Dim CurStat като вариант За всеки wSheet в ActiveWorkbook.Worksheets Ако не е wSheet.Visible Тогава CurStat = wSheet.Visible wSheet.Visible = xlSheetVisible wSheet.PrintOut wSheet.Visible = CurStat крайна сметка, ако Напред End Sub
2. И след това щракнете за изпълнение на кода и всички скрити работни листове ще бъдат отпечатани.