p190页，练习小课堂，我的代码错在哪里？

chenyucai

p190页，练习小课堂，我用这段代码，为什么运行第二次就会出错，请高手指点一下，谢谢！

1. Sub shttest()
   
2. Dim i As Integer
   
3. For i = 1 To Worksheets.Count
   
4.     If Worksheets(i).Name = "一年级" Then
   
5.         Worksheets(i).Move before:=Worksheets(1)
   
6.     Else
   
7.         Worksheets.Add(before:=Worksheets(1)).Name = "一年级"
   
8.         Exit Sub
   
9.     End If
   
10. Next i
    
11. End Sub

复制代码

chenyucai

怎么没人找出错误吗？

hehex

程序前面加上 On Error Resume Next

何时再见你

你这个程序：
（1）当一年级表格不存在的时候，程序会新建一个“一年级”，并且提到最前方，没有问题。
（2）当“一年级”表格存在，但不在第一位的时候，譬如放到最后一位上，就会出问题，问题出在：
   当i=1的时候，程序判断worksheets（1）显然不是“一年级”，然后程序马上就跳到else语句执行，并不是把所有工作表从1--最后都判断一遍才去执行else。这样的话在i=1的时候程序就认为没有“一年级”这个表，于是就新建，可事实是有这个表，所以新建的名称跟存在的表冲突导致程序失败了。

我也是新手，我也刚看到这页左右，我想想怎么改再告诉你，哈哈。

何时再见你

几乎就只能按照190页最下面那个，让这两件事单独说，别放在一个if里面，这完全是两种情况不沾边。如果这表“一年级”存在，你就跳出if循环戛然而止；如果“一年级”不存在，你也运行完if循环跳出循环后再新写一句建立新的“一年级”表单。

liqiang12003

运行第二次的初始条件变了

chenyucai

何时再见你 发表于 2012-11-23 20:51
你这个程序：
（1）当一年级表格不存在的时候，程序会新建一个“一年级”，并且提到最前方，没有问题。
（ ...

你的解释很清楚，我明白了，谢谢！

chenyucai

hehex 发表于 2012-11-23 19:31
程序前面加上 On Error Resume Next

这个行不通。

hehex

chenyucai 发表于 2012-11-26 09:03
这个行不通。

你试过没有就说行不通，你的代码本身就是抄的书上的例子2，把这句给漏了，加上on error resume next 就和书上一模一样了。

chenyucai

hehex 发表于 2012-11-26 10:59
你试过没有就说行不通，你的代码本身就是抄的书上的例子2，把这句给漏了，加上on error resume next 就 ...

我试过才回复你的，是没提示错误，但是结果不一样，你可以自己试下。还有 这个代码跟例子2是完全不同的，你也可以试下，例子2 不加那句是什么效果。而且我是在没看参考答案的情况下自己写的，根本不是抄书的。
知识是自己的，从不自欺欺人！