VBA常用技巧代码解析

xowi99 · 发表于 2009-2-14 09:21

收藏慢慢学习

yuanzhuping · 发表于 2009-2-14 10:58

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

#001 Sub ShCount1()
#002 Dim c As Integer
#003 Dim i As Integer
#004 Dim s As String
#005 c = Worksheets.Count
#006 For i = 1 To c
#007 s = s & Worksheets(i).Name & Chr(13)
#008 Next
#009 MsgBox "工作簿中含有以下工作表:" & Chr(13) & s
#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 · 发表于 2009-2-14 11:13

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

gaolinyou · 发表于 2009-2-14 12:22

yuanzhuping版主辛苦了！

liusongs · 发表于 2009-2-14 14:23

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

lysm · 发表于 2009-2-14 14:55

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

zhqang · 发表于 2009-2-14 15:42

学习提高，再学习再提高

hgchgchgc · 发表于 2009-2-14 18:39

太好了

口是心非 · 发表于 2009-2-14 18:58

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

yuanzhuping · 发表于 2009-2-14 19:00

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

二楼开始已经建好了。

		自动登录	找回密码
密码			免费注册

VBA常用技巧代码解析

第2部分Worksheet（工作表）对象

评分

很好很好