[已解决]代码错在哪？

empty7401 · 发表于 2011-8-12 11:04

Sub ee()
For Each sh In Sheets
   If sh.Name = "Sheet2" Then
         sh.Visible = -1
         Else
         MsgBox "文件不存在，请核对sheet2文件!"
      End If
   Next
End Sub
代码在哪出错了？

最佳答案

月排行榜 / 总排行榜

liuts

2011-8-12 11:13

Sub ee()
For Each sh In Sheets
If sh.Name = "Sheet2" Then
sh.Visible = -1
exit sub
end if
Next
MsgBox "文件不存在，请核对sheet2文件!"
End Sub

复制代码

跳转到最佳答案楼层

liuts · 发表于 2011-8-12 11:13

Sub ee()
For Each sh In Sheets
If sh.Name = "Sheet2" Then
sh.Visible = -1
exit sub
end if
Next
MsgBox "文件不存在，请核对sheet2文件!"
End Sub

复制代码

liuts · 发表于 2011-8-12 11:20

回复 empty7401 的帖子

你的代码缺少满足条件退出的设置。
所有循环完之后，让他弹出存不存在sheet2

suntopjiang · 发表于 2011-8-12 11:37

vba没入门，先瞧瞧。

empty7401 · 发表于 2011-8-12 13:33

非常感谢！！

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