VBA常用技巧代码解析

xowi99

收藏慢慢学习

yuanzhuping

技巧23         遍历工作表的方法
       在Excel应用中经常需要遍历工作簿中所有的工作表，有以下两种方法可以实现。
23-1        使用For...Next 语句
       使用For...Next 语句遍历工作簿中所有的工作表，如下面的代码所示。

1. #001  Sub ShCount1()
   
2. #002      Dim c As Integer
   
3. #003      Dim i As Integer
   
4. #004      Dim s As String
   
5. #005      c = Worksheets.Count
   
6. #006      For i = 1 To c
   
7. #007          s = s & Worksheets(i).Name & Chr(13)
   
8. #008      Next
   
9. #009      MsgBox "工作簿中含有以下工作表:" & Chr(13) & s
   
10. #010  End Sub

复制代码

代码解析：
       ShCount1过程使用For...Next 语句遍历工作簿中所有的工作表，并用消息框显示所有的工作表名称。
       第5行代码根据Worksheet对象的Count属性返回工作簿中工作表的数量赋给变量c。应用于Worksheet对象的Count属性返回Worksheets集合中工作表的数量，语法如下：
expression.Count
       第6行代码开始For...Next 语句循环。For...Next 语句以指定次数来重复执行一组语句，语法如下：
For counter = start To end [Step step]
    [statements]
    [Exit For]
    [statements]
Next [counter]
       参数counter是必需的，用做循环计数器的数值变量。
       参数start是必需的，循环计数器的初值。
       参数end是必需的，循环计数器的终值。
       参数step是可选的，环计数器的步长，缺省值为 1。
       参数statements是可选的，放在For和Next之间的一条或多条语句，它们将被执行指定的次数。
       第7行代码在For...Next循环中根据工作表的索引号取得所有工作表的名称赋给字符串变量s。

[ 本帖最后由 yuanzhuping 于 2009-2-16 22:37 编辑 ]

lfwxszw

真的是对初学者最大的帮助，非常感谢！

gaolinyou

yuanzhuping版主辛苦了！

liusongs

真的是对初学者最大的帮助，非常感谢！

lysm

学习到此，做个记号。
再次感谢袁版的无私奉献~!

zhqang

学习提高，再学习再提高

hgchgchgc

太好了

口是心非

谢谢袁版，呵呵，同时提个小建议：就是想请袁版先在一楼建个楼梯，以便于大家阅读。

yuanzhuping

原帖由 口是心非 于 2009-2-14 18:58 发表
谢谢袁版，呵呵，同时提个小建议：就是想请袁版先在一楼建个楼梯，以便于大家阅读。

二楼开始已经建好了。