[已解决]vb IF 的新增条件 疑问 请老师们解答~~

lotgot

vb IF 的新增条件 疑问 请老师们解答~~

1. If MsgBox("提取方式:追加还是覆盖?" & Chr(13) & "追加点是，覆盖点否", vbYesNo, "选择") = vbYes Then
   
2.         For Each Sht In Sheets
   
3.             If Sht.Name <> "目录" Then '您好，如果我想在这个条件"目录"隔壁添加一个sheet叫"Sum"的请问如何添加这个判断呢？
   
4.                 Sht.Delete
   
5.             Else
   
6.                 Zsht.[a1].Resize(10000, 10).Offset(1).Clear
   
7.             End If
   
8.         Next
   
9. 
   

复制代码

您好，如果我想在这个条件"目录"隔壁添加一个sheet叫"Sum"的请问如何添加这个判断呢？

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-6-18 22:52

没明白具体意思，是sht的名称叫Sum？如果是代码如下：

1. If MsgBox("提取方式:追加还是覆盖?" & Chr(13) & "追加点是，覆盖点否", vbYesNo, "选择") = vbYes Then
   
2.         For Each Sht In Sheets
   
3.             If Sht.Name <> "Sum" Then '您好，如果我想在这个条件"目录"隔壁添加一个sheet叫"Sum"的请问如何添加这个判断呢？
   
4.                 Sht.Delete
   
5.             Else
   
6.                 Zsht.[a1].Resize(10000, 10).Offset(1).Clear
   
7.             End If
   
8.         Next

复制代码

又或者既不等于“目录”，又不等于“Sum”?如果是代码如下：

1. If MsgBox("提取方式:追加还是覆盖?" & Chr(13) & "追加点是，覆盖点否", vbYesNo, "选择") = vbYes Then
   
2.         For Each Sht In Sheets
   
3.             If Sht.Name <> "目录" and Sht.Name <> "Sum" Then '您好，如果我想在这个条件"目录"隔壁添加一个sheet叫"Sum"的请问如何添加这个判断呢？
   
4.                 Sht.Delete
   
5.             Else
   
6.                 Zsht.[a1].Resize(10000, 10).Offset(1).Clear
   
7.             End If
   
8.         Next

复制代码

又或者是别的意思？

跳转到最佳答案楼层

老司机带带我

没明白具体意思，是sht的名称叫Sum？如果是代码如下：

1. If MsgBox("提取方式:追加还是覆盖?" & Chr(13) & "追加点是，覆盖点否", vbYesNo, "选择") = vbYes Then
   
2.         For Each Sht In Sheets
   
3.             If Sht.Name <> "Sum" Then '您好，如果我想在这个条件"目录"隔壁添加一个sheet叫"Sum"的请问如何添加这个判断呢？
   
4.                 Sht.Delete
   
5.             Else
   
6.                 Zsht.[a1].Resize(10000, 10).Offset(1).Clear
   
7.             End If
   
8.         Next

复制代码

又或者既不等于“目录”，又不等于“Sum”?如果是代码如下：

1. If MsgBox("提取方式:追加还是覆盖?" & Chr(13) & "追加点是，覆盖点否", vbYesNo, "选择") = vbYes Then
   
2.         For Each Sht In Sheets
   
3.             If Sht.Name <> "目录" and Sht.Name <> "Sum" Then '您好，如果我想在这个条件"目录"隔壁添加一个sheet叫"Sum"的请问如何添加这个判断呢？
   
4.                 Sht.Delete
   
5.             Else
   
6.                 Zsht.[a1].Resize(10000, 10).Offset(1).Clear
   
7.             End If
   
8.         Next

复制代码

又或者是别的意思？

lotgot

老司机带带我 发表于 2016-6-18 22:52
没明白具体意思，是sht的名称叫Sum？如果是代码如下：又或者既不等于“目录”，又不等于“Sum”?如果是代码 ...

谢谢老司机这是我想要的~~~感谢