【烟花原创】VBA零基础之第64篇 单元格对象Range（八）

hwc2ycy

　　Comment 属性

　　返回一个 Comment 对象，它代表与区域左上角单元格相关联的批注。

　　示例：

　　　　Dim rg As Range

　　　　Application.DisplayCommentIndicator =xlCommentIndicatorOnly

　　　　'返回或设置单元格显示批注和标识符的方式

　　　　　　'xlCommentAndIndicator 1 任何时候都显示批注和标识符。

　　　　　　'xlCommentIndicatorOnly -1 只显示标识符。鼠标指针在单元格上移动时显示批注。

　　　　　　'xlNoIndicator 0 任何时候都不显示批注也不显示标识符。

　　　　For Each rg InRange("a1").CurrentRegion

　　　　　　   If Len(rg.Value) Then

　　　　　　       If rg.Comment Is Nothing Then

　　　　       　　    rg.AddComment CStr(rg.Value)

　　　　　　           '添加批注

　　　　　　       Else

　　　　　　           rg.Comment.Delete

　　　　       　　End If

　　　　　　   End If

　　　　Next

　　在A1单元格所在的区域内循环，非空单元格没有批注的创建批注（批注内容为单元格的值），有批注的删除批注。

　　FormulaHidden 属性

　　返回或设置一个 Variant 值，它指明在工作表处于保护状态时是否隐藏公式。

　　说明：

　　　　如果在工作表处于保护状态时要隐藏公式，此属性将返回 True；

　　　　如果指定区域中有些单元格的FormulaHidden 为 True，而有些单元格的 FormulaHidden 为 False，则返回 Null。

　　　　如果工作簿受保护，而工作表不受保护，将不会隐藏公式。

　　　　只有在工作表受保护时，才会隐藏公式。

　　Locked 属性

　　返回或设置一个 Variant 值，它指明对象是否已被锁定。

　　说明：

　　　　如果对象已被锁定，此属性将返回 True；

　　　　如果在工作表处于受保护状态时仍能修改对象，则返回 False；

　　　　如果指定区域既包含锁定单元格又包含不锁定单元格，则返回 Null。

　　Parent 属性

　　返回指定对象的父对象，只读。

　　示例：

　　　　MsgBox ActiveCell.Parent.Name

　　Borders 属性

　　返回一个 Borders 集合，它代表样式或单元格区域（包括定义为条件格式一部分的区域）的边框。

　　示例：

　　　　With Range("B3").CurrentRegion

　　　　   With .Borders

　　　　       .LineStyle = xlContinuous

　　　　       '边框线条类型，实线边框

　　　　       .Weight = xlThin

　　　　       '边框粗细：细

　　　　       .Color = vbBlue

　　　　       '边框颜色:蓝色

　　　　   End With

　　　　End With

　　对B3单元格所在的区域设置蓝色的细的实线边框。

　　Interior 属性

　　返回一个 Interior 对象，它代表指定对象的内部，与填充的颜色，底纹有关。

　　示例：

　　　　Dim i As Byte

　　　　For i = 1 To 56

　　　　　　With Cells(i, 1)

　　　　　　　　.Interior.ColorIndex = i

　　　　　　　　.offset(,1).value=i

　　　　         Endwith

　　　　Next

　　　　A列演示系统默认的调色盘颜色编号值。

　　FormatConditions 属性

　　返回一个 FormatConditions 集合，该集合表示指定区域的所有条件格式。

　　示例：

　　　　With Range("B1").FormatConditions

　　　　　　If .Count = 0 Then

　　　　　　       MsgBox "B1单元格无条件格式"

　　　　　　Else

　　　　　　       MsgBox "B1单元格内应用了 " & .Count & " 个条件格式"

　　　　　　End If

　　　　End With

　　条件格式的具体属性和方法可参考FormatCondition对象。

　　ListObject 属性

　　为 Range 对象返回一个 ListObject 对象，只读。
　　示例：

　　　　If Not Range("a1").ListObject IsNothing Then

　　　　   With Range("a1").ListObject

　　　　       MsgBox .Name & vbCrLf & "列表对象应用的单元格区域："& .Range.Address(False, False)

　　　　   End With

　　　　End If

　　学习过数据透视表的童鞋对列表功能应该不陌生，动态数据源其中一种方法就是应用列表。
　　在工作表中按Ctrl+K即可创建列表。

　　Previous

　　返回一个代表下一个单元格的 Range 对象。

　　说明：

　　　　如果指定对象为区域，则此属性的作用是仿效 Shift+Tab；

　　　　但此属性只是返回上一单元格，并不选定它。

　　　　在保护工作表上，该属性返回上一个未锁定的单元格。

　　　　在未保护的工作表上，该属性通常返回指定单元格左侧相邻的单元格。

　　示例：

　　　　MsgBox Range("c1").Previous.Address

　　　　MsgBox [c2,e2:a1].Previous.Address

　　Next 属性

　　返回一个代表下一个单元格的 Range 对象。

　　说明：

　　　　如果该对象为区域，则此属性会模拟 Tab 键，但会返回下一个单元格，而不选中它。

　　　　在处于保护状态的工作表中，此属性返回下一个未锁定单元格。

　　　　在未保护的工作表中，此属性总是返回紧靠指定单元格右边的单元格。

　　示例：

　　　　MsgBox [a1].Next.Address

　　Hyperlinks 属性

　　返回 Hyperlinks 集合，它代表区域的超链接。

　　通常利用这个属性制作目录。

　　工作表对象下也有该属性。

　　示例：

　　　　Dim i As Byte

　　　　Worksheets.Add Count:=8

　　　　For i = 1 To Worksheets.Count

　　　　　　Range("c" & i).Hyperlinks.Add Range("c" &i), Address:="",  _
　　　　　　　　　　SubAddress:="sheet" & i &"!A1",  TextToDisplay:=Worksheets(i).Name,  _
　　　　　　　　　　ScreenTip:=Worksheets(i).Name

　　　　Next

　　补充资料：与数据透视表有关的单元格属性

　　　　PivotCell

　　　　PivotField

　　　　PivotItem

　　　　PivotTable

yewei113

支持烟花

tingfeng461002

ANDY0393

在工作表中按Ctrl+K插入超链接
谢谢分享，标记，六十四