Excel VBA教程:Count属性

应用于 Adjustments、CanvasShapes、DiagramNodeChildren、DiagramNodes 和 ShapeNodes对象的 Count属性。

返回指定集合中对象的数目。Integer 类型,只读。

expression.Count

expression   必需。该表达式返回上面的对象之一。

应用于“应用于”列表中的其他所有对象的 Count属性。

返回指定集合中对象的数目。Long 类型,只读。

expression.Count

expression   必需。该表达式返回“应用于”列表中的对象之一。

Excel VBA教程:Count属性·示例

本示例显示 Sheet1 上选定区域中的列数。本示例还将检测选定区域中是否包含多重选定区域,如果包含,则对多重选定区域中每一子区域进行循环。


Worksheets("Sheet1").Activate
areaCount = Selection.Areas.Count
If areaCount <= 1 Then
    MsgBox "The selection contains " & _
        Selection.Columns.Count & " columns."
Else
    For i = 1 To areaCount
        MsgBox "Area " & i & " of the selection contains " & _
            Selection.Areas(i).Columns.Count & " columns."
    Next i
End If

本示例将 A1 单元格的最后一个字符设为上标字符。


n = Worksheets("Sheet1").Range("A1").Characters.Count
Worksheets("Sheet1").Range("A1").Characters(n, 1) _
    .Font.Superscript = True

上页:Excel VBA教程:CorrectSentenceCap属性 下页:Excel VBA教程:CreateBackup属性

Excel VBA教程:Count属性

Excel VBA教程:CreateBackup属性 Excel VBA教程:Creator属性
Excel VBA教程:Criteria1属性 Excel VBA教程:Criteria2属性
Excel VBA教程:CropBottom属性 Excel VBA教程:CropLeft属性
Excel VBA教程:CropRight属性 Excel VBA教程:CropTop属性
Excel VBA教程:Crosses属性 Excel VBA教程:CrossesAt属性
Excel VBA教程:CubeField属性 Excel VBA教程:CubeFields属性
Excel VBA教程:CubeFieldType属性 Excel VBA教程:CurrentArray属性
Excel VBA教程:CurrentPage属性 Excel VBA教程:CurrentPageList属性
Excel VBA教程:CurrentPageName属性 Excel VBA教程:CurrentRegion属性
Excel VBA教程:Cursor属性 Excel VBA教程:CursorMovement属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号