求助，on error resume next 有无必要？

hehex

翻滚吧炒鸡蛋 发表于 2013-12-22 21:14
If Not hassht Then 这句如何理解，直接就是hassht的反值？NOT也可以套用在其他语句上吗？

hasSht 这个逻辑变量是用来判断是否存在名称为"一年级"的工作表。声明这个变量之后，它的值默认是False。从前面遍历工作表名称的代码部分可以看到，如果发现有这个工作表，那么就给这个变量赋值True 并且退出循环。
用if 判断这个值，当这个值为假的时候（不存在该表)，那么Not hassht 为真，就执行添加工作表的代码。
否则就说明已经存在该表，就执行移动工作表的代码。

如果实在不好理解的话也可以改成  If hassht = False Then 这样可能好理解一些。

翻滚吧炒鸡蛋

hehex 发表于 2013-12-22 21:34
hasSht 这个逻辑变量是用来判断是否存在名称为"一年级"的工作表。声明这个变量之后，它的值默认是False。 ...

理解了，其实我主要想问NOT这个词，都直接可以用在布尔型变量前代表变量的相反值？

chenzyyysl

7楼前一代码有"一年级"也会增加一个表

hehex

chenzyyysl 发表于 2013-12-24 20:05
7楼前一代码有"一年级"也会增加一个表

那个代码添加"一年级" 表的时候会出现运行时错误，出错的语句不会执行，从而执行下一句。
俺刚测试了一下，没有添加一个其他名称工作表。

chenzyyysl

7楼后一代码思路改这样简单些
Sub shttest_3()
   
    For Each sh In Sheets
    If sh.Name = "一年级" Then
        Worksheets("一年级").Move before:=Worksheets(1)
        Exit Sub
    End If
    Next
  
      Worksheets.Add(before:=Worksheets(1)).Name = "一年级"
   
End Sub

chenzyyysl

一楼的代码很好，设计不同情况F8执行仔细理会