[已解决]代码：If Sht.Name <> "Sheet4" Then 问题

byhdch · 发表于 2011-11-6 21:58

代码：If Sht.Name <> "Sheet4" Then （如果工作表的名字不等于”Sheet4”时执行下面的代码），若工作表的名字不等于”Sheet4”、”Sheet5”、”Sheet6”时，上述代码如何写？谢谢！

最佳答案

月排行榜 / 总排行榜

huweifvba

2011-11-6 22:04

if Sht.Name <> "Sheet4" and Sht.Name <> "Sheet5" and Sht.Name <> "Sheet6" then
试下这样

跳转到最佳答案楼层

huweifvba · 发表于 2011-11-6 22:04

这个最佳答案由 huweifvba 给出，感谢 huweifvba 的回答。

单击隐藏图章

if Sht.Name <> "Sheet4" and Sht.Name <> "Sheet5" and Sht.Name <> "Sheet6" then
试下这样

周小艳 · 发表于 2011-11-6 22:12

雨后彩霞 · 发表于 2011-11-6 22:14

可不可以这样写，If Sht.Name <> "Sheet4" Then
nsme = sheet4

mxg825 · 发表于 2011-11-6 22:15

楼上正解！
另一种写法：If InStr("Sheet4,Sheet5,Sheet6", Sht.Name) = 0 Then

byhdch · 发表于 2011-11-6 22:16

本帖最后由 byhdch 于 2011-11-7 00:07 编辑

回复 mxg825 的帖子

谢谢答复！！

mqr66 · 发表于 2011-11-6 23:33

谢谢大家的分享，学习了

byhdch · 发表于 2011-11-7 00:28

回复 mxg825 的帖子

mxg825老师你好！代码：If InStr("1月,2月,3月,4月,5月,6月,7月,8月,9月,10月,11月,12月", Sht.Name) = 0 Then ，能否简化，防止每次变动各月名称的麻烦谢谢！

mxg825 · 发表于 2011-11-7 10:15

byhdch 发表于 2011-11-7 00:28
回复 mxg825 的帖子

mxg825老师你好！代码：If InStr("1月,2月,3月,4月,5月,6月,7月,8月,9月,10月,11月,12 ...

你想实现什么效果？

byhdch · 发表于 2011-11-7 19:38

mxg825 发表于 2011-11-7 10:15
你想实现什么效果？

代码：If Sht.Name <> "Sheet4" Then （如果工作表的名字不等于”Sheet4”时执行下面的代码），若工作表(总共12个)的名字不等于"Sheet1”、"Sheet2”、"Sheet3”、"Sheet6”、"Sheet7”、"Sheet8””、"Sheet9”、"Sheet10”、"Sheet11"、"Sheet12”时，上述代码如何写？谢谢!

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