|
工作表大家应该不会陌生，天天爬表格的，如果这个还不知道是啥就只有面壁思过了。 今天我们讲讲工作表对象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 编辑器中使用“属性”窗口）也不影响其名称。 工程资源管理器文件夹
工程资源管理器普通列表
在列表中，工作表对象的名称显示为代码名（工作表名称）。可参考上图中的显示来理解。 在工作表属性窗口中，Name是工作表名称，(名称)属性就是代码名称。
在“属性”窗口中“（名称）”右边的单元格中显示的值是所选对象的代码名。
补充资料：
Is Nothing用法
这时的IS是比较运算符，一个对象变量如果用一个正确对象的引用来赋值的话，其值就为Nothing。
通常要对一个对象变量操作前，可以进行判断其值是否有一个对象引用。
如果其值为Nothing，如果操作该对象引用的话，就会产生一个运行错误：对象变更或With块变量未设置。
另外，当对象引用完毕后，可以执行Set 对象变量=Nothing来释放被引用的对象有关联的内存资源及系统资源。
| 
IP卡
狗仔卡
发表于 2013-12-10 23:07
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
发表于 2014-6-24 21:46
