VBA常用技巧代码解析

薄才多学 · 发表于 2009-2-14 19:17

1楼不需要楼梯，2楼有楼梯。

ㄚcャLIAN · 发表于 2009-2-14 22:04

谢谢了，期待更新。。。

1redleaf · 发表于 2009-2-14 23:25

楼主辛苦！收藏，好好学习！

yuanzhuping · 发表于 2009-2-15 00:30

技巧23       遍历工作表的方法
23-2       使用For Each...Next 语句
   使用For Each...Next语句遍历工作簿中所有的工作表，如下面的代码所示。

#001 Sub ShCount2()
#002 Dim Sh As Worksheet
#003 Dim s As String
#004 For Each Sh In Worksheets
#005 s = s & Sh.Name & Chr(13)
#006 Next
#007 MsgBox "工作簿中含有以下工作表:" & Chr(13) & s
#008 End Sub

复制代码

代码解析：
   ShCount2过程使用For Each...Next语句遍历工作簿中所有的工作表，并用消息框显示所有工作表名称。
   第4行代码使用For Each...Next语句遍历Worksheets集合中所有元素。For Each...Next语句针对一个数组或集合中的每个元素，重复执行一组语句，语法如下：
For Each element In Group
[statements]
[Exit For]
[statements]
Next [element]
   参数element是必需的，用来遍历集合或数组中所有元素的变量。
   参数group是必需的，对象集合或数组的名称。
   参数statements是可选的，针对对象集合或数组中的每一项执行的一条或多条语句。
   第5行代码将返回的工作表的名称赋给字符串变量s。
   运行ShCount2过程结果如图所示。
取得所有工作表名称.jpg

附件在113楼。

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

yuanzhuping · 发表于 2009-2-15 01:29

技巧24 在工作表中上下翻页
如果需要在工作簿的工作表中进行上下翻页，可以使用下面的代码。

#001 Sub DownSheet()
#002 Dim i As Integer
#003 i = Worksheets.Count
#004 If ActiveSheet.Index < i Then
#005 Worksheets(ActiveSheet.Index + 1).Activate
#006 Else
#007 Worksheets(1).Activate
#008 End If
#009 End Sub
#010 Sub UpSheet()
#011 Dim i As Integer
#012 i = Worksheets.Count
#013 If ActiveSheet.Index > 1 Then
#014 Worksheets(ActiveSheet.Index - 1).Activate
#015 Else
#016 Worksheets(i).Activate
#017 End If
#018 End Sub

复制代码

代码解析：
DownSheet过程向下翻页，第3、12行代码使用Worksheets对象的Count属性取得工作表的数目，第4行到第7行代码根据Index属性判断活动工作表是否是工作簿中的最后一张工作表。如果活动工作表不是最后一张工作表则激活活动工作表的下一张工作表，否则激活第一张工作表。
UpSheet过程向上翻页，第13行到第16行代码根据Index属性判断活动工作表是否是工作簿中的第一张工作表。如果活动工作表不是第一张工作表则激活活动工作表的上一张工作表，否则激活最后一张工作表。

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

hanzhang98 · 发表于 2009-2-15 08:16

好好.......................................期待更多.

nowarmy · 发表于 2009-2-15 11:02

太好了，向版主学习，只有打好基本功，才能做到举一反三，灵活应用。

大江东去2004 · 发表于 2009-2-15 11:04

楼主辛苦了!是我等菜鸟学习的楷模!要多多珍惜如此好的学习机会!

nowarmy · 发表于 2009-2-15 11:52

请问楼主一个问题，如果源区域、目标区域为动态的单元格区域，使用Resize方法确定源区域和目标区域。
请举一个实例。

鱼求雨 · 发表于 2009-2-15 12:50

大开眼界

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

VBA常用技巧代码解析

回复 120楼口是心非的帖子

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

评分

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

楼主辛苦了!

VBA常用技巧代码解析

回复 120楼 口是心非 的帖子

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

评分

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

楼主辛苦了!

回复 120楼口是心非的帖子