次の方法で共有

Count プロパティ

  • [アーティクル]

重要

この記事は機械翻訳されています。機械翻訳についての「免責事項」をお読みください。この記事の英語版を参照するには、ここをクリックしてください。

コレクションに含まれるオブジェクトの数を表す長整数型 (Long) の値を返します。

Syntax

式 .Count

式 Range オブジェクトを表す変数。

使用例

次の使用例はシート 1 の選択範囲に列の数を表示します。コードは、またに複数範囲のテストします。存在する場合は、コードの複数の選択範囲の上の領域をループします。

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

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

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

注意

機械翻訳についての免責事項: この記事の翻訳はコンピューター システムによって行われており、人間の手は加えられていません。マイクロソフトでは、英語を話さないユーザーがマイクロソフトの製品、サービス、テクノロジに関するコンテンツを理解するのに役立てるため、こうした機械翻訳を提供しています。記事は機械翻訳されているため、用語、構文、文法などに誤りがある場合があります。