弹出工作薄所有工作表名称的VBA

nnsea

For...Next的意义： For...Next语句以指定次数来重复执行一组语句，

语法：

For counter = start To end [Step step]

[statements]

[Exit For]

[statements]

Next [counter]

参数：a) counter是必需的，用做循环计数器的数值变量。

b) start是必需的，循环计数器的初值。

c) end是必需的，循环计数器的终值。

d) step是可选的，环计数器的步长，缺省值为 1。

e) statements是可选的，放在For和Next之间的一条或多条语句，它们将被执行指定的次数。

实例应用：下面我们使用For...Next 语句遍历工作簿中所有的工作表，代码如下所示。

Sub MyShCount1()

Dim c,i As Integer

Dim s As String

c = Worksheets.Count

For i = 1 To c

s = s & Worksheets(i).Name & Chr(13)

Next

MsgBox "工作簿中含有”& c &”个工作表，如下:" & Chr(13) & s

End Sub

代码解析：

a) MyShCount1过程使用For...Next 语句遍历工作簿中所有的工作表，并用消息框显示所有的工作表名称。

b) 第4行代码根据Worksheet对象的Count属性返回工作簿中工作表的数量赋给变量c。应用于Worksheet对象的Count属性返回Worksheets集合中工作表的数量，语法如下：expression.Count

c) 第5行代码开始For...Next 语句循环。

d) 第6行代码在For...Next循环中根据工作表的索引号取得所有工作表的名称赋给字符串变量s。

e) 第6行代码中“&”符号是连接两个字符的符号；Chr(13)是换行符号。

f) 在上述的语句中Dim 是声明语句，用于声明变量，Integer ，String是变量的类型。