VBA同时选择多个工作表的方法-豆柴文库

您所在位置：网站首页 / VBA同时选择多个工作表的方法.doc / 文档详情

在线预览结束，喜欢就下载吧，查找使用更方便

10 金币

下载文档

/ 2

下载提示

如果您无法下载资料，请参考说明：

1、部分资料下载需要金币，请确保您的账户上有足够的金币

2、已购买过的文档，再次下载不重复扣费

3、资料包下载后请先用软件解压，在使用对应软件打开

文本预览

VBA同时选择多个工作表的方法


【导读】如果要用VBA同时选择多个工作表，可以利用数组或设置“Select”方法的参数为“False”来扩展所选择的内容，如下面的一些代码：
1.用工作表名称：
假如工作表名称为“Sheet1”、“Sheet2”、“Sheet3”，同时选择这3个工作表：
SubSelectMultiSheets()
Sheets(Array(“Sheet3”&#8218;“Sheet2”&#8218;“Sheet1”)).Select
EndSub
2.用工作表索引号：
索引号是分配给工作表的连续数字，同一类型的工作表在工作簿中按照从左到右的顺序，依次为1、2、3……。下面的代码同时选择第1个和第3个工作表：
SubSelectMultiSheets1()
Worksheets(Array(3&#8218;1)).Select
EndSub
3.选择所有工作表：
如果工作簿中不包含图表工作表、对话框工作表，下面的代码可以同时选择所有的工作表：
SubSelectAllSheets()
DimwsAsWorksheet
ForEachwsInActiveWorkbook.Sheets
ws.SelectFalse
Nextws
EndSub
其中“Select”方法的参数为“False”，以扩展所选择的内容。