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

hwc2ycy

　　Worksheet.Columns 属性
　　返回一个 Range 对象，它代表指定工作表中的所有列。
　　如果指定的非工作表，则 Columns 属性失效。
　　在不使用对象识别符的情况下使用此属性等效于使用 ActiveSheet.Columns。
　　此属性在应用于一个是多重选定区域的 Range 对象时，会只从该区域的第一个子区域中返回列。
　　例如，如果 Range 对象有两个子区域 A1:B2 和 C3:D4，那么，Selection.Columns.Count 的返回值是 2，而不是 4。
　　若要对一个可能包含多重选定区域的区域使用此属性，请测试 Areas.Count 以确定此区域内是否包含多个子区域。
　　如果包含，请对此区域内的每个子区域进行循环。
　　示例：
　　　Worksheets("Sheet1").Columns(1).Font.Bold = True
　　　'sheet1工作表的第一列字体加粗

　　　Dim rg As Range
　　　If TypeName(Selection) = "Range" Then
　　　'检测当前所选择的是否单元格对象
　　　　Debug.Print Selection.Address
　　　　'在立即窗口输出所选单元格的地址
　　　　For Each rg In Selection.Areas
　　　　'区域中循环（这样避免多选情况下有漏网之鱼）
　　　　With rg
　　　　　.Columns.Font.Italic = True
　　　　　'斜体
　　　　　.Font.ColorIndex = 3
　　　　　'字体颜色
　　　　End With
　　　　Debug.Print rg.Address
　　　Next
　　　End If

　　Worksheet.Comments 属性
　　返回一个 Comments 集合，该集合表示指定工作表的所有注释，只读。
　　示例：
　　Dim ct As Comment
　　If ActiveSheet.Comments.Count Then
　　　　For Each ct In ActiveSheet.Comments
　　　　　Debug.Print ct.Text
　　　　　'在立即窗口中显示批注内容
　　　　　'可以用代码操作，添加批注
　　　　Next
　　End If

　　Worksheet.CustomProperties 属性
　　返回一个 CustomProperties 对象，该对象表示与工作表相关的标识符信息。
　　对于 CustomProperties 属性，工作表的标识符信息可以表示 XML 的元数据。
　　示例：
　　　With ActiveSheet.CustomProperties
　　　　.Add Name:="hwc2ycy", Value:="VBA入门"
　　　　With .Item(1)
　　　　　MsgBox .Name & vbTab & .Value
　　　　End With
　　　End With
　　'向活动工作表添加标识符信息
　　用这招可以偷偷在工作表添加些不易被人发现的附加信息:-)

　　Worksheet.DisplayPageBreaks 属性
　　如果显示指定工作表中的分页符（包括自动和手动分页符），则该属性值为 True，Boolean 类型，可读写。
　　如果没有安装打印机，不能设置该属性。
　　示例：
　　　　Worksheets("Sheet1").DisplayPageBreaks = True
　　　　此项对应的设置在Excel选项，高级，此工作表的显示选项，显示分页符。

　　Worksheet.DisplayRightToLeft 属性
　　如果指定工作表是从右到左显示（而非从左到右），则为 True。
　　如果对象从左到右显示，则为 False。
　　此项对应的设置在Excel选项，高级，此工作表的显示选项，从右到左显示工作表，可参考上图。
　　

　　Worksheet.FilterMode 属性
　　如果工作表处于筛选模式，则为 True。只读 Boolean 类型。
　　示例：
　　　MsgBox ActiveSheet.Name & "处于筛选状态：" & Choose(CInt(ActiveSheet.FilterMode) + 2, "是", "否")
　　注意，这个属性和AutoFilter还是有区别的，区别在哪，大家可以细细观察。

zjyxp

向烟花老师学习V,老师辛苦了

yewei113

老师辛苦了,

ZZCUEEI

Ex_EP

{:1112:}

我的一生141314

王一      

tingfeng461002

ANDY0393

Worksheet.FilterMode 属性
字段进行筛选，返回-1
未进行筛选，返回0
谢谢分享，标记，四十七

kezhang1201

mark  mark