【烟花原创】VBA零基础之第48篇 工作表对象Worksheet（三）

hwc2ycy

　　Worksheet.Index 属性

　　返回 Long 值，它代表对象在其同类对象所组成的集合内的索引号。
　　示例：

　　MsgBox ActiveSheet.Index

　　Worksheet.ListObjects 属性

　　返回工作表中 ListObject对象的集合。ListObjects 集合，只读。

　　在平常操作中，选中数据区按CTRL+T即可创建表格。

　　示例：

　　　　Dim lst As ListObject

　　　　　IfActiveSheet.ListObjects.Count Then

　　　　　For Each lst InActiveSheet.ListObjects

　　　　　　Debug.Printlst.Name, lst.Range.Address

　　　　　Next

　　　　End If

　　检测当前活动工作表中是否有表格对象，有的话在立即窗口中输出表名和所对应的区域

　　Worksheet.Name 属性

　　返回或设置一个String 值，它代表对象的名称。

　　注意，当给指定的工作表改名时，不要犯了重名的错误了。

　　命名重复会产生代码为1004的运行错误。

　　示例：

　　　　Dim i As Byte

　　　　For i = 1 ToWorksheets.Count

　　　　　Worksheets(i).Name ="A" & i

　　　　Next

　　Worksheet.Names 属性

　　返回一个 Names 集合，它代表所有特定于工作表的名称（使用“WorksheetName!”前缀定义的名称）。
　　Names 对象，只读。

　　在不使用对象识别符的情况下使用此属性等效于使用 ActiveWorkbook.Names。

　　示例：

　　　　ActiveSheet.Names.Add Name:="test",RefersToR1C1:="=" & ActiveSheet.Name & "!R2C3"

　　　　ActiveSheet.Names.Add Name:="test2",RefersToR1C1:=Range("c4")

　　在当前工作表内定义两个名称test,test2。

　　Worksheet.Next 属性

　　返回代表下一个工作表的Worksheet 对象。

　　示例：

　　　　If Not ActiveSheet.Next IsNothing Then

　　　　　　MsgBox ActiveSheet.Next.Name

　　　　End If　　

　　如果当前活动工作表非最后一个，则会通过消息框显示位于当前工作表之后的工作表名称

　　Worksheet.Previous 属性

　　返回代表下一个工作表的Worksheet 对象。

　　和Next相反，返回位于当前工作表前面的工作表对象。　　
　　示例：

　　　　If Not ActiveSheet. PreviousIs Nothing Then

　　　　　　MsgBox ActiveSheet. Previous

　　　　End If

　　换成用INDEX属性也能实现这个效果。

　　Worksheet.PageSetup 属性

　　返回一个PageSetup 对象，它包含用于指定对象的所有页面设置。

　　PageSetup对象可通过录制宏来熟悉。

　　Worksheet.Parent 属性

　　返回指定工作表的父对象（即工作簿）。

　　示例：

　　　　MsgBox ActiveSheet.Parent.FullName

　　Worksheet.ScrollArea 属性

　　以 A1 样式的区域引用形式返回或设置允许滚动的区域。
　　用户不能选定滚动区域之外的单元格,String 类型，可读写。

　　可将该属性设置为空字符串 ("") 以允许对整张工作表内所有单元格的选定。

　　示例：

　　　　Worksheets(1).ScrollArea ="A10:S20"

　　设置允许滚动区域后，虽然不能用鼠标选之滚动区域之外的单元格，但是可以从地址栏直接跳转。

　　Worksheet.StandardHeight 属性

　　以磅（磅：指打印的字符的高度的度量单位。1 磅等于 1/72 英寸，或大约等于 1 厘米的 1/28。）为单位返回工作表中所有行的标准高度（默认值）。Double 类型，只读。

　　Worksheet.StandardWidth 属性

　　返回或设置工作表中所有列的标准列宽（默认值），Double 类型，可读写。

注意标准行高是只读的，标准列宽既能读又能写。

　　Worksheet.Type 属性

　　返回一个代表工作表类型的 XlSheetType 值。

　　XlSheetType的值如下：

　　　　xlChart -4109 图表

　　　　xlDialogSheet -4116 对话框工作表

　　　　xlExcel4IntlMacroSheet 4 Excel 版本 4 国际宏工作表

　　　　xlExcel4MacroSheet 3 Excel 版本 4 宏工作表

　　　　xlWorksheet -4167 工作表

　　注意，当特定对象是worksheet对象时，返回的类型只可能有-4167。

　　当从sheets集合中引用对象时，返回的类型可以为3，4，-4167三种。

yewei113

复制下来,留着以后看,谢谢

tingfeng461002

ANDY0393

Worksheet.ListObjects 属性
　　返回工作表中 ListObject对象的集合。ListObjects 集合，只读。
　　在平常操作中，选中数据区按CTRL+T即可创建表格。
03版的列表，选中数据区按CTRL+L即可创建
高版本尚未测试快捷方式
谢谢分享，标记，四十八