目次
選択したセル範囲の行数と列数を数える
選択したセル範囲の行数と列数をメッセージボックスに表示するマクロです。
Rows.Countプロパティで行数をColumns.Countプロパティで列数を数えます。
■ コード内を「Wクリック」で選択できます。[code] Sub サンプル2700() Dim RowsCount As Long Dim ColumnsCount As Long Range(“B2:D6”).Select RowsCount = Selection.Rows.Count ColumnsCount = Selection.Columns.Count MsgBox “行数 = ” & RowsCount & vbCrLf & _ “列数 = ” & ColumnsCount End Sub [/code]
RowsCountとColumnsCountは変数の宣言です。
[code] Dim RowsCount As Long Dim ColumnsCount As Long [/code]
[code] Dim RowsCount As Long Dim ColumnsCount As Long [/code]
Rows.Countプロパティで行数を取得して、変数RowsCountに値を入れます。
[code] RowsCount = Selection.Rows.Count [/code]
Columns.Countプロパティで列数を取得して、変数ColumnsCountに値を入れます。
[code] ColumnsCount = Selection.Columns.Count [/code]
[code] RowsCount = Selection.Rows.Count [/code]
Columns.Countプロパティで列数を取得して、変数ColumnsCountに値を入れます。
[code] ColumnsCount = Selection.Columns.Count [/code]
「行数＝」のように文字列のときは、「ダブルクォーテーション」で囲みます。
数値などを接続するときは、「＆」で囲みます。
[code] MsgBox “行数 = ” & RowsCount & vbCrLf & _ “列数 = ” & ColumnsCount [/code]
数値などを接続するときは、「＆」で囲みます。
[code] MsgBox “行数 = ” & RowsCount & vbCrLf & _ “列数 = ” & ColumnsCount [/code]
●マクロの実行結果
メッセージボックスに行数と列数が表示されます。
目次