重庆中职学校 中职招生 中职报考中心 重庆职校报名网 公办重点中职招生办电话 重庆职校报名网 重庆中专学校招生

如果要用VBA同时选择多个工作表,可以利用数组或设置“Select”方法的参数为“False”来扩展所选择的内容,如下面的一些代码:

1.用工作表名称:

假如工作表名称为“Sheet1”、“Sheet2”、“Sheet3”,同时选择这3个工作表:

Sub SelectMultiSheets()
Sheets(Array("Sheet3", "Sheet2", "Sheet1")).Select
End Sub

2.用工作表索引号:

索引号是分配给工作表的连续数字,同一类型的工作表在工作簿中按照从左到右的顺序,依次为1、2、3……。下面的代码同时选择第1个和第3个工作表:

Sub SelectMultiSheets1()
Worksheets(Array(3, 1)).Select
End Sub

3.选择所有工作表:

如果工作簿中不包含图表工作表、对话框工作表,下面的代码可以同时选择所有的工作表:

Sub SelectAllSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
ws.Select False
Next ws
End Sub

其中“Select”方法的参数为“False”,以扩展所选择的内容。

重庆中职学校 中职招生 中职报考中心 重庆职校报名网 公办重点中职招生办电话 重庆职校报名网 重庆中专学校招生
版权声明

本文仅代表作者观点,不代表本站立场。
本站资源均来自互联网整理,版权归原作者所有,切勿用作非法使用和未经授权的商用,因此带来的法律风险与本站无关。

本文链接:http://www.chousj.cn/exceljc/831.html

发表评论

评论列表(0人评论 , 30人围观)
☹还没有评论,来说两句吧...

免费资源分享网_电脑操作教程_免费源代码下载_免费字体下载_高清电脑壁纸

http://www.chousj.cn/

| 渝ICP备15004826号

Powered By

使用手机软件扫描微信二维码

关注我们可获取更多热点资讯

Honor accompaniments. theme qk_xmh