VBA技巧21引用工作表的方式.doc

《VBA技巧21引用工作表的方式.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、个人收集整理勿做商业用途技巧1引用工作表的方式ＶBＡ中,在不同的工作表之间转换或者对不同工作表中的单元格区域进行操作时，需要指定引用的工作表，通常有下面几种方法：1-1使用工作表的名称工作表名称是指显示在工作表标签中的文本,工作表名称可以使用WｏｒkSheｅts集合和Sheeｔｓ集合两种引用方式，如下面的代码所示。#０0１　ＳubＳhＡctivａｔe()#0０2Woｒｋsheｅtｓ（＂索引号＂).Ａctｉvａte#０03　　'Sｈeets("索引号")．Ａctivatｅ＃004EndSuｂ第3、4行代码都激活工作簿中名称为“索引号”的工作表,激活后“索引号”工作表将成为活动工

2、作表。WｏrkＳheｅts集合包含所有的工作表，而Sheeｔｓ集合不仅包含工作表集合WorｋSｈeｅtｓ,还包含图表集合Cｈartｓ、宏表集合Ｅxceｌ4ＭａcroSheets与MS　Ｅｘcel5．0对话框集合DiａlogＳｈeets等。任何时刻工作簿中只有一个工作表是活动工作表。1-2使用工作表的索引号工作表索引号是指工作表在工作簿中的位置,Eｘｃeｌ根据工作表在工作表标签中的位置以1开始从左向右进行编号。下面的代码选中并激活当前工作簿中第1个工作表：#00１SubＳhＩndｅx()#0０2Ｗorｋshｅets(1)．Sｅlｅｃt＃00３End　Sub单个WｏrkＳheｅt

3、对象的Seｌeｃt方法与Activate方法的主要区别在于Seｌｅct方法要求工作表可视。注意当工作簿包括工作表、宏表、图表等时,使用索引号引用工作表如Ｓheets(1个人收集整理勿做商业用途)与WorkSｈeets(1)引用的可能不是同一个表。使用Wｏrksheet对象的Index属性可以返回工作表的索引号,如下面的代码所示。#001SuｂShＩnde()#０02　MsgBoxWorksheeｔs（"索引号").Iｎｄeｘ＃00３　Eｎd　Sub1-1使用工作表的代码名称使用Workｓhｅｅt对象的CoｄeNamｅ属性可以返回工作表的代码名称，如下面的代码所示。＃001Ｓｕ

4、b　ＳhCodeName（)#0０2MsgBoxSｈeets(1).CｏdeNamｅ#003EndＳuｂ工作表的代码名称显示在VBE工程资源管理器窗口中,在属性窗口中能够修改工作表代码名称,如Error!Referencesourcenotfound.所示。在ＶBA中能够直接使用工作表的代码名称引用工作表，即使工作表的名称被修改，代码仍然能够正常运行。图引用工作表的方式﻾1工作表的代码名称1-2使用ＡctiveSｈeeｔ属性引用活动工作表使用ActiｖeＳheｅt属性可以返回活动工作表，如下面的代码所示。#０01Ｓｕb　ShActive(）#002　MsｇBoｘ　Active

5、Sheet.Naｍe#003　　EｎdＳub个人收集整理勿做商业用途ＡctiveＳheet属性应用于AｐｐAｃtivaｔe对象、Window对象和Ｗoｒkｂoｏｋ对象时，如果未给出对象识别符,返回活动工作簿中的活动工作表。