[已解决]如何实现选择工作表，工作表如果不存在再选择另一张工作表

凡夫俗女1011 · 发表于 2013-4-24 21:38

想要一个功能：打开工作簿后，sheet8自动被选择，但是如果sheet8不存在的话，sheet7被选择。

我写成了以下：
On Error GoTo check1
Sheet8.Select
check1:
Sheet7.Select

但是运行结果是即时sheet8存在，也会先选sheet8接着就选sheet7。。。。。求解答{:25:}

最佳答案

月排行榜 / 总排行榜

zjdh

2013-4-25 08:51

Sub TEST()
Dim SH As Worksheet
On Error Resume Next
Set SH = Sheets("Sheet8")
If Not SH Is Nothing Then
SH.Select
Else
Sheets("Sheet7").Select
End If
End Sub

复制代码

跳转到最佳答案楼层

zjdh · 发表于 2013-4-25 08:51

Sub TEST()
Dim SH As Worksheet
On Error Resume Next
Set SH = Sheets("Sheet8")
If Not SH Is Nothing Then
SH.Select
Else
Sheets("Sheet7").Select
End If
End Sub

复制代码

凡夫俗女1011 · 发表于 2013-4-25 15:02

zjdh 发表于 2013-4-25 08:51

谢谢！{:25:}

能麻烦你帮我看看这个文件里的名为《条件格式》的那个工作表是怎么设置的么？

ok.rar (8.27 KB, 下载次数: 2)

zjdh · 发表于 2013-4-25 15:34

凡夫俗女1011 发表于 2013-4-25 15:02
谢谢！

能麻烦你帮我看看这个文件里的名为《条件格式》的那个工作表是怎么设置的么？

ok.rar (4.43 KB, 下载次数: 5)

		自动登录	找回密码
密码			注册