Count プロパティ

Count プロパティ

Count プロパティを Adjustments** オブジェクト、CanvasShapes コレクション オブジェクト、DiagramNodeChildren コレクション オブジェクト、DiagramNodes コレクション オブジェクト、ListObjects コレクション オブジェクト、ListRows コレクション オブジェクト、ListColumns コレクション オブジェクト、ShapeNodes コレクション オブジェクトに指定した場合**

コレクションに含まれる要素の数を返します。値の取得のみ可能です。整数型 (Integer) の値を使用します。

expression.Count

expression 必ず指定します。上のいずれかのオブジェクトを返すオブジェクト式を指定します。

Count プロパティを上記以外のオブジェクトに指定した場合

コレクションに含まれる要素の数を返します。値の取得のみ可能です。長整数型 (Long) の値を使用します。

expression.Count

expression 必ず指定します。対象となるオブジェクトへの参照を返すオブジェクト式を指定します。

使用例

次の使用例は、シート 1 で選択されているセル範囲の列数を表示します。複数の領域が選択されている場合は、領域ごとに列数を数えて表示します。

Sub DisplayColumnCount()
    Dim iAreaCount As Integer
    Dim i As Integer

    Worksheets("Sheet1").Activate
    iAreaCount = Selection.Areas.Count

    If iAreaCount <= 1 Then
        MsgBox "選択されているのは " & _
            Selection.Columns.Count & " 列です。"
    Else
        For i = 1 To iAreaCount
            MsgBox "領域 " & i & " で選択されているのは " & _
                Selection.Areas(i).Columns.Count & " 列です。"
        Next i
    End If
End Sub
		

次の使用例は、セル A1 の最後の文字を上付き文字にします。

Sub MakeSuperscript()
    Dim n As Integer

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