[已解决]VBA视频第10集的疑问

youke333

    Sub s1()
     Dim X As Integer
      For X = 1 To Sheets.Count
        If Sheets(X).Name = "A" Then
          MsgBox "A工作表存在"
          Exit Sub
        End If
      Next
      MsgBox "A工作表不存在"
    End Sub

在这个for...next语句中，为什么next后面不用跟变量X呢？

最佳答案

月排行榜 / 总排行榜

byhdch

2012-5-6 16:41

next后面的变量X可以缺省，省略不写

跳转到最佳答案楼层

byhdch

next后面的变量X可以缺省，省略不写

windimi007

2楼正解，不过还是建议养成好习惯，把x加上去。
个人感觉加上去后代码的可读性更强了！{:3212:}

allen.zheng

看过很多for...next的代码，next后面都没有写。

兰色幻想

这个可以省略，不过还是加上好

35°5

如果是初学者还是加上吧。
记住可以省略不写就OK了。

rebornxldeng

以下是我对楼主代码的理解,请学友们多多指教
____________________________________________________________________________________________
'本过程测试当前工作薄中是否有名称为A的工作表
Sub SheetExistOrNot()
Dim iSheet As Integer                                           '声明变量iSheet为工作表号
'进入工作表存在与否的判定循环
       For iSheet = 1 To Sheets.Count                    '从第1张工作表开始进行遍历
                If Sheets(iSheet).Name = "A" Then       '判断第iSheet张工作表的名称是否为A
               
                    MsgBox "A工作表存在"                        '如该工作表名称为A,则运行MsgBox方法提示"A工作表存在"
                    Exit Sub                                               '并退出本过程(注意:不会运行Exit Sub后面的程序代码)
                    
                End If                                                       'If语句结束
       Next iSheet
      
       MsgBox ("不存在名称为A的工作表")                         '循环结束后,如果遍历过的所有工作表名称都不是A,则运行此语句
End Sub

qhdsun

猪小弟

{:20:}