工作表大家应该不会陌生，天天爬表格的，如果这个还不知道是啥就只有面壁思过了。
今天我们讲讲工作表对象WorkSheet，前面已经讲过了工作表集合Sheets与WorkSheets。
Worksheet 对象既是Worksheets集合的成员，也是Sheets集合的成员。
如何引用工作表？
通过Sheets(index)或Worksheets(index)可返回一个WorkSheet对象（工作簿中如果包含图表工作表，那Sheets(index)有可能返回的是图表对象）。
Index是工作表索引号或者工作表名称。
索引号表示该工作表在工作簿的标签栏上的位置。所有工作表均包含在索引计数中，即便是隐藏的工作表也是如此。 Worksheets(1)是工作表中第一个（最左边）工作表，而Worksheets（worksheets.count）则是最后一个。
Worksheet.Application 属性
如果不使用对象识别符，则该属性返回一个 Application 对象，该对象表示 Microsoft Excel 应用程序。
如果使用对象识别符，则该属性返回一个表示指定对象（可对一个 OLE 自动操作对象使用本属性来返回该对象的应用程序）创建者的 Application 对象。
这个属性在之前的工作簿，工作簿集合，工作表集合都包含有，以后再介绍Application对象。
Worksheet.Cells 属性
返回一个 Range 对象，它代表工作表中的所有单元格（不仅仅是当前使用的单元格）。
因为 Item 属性是 Range 对象的默认属性（默认属性：可以为控件设置的属性，以使每次创建该类型的新控件时，这个属性的值都相同），所以可以在 Cells 关键字后面紧接着指定行和列索引。
示例：
ActiveSheet.Cells(5, 3).Value = 'VBA零基础入门'
'修改C5单元格的值
'5代表行号，3是列号
Worksheet.CircularReference 属性
返回一个 Range 对象，该对象表示工作表上包含第一个循环引用的区域，或返回 Nothing（如果工作表上没有循环引用）。在继续执行计算之前，必须删除循环引用。
示例：
Dim rg As Range
Set rg = ActiveSheet.CircularReference
If Not rg Is Nothing Then
MsgBox '当前工作表中第一个循环引用的单元格地址为：' & rg.Address
End If
Worksheet.CodeName 属性
返回对象的代码名，String类型，只读。
可以在设计过程中通过更改该值来改变对象的代码名。不能在运行过程中更改该属性。
对于一个返回指定对象的表达式，该表达式可使用对象的代码名。
例如，如果第一张工作表的代码名为 Sheet1，则下列表达式是等价的。
Worksheets(1).Range('a1')
Sheet1.Range('a1')
工作表的名称可以与其代码名不同。
创建一张工作表时，其工作表名称和代码名是相同的，
不过，更改工作表名称时并不影响其代码名，并且，更改工作表代码名（在 Visual Basic 编辑器中使用“属性”窗口）也不影响其名称。
工程资源管理器文件夹
2013-12-10 22:38 上传
下载附件 (21.99 KB)
工程资源管理器普通列表
2013-12-10 22:38 上传
下载附件 (18.42 KB)
在列表中，工作表对象的名称显示为代码名（工作表名称）。可参考上图中的显示来理解。
在工作表属性窗口中，Name是工作表名称，(名称)属性就是代码名称。
2013-12-10 22:38 上传
下载附件 (79.16 KB)
在“属性”窗口中“（名称）”右边的单元格中显示的值是所选对象的代码名。
补充资料：
Is Nothing用法
这时的IS是比较运算符，一个对象变量如果用一个正确对象的引用来赋值的话，其值就为Nothing。
通常要对一个对象变量操作前，可以进行判断其值是否有一个对象引用。
如果其值为Nothing，如果操作该对象引用的话，就会产生一个运行错误：对象变更或With块变量未设置。
另外，当对象引用完毕后，可以执行Set 对象变量=Nothing来释放被引用的对象有关联的内存资源及系统资源。
联系客服
