【分享成果，随喜正能量】慈悲不只是对受苦者表达同情心或关怀，也不只是向他表达你心中的温情，或清清楚楚地认知到他们的需要和痛苦。慈悲是一种持续不断的决心，愿意付出一切的勇气和帮助苦难者减轻痛苦的行动。。

《VBA代码解决方案》这套教程是我最早推出的教程，目前已经是第二版修订了。这套教程定位于入门后的提高，在学习这套教程过程中，侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一下把自己喜欢的代码摆好。

这套教程共三册，一百四十七讲，内容覆盖较广，也是初级和中级间的过度教程，改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是第17讲：VBA代码中工作表的Select和激活Activate

第十七讲 如何选择一个工作表，如何选择多个工作表

各位朋友好，今天继续讲解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-48）.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

第7套教程（共三册）：《VBA之EXCEL应用》：是对VBA基本的讲解

第1套教程（共三册）：《VBA代码解决方案》：是入门后的提高教程

第4套教程（16G）：VBA代码解决方案之视频（第一套的视频讲解）

第3套教程（共两册）：《VBA数组与字典解决方案》：是对数组和字典的专题讲解

第2套教程（共两册）：《VBA数据库解决方案》：是对数据库的专题讲解

第6套教程（共两册）：《VBA信息获取与处理》：讲解VBA的网络及跨程序应用

第5套教程（共两册）：VBA中类的解读和利用：类及接口技术的讲解

第8套教程（共三册）：VBA之Word应用（最新教程）：word中VBA的利用

上述教程的学习顺序：

① 7→1→3→2→6→5或者7→4→3→2→6→5。

② 7→8