VBA之WrokSheet工作表对象VBA之WrokSheet工作表对象.pdfVIP

WorkSheet 工作表对象(一) 如何引用工作表？ 通过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 来释放被引用的对象有关联 的内存资源及系统