列名を取得、列番号を取得(Address プロパティ,Column プロパティ)
列番号を取得する
セル番地(「A1」や「B3」)や列名(「A」「B」「C」… )から列番号を取得するするには、Column プロパティ を利用します。
columnnumber = object.Column
引数・戻り値
- object ・・・ 対象となる Range オブジェクトを指定します。セル範囲を指定した場合、左上端のセルを参照します。
- columnnumber ・・・ 列の番号を表す長整数型(Long)の値。
Column プロパティ に関しては、セルの行番号または列番号を取得 を参照してください。
列名を取得する
列番号から列名を取得する関数やプロパティはありませんが、Address プロパティ と Split 関数 を組み合わせて利用すると取得することができます。
columnname = Split ( Cells( [ rownumber ], columnnumber ).Address, “$” )(1)
引数・戻り値
- rownumber ・・・ 行の番号を表す長整数型(Long)の値を指定します。(省略可)
- columnnumber ・・・ 列の番号を表す長整数型(Long)の値を指定します。
- columnname ・・・ 列名を表す文字列型(String)の値。
Address プロパティ に関しては、セルのアドレスを確認(Address プロパティ) を参照してください。
Split 関数 に関しては、Split 関数(文字列型の一次配列を作成) を参照してください。
列名を取得、列番号を取得 使用例
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
Sub Sample_GetColumn() Dim str As String '「AAA 列」の列番号を取得 str = "「AAA 列」:" & Range("AAA:AAA").Column & Chr(13) '「50列目」の列名を取得 str = str & "「50列目」:" & Split(Cells(, 50).Address, "$")(1) MsgBox str End Sub |
実行結果
関連記事
-
-
別シートのセルを選択(Goto メソッド / PreviousSelections プロパティ)
Goto メソッド 次の例のように、1 行で、Activate メソッド や S …
-
-
罫線の設定(Borders プロパティ)
罫線の設定 罫線を一括(上下左右すべて)で設定するには、Borders プロパテ …
-
-
ハイパーリンク(Hyperlink オブジェクト)
Hyperlink オブジェクト Hyperlinks コレクション のメンバー …
-
-
セルに値を設定する・セルの値を参照する(Value2 プロパティ)
Value2 プロパティ Value プロパティとの違いは、Value2 プロパ …
-
-
入力規則(入力時メッセージの設定)Validation オブジェクト
入力規則の入力時メッセージを表示する Validation.ShowInput …
-
-
セルが選択されているか確認する(TypeName 関数)
セルが選択されているか確認する方法と使用例 TypeName 関数の引数に、Se …
-
-
VBA で、ワークシート関数を使用(WorksheetFunction プロパティ)
VBA で、ワークシと関数を使用 VBA から、ワークシート関数を呼び出す場合、 …
-
-
A1 形式と R1C1 形式を変換、相対参照と絶対参照を変換(ConvertFormula)
ConvertFormula メソッド 数式で参照しているアドレスの相対参照と絶 …
-
-
セルを参照する(Range プロパティ)
Range プロパティ 任意のセルにアクセスするには Range プロパティを使 …
-
-
終端セルを参照する(End プロパティ)
End プロパティ End プロパティは、基準となるセルが含まれる領域の指定した …
- PREV
- 画面の更新を停止(ScreenUpdating プロパティ)
- NEXT
- 文字列:定数(改行・タブ)