《VBA代码解决方案》(版权10028096)这套教程是我最早推出的教程,目前已经是第三版修订了。这套教程定位于入门后的提高,在学习这套教程过程中,侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一样把自己喜欢的代码摆好。
这套教程共三册,一百四十七讲,内容覆盖较广,也是初级和中级间的过渡教程,改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是VBA代码解决方案第十七讲:如何选择一个工作表,如何选择多个工作表
【分享成果,随喜正能量】善良的人,总是有福。利己则生,利他则久。心存善良的帮助他人,不是一时兴起,而是要坚持不懈的从实际出发,看到他人所需,切实的帮助到他人。。
第十七讲 如何选择一个工作表,如何选择多个工作表
各位朋友好,今天继续讲解VBA代码解决方案,今天讲解的是第17讲,如何选择一个工作表,如何选择多个工作表。在这一讲中我们将讲解选择单个工作表,选择多个工作表,及遍历工作薄中每个工作表的方法。
1 选择单个工作表的方法
在VBA中需要激活或者选择某个工作表时可以使用Select方法,如下面的代码所示。
代码一:
Sub mynz_17_1() '第17讲 如何选择一个工作表,如何选择多个工作表
Worksheets("17").Select
End Sub
代码截图:
上面的代码非常简单,却是非常有用的,在实际应用中应用的非常广泛。
在VBA中需要激活或者选择某个工作表时也可以使用Activate方法,如下面的代码所示。
代码二:
Sub mynz_17_2() '第17讲 如何选择一个工作表,如何选择多个工作表
Worksheets("17").Activate
End Sub
代码截图:
Activate可以视为激活,激活后就可以在这个工作表中进行一些操作了。
代码解析:
a) mynz_17_1过程使用Select方法选择“17”工作表,而mynz_17_2过程则使用Activate方法选择“17”工作表.
b)从表面看两者的作用是相同的,但是如果“17”工作表是隐藏的,Activate方法可以正常运行,而Select方法将会出现错误,这一点要务必注意。
2 选择多个工作表的方法
如果需要同时选中工作簿中的多个工作表,则只能使用Select方法而不能使用Activate方法,如下面的代码所示。
代码三:
Sub mynz_17_3() '第17讲 如何选择一个工作表,如何选择多个工作表
Dim Shs As Worksheet
For Each Shs In Worksheets
Shs.Select False
Next
End Sub
代码截图:
- 注意:工作表不可深度隐藏
代码四:
Sub mynz_17_4() '第17讲 如何选择一个工作表,如何选择多个工作表
Worksheets.Select
End Sub
代码截图: - 注意:工作表不可深度隐藏
代码五:
Sub mynz_17_5() '第17讲 如何选择一个工作表,如何选择多个工作表
Worksheets(Array("15", "16", "17")).Select
End Sub
代码截图:
代码解析:
a) mynz_17_3过程遍历工作表并使用带参数的Select方法选中所有工作表。应用于Worksheet对象的Select方法的语法如下:
- Select(Replace)
参数Replace是可选的。如果该值为True,则用指定对象替代当前选定对象。如果该值为False,则延伸当前选定对象以包括任何以前选定的对象。
b) mynz_17_4过程使用Worksheets集合的Select方法选中集合中所有的对象。
c) mynz_17_5过程使用Array 函数返回工作簿中的名称为“15”“16”“17”的工作表并使用Worksheets集合的Select方法选中。
3 代码的运行
页面视图:
代码mynz_17_5的运行结果:
今日内容回向:
1 select 方法如何应用?
2 activate 方法如何应用?
3 上述两种方有何不同?
本讲内容参考程序文件:VBA代码解决方案(1-19).xlsm
我20多年的VBA实践经验,全部浓缩在下面的各个教程中: