VBA常用技巧代码解析

薄才多学

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

ㄚcャLIAN

谢谢了，期待更新。。。

1redleaf

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

yuanzhuping

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

1. #001  Sub ShCount2()
   
2. #002      Dim Sh As Worksheet
   
3. #003      Dim s As String
   
4. #004      For Each Sh In Worksheets
   
5. #005          s = s & Sh.Name & Chr(13)
   
6. #006      Next
   
7. #007      MsgBox "工作簿中含有以下工作表:" & Chr(13) & s
   
8. #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过程结果如图所示。

附件在113楼。

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

yuanzhuping

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

1. #001  Sub DownSheet()
   
2. #002      Dim i As Integer
   
3. #003      i = Worksheets.Count
   
4. #004      If ActiveSheet.Index < i Then
   
5. #005          Worksheets(ActiveSheet.Index + 1).Activate
   
6. #006      Else
   
7. #007          Worksheets(1).Activate
   
8. #008      End If
   
9. #009  End Sub
   
10. #010  Sub UpSheet()
    
11. #011      Dim i As Integer
    
12. #012      i = Worksheets.Count
    
13. #013      If ActiveSheet.Index > 1 Then
    
14. #014          Worksheets(ActiveSheet.Index - 1).Activate
    
15. #015      Else
    
16. #016          Worksheets(i).Activate
    
17. #017      End If
    
18. #018  End Sub

复制代码

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

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

hanzhang98

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

nowarmy

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

大江东去2004

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

nowarmy

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

鱼求雨

大开眼界