隐藏工作簿中所有工作表的行列标题，VBA一次搞定

标签：VBA

有时候，我们不需要看到工作表中的行列标题，如下图1所示。

图1

此时，可以修改Excel设置来实现。

单击“文件——选项”，在“Excel选项”对话框中，单击左侧的“高级”选项卡，在“此工作表的显示选项”中取消选取“显示行和列标题”前的勾选，如下图2所示。

图2

可以看出，这个设置只对指定的工作表有效，如果要隐藏工作簿中所有工作表的行列标题，则要逐个选择工作表，并取消该选项的选择。

如果工作簿中有很多工作表，这样的重复操作就有点浪费时间了。这时，VBA可以出场了。

下面的代码隐藏工作簿中除指定工作表外的所有工作表的行列标题：

代码语言：javascript复制

Sub HideHeadings()
   Dim wks As Worksheet
   Application.ScreenUpdating = False
    '遍历工作簿中的工作表
   For Each wks In ThisWorkbook.Worksheets
        '名为"示例"的工作表除外
        '你可以修改为自己的工作表名
        If Not wks.Name = "示例"Then
            wks.Activate
            With ActiveWindow
                '隐藏行/列标题
                .DisplayHeadings = False
                '显示工作表标签
                .DisplayWorkbookTabs = True
                '隐藏水平滚动条
                .DisplayHorizontalScrollBar =False
            End With
        End If
   Next wks
   Application.ScreenUpdating = True
End Sub

以上代码很简单，主要代码的功能已作注释。

vba

0 人点赞