vba Sub HideAllWorksheetsExcept() Dim ws As Worksheet Dim keepSheets As Variant Dim sheetName As String ' 定义要保留的工作表名称(以数组形式) keepSheets = Array("Sheet1", "Sheet2") ' 在这里添加要保留的工作表名称 ' 遍历所有工作表 For Eac
下面的代码,可以让你一次显示所有的工作表Sub UnhideAllWoksheets() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Visible = xlSheetVisible Next ws End Sub 2.隐藏除了活动工作表外的所有工作表 如果你做的报表,希望隐藏除了报表工作表以外的所有工作表,则可以用一下代码来实现:Sub HideAll...
Sub UnhideAllWoksheets()Dim ws As WorksheetFor Each ws In ActiveWorkbook.Worksheetsws.Visible = xlSheetVisibleNext wsEnd Sub 2.隐藏除了活动工作表外的所有工作表 如果你做的报表,希望隐藏除了报表工作表以外的所有工作表,则可以用一下代码来实现: Sub HideAllExcetActiveSheet()Dim ws As WorksheetFor Each...
Example 1 – Hide and Unhide a Single Sheet We have a workbook that has five sheets, each containing an imaginary data table of “Records of Elementary School”. We want to hide one of them, then we will unhide the sheet again. To hide the “Elementary” sheet, copy the following code...
Private Sub HideAllSheets() '隐藏除"欢迎"外的所有工作表 Dim ws As Worksheet Worksheets(WelcomePage).Visible =xlSheetVisible For Each ws In ThisWorkbook.Worksheets If Not ws.Name = WelcomePage Thenws.Visible = xlSheetVeryHidden Next ws
If Sheets(i).Visible =xlSheetVisible Then lngNum = lngNum +1 End If Next VisibleSheetsNum = lngNum End Function 示例2:隐藏指定的工作表 下面的代码将隐藏指定的工作表,并指定了隐藏方式。 Sub HideWorksheet(strName As String, blnVeryHidden...
Call HideAllSheets '直接保存工作簿或提示另存为文件名 If SaveAs = True Then newFname =Application.GetSaveAsFilename( _ fileFilter:="Excel Files (*.xls*),*.xls*") If Not newFname = "False"Then ThisWorkbook.SaveAs newFname Else ThisWorkbook.Save ...
Sub HideAllExcetActiveSheet() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name <> ActiveSheet.Name Then ws.Visible = xlSheetHidden End if Next ws End Sub 3.用VBA代码按字母的顺序对工作表进行排序 如果你有一个包含多个工作表的工作簿,并且希望按字母对工作表进行排序,那么下面...
Hide All the Sheets (Except ActiveSheet) VBA Code to Unhide a Sheet Use VBA to Unhide All the Hidden Sheets Related Tutorials You can use a VBA code to hide or unhide a sheet in Excel. When you right-click on the sheet tab, you can see the option to hide or unhide it, and ...
出现这个问题，可以在EXCEL界面中，按下ALT+F11键，打开VBA编辑器，并输入以下代码并运行，来解决表中行列被隐藏的问题。（特别对于第一行也第一列被隐藏的表有用！）代码文本如下：'VBA程序:遍历所有工作表,取消隐藏所有行与列 Sub CanceHide_Rows_And_Columns() 'Show All sheets Rows and Columns Dim sht...