第2章Worksheet.doc

第2章 Worksheet(工作表)对象 2011年05月11日 13:49:47 来源:威远县两河镇沙湾小学校【字体：大?中?小】 技巧1 ???????????? 引用工作表的方式 1-1????????????? 使用工作表的名称 工作表名称是指显示在工作表标签中的文本，工作表名称可以使用WorkSheets集合和Sheets集合两种引用方式，如下面的代码所示。 #001 Sub ShActivate() #002 Worksheets(索引号).Activate #003 Sheets(索引号).Activate #004 End Sub 第3、4行代码都激活工作簿中名称为“索引号”的工作表，激活后“索引号”工作表将成为活动工作表。 WorkSheets集合包含所有的工作表，而Sheets集合不仅包含工作表集合WorkSheets，还包含图表集合Charts、宏表集合Excel4MacroSheets与MS Excel 5.0对话框集合DialogSheets等。 任何时刻工作簿中只有一个工作表是活动工作表。 1-2????????????? 使用工作表的索引号 工作表索引号是指工作表在工作簿中的位置，Excel根据工作表在工作表标签中的位置以1开始从左向右进行编号。下面的代码选中并激活当前工作簿中第1个工作表： #001 Sub ShIndex() #002 Worksheets(1).Select #003 End Sub 单个WorkSheet对象的Select方法与Activate方法的主要区别在于Select方法要求工作表可视。 注意 当工作簿包括工作表、宏表、图表等时，使用索引号引用工作表如Sheets(1)与WorkSheets(1)引用的可能不是同一个表。 使用Worksheet对象的Index属性可以返回工作表的索引号，如下面的代码所示。 #001 Sub ShInde() #002 MsgBox Worksheets(索引号).Index #003 End Sub 1-3????????????? 使用工作表的代码名称 使用Worksheet对象的CodeName属性可以返回工作表的代码名称，如下面的代码所示。 #001 Sub ShCodeName() #002 MsgBox Sheets(1).CodeName #003 End Sub 工作表的代码名称显示在VBE工程资源管理器窗口中，在属性窗口中能够修改工作表代码名称，如图 211所示。在VBA中能够直接使用工作表的代码名称引用工作表，即使工作表的名称被修改，代码仍然能够正常运行。 图 211 工作表的代码名称 1-4????????????? 使用ActiveSheet属性引用活动工作表 使用ActiveSheet属性可以返回活动工作表，如下面的代码所示。 #001 Sub ShActive() #002 MsgBox ActiveSheet.Name #003 End Sub ActiveSheet属性应用于AppActivate对象、Window对象和Workbook对象时，如果未给出对象识别符，返回活动工作簿中的活动工作表。 技巧2 ???????????? 选择工作表的方法 在VBA中需要激活或者选择某个工作表时使用Select方法或Activate方法，如下面的代码所示。 #001 Sub SelectSh() #002 Worksheets(Sheet2).Select #003 End Sub #004 Sub ActivateSh() #005 Worksheets(Sheet2).Activate #006 End Sub 代码解析： SelectSh过程使用Select方法选择“Sheet2”工作表，而ActivateSh过程则使用Activate方法选择“Sheet2”工作表，从表面看两者的作用是相同的，但是如果“Sheet2”工作表是隐藏的，Activate方法可以正常运行，而Select方法将会出现错误，如图 221所示。 图 221 Select方法无效提示 如果需要同时选中工作簿中的所有工作表，则只能使用Select方法而不能使用Activate方法，如下面的代码所示。 #001 Sub SelectShs() #002 Dim Shs As Worksheet #003 For Each Shs In Worksheets #004 Shs.Select False #005 Next #006 End Sub #007 Sub Select