时间戳

首页 > 解决方案 > 使用名称包含特定单词的 VBA 取消隐藏工作表名称

excel - 使用名称包含特定单词的 VBA 取消隐藏工作表名称

问题描述

使用下面的代码，我可以选择所有包含单词“ba”的工作表但是，如果这些工作表/选项卡被隐藏，我不能，我得到一个“运行时错误'1004'：”警告。

有什么建议我怎样才能使这个代码与隐藏的工作表/标签一起工作？所以它显示所有带有“ba”的工作表/选项卡名称，即使它被隐藏了？如果它们被隐藏，我希望它们出现或 .Visible = True

Sub listray()
Dim ws As Worksheet, flg As Boolean
For Each ws In Sheets
If LCase(ws.Name) Like "*ba*" Then
    ws.Select Not flg
    flg = True
End If
Next
End Sub
End Sub

标签： excelvbagoogle-sheetstabshidden

解决方案

工作表必须可见才能被选中。

If LCase(ws.Name) Like "*ba*" Then
    ws.Visible = xlSheetVisible
    ws.Select Not flg
    flg = True
End If

推荐阅读