标黄的那里运行老显示下标越界，各位大神有啥解决的方法吗

[此贴子已经被作者于2022-11-22 11:15编辑过]

不妨把文件也传上来. 如果数据涉密的话,可以把敏感数据更改一下.

初始运行时,应该把焦点停在哪个Sheet?

先 补充一个Function,判定一下这个Sheet是否存在?

Public Function Sheet_Exist(shtName) As Boolean
Dim sht1 As Worksheet
On Error GoTo err_lab1
Set sht1 = Worksheets(shtName)
Sheet_Exist = True
Set sht1 = Nothing
err_lab1:

End Function

在隐藏/显示/引用 某个Sheet前,先判定一下,例如:
If Sheet_Exist(st) Then
    ......
End If

索引那一页

把你的意图完整的描述一次 ? 如果不想公开,可以给我私信.

我希望通过索引的那一页，对备注那一列打勾的对应sheet进行显示，没有打勾的，进行隐藏。

未找到"索引",或许,你说的"索引",是指的这个?

这个文件，搞错了