アクティブセルのアドレスを取得する

2023年9月8日

アクティブセルのアドレスを取得して、メッセージボックスに表示します。

A1形式のアドレスを取得するには、Addressプロパティを使います。

指定セルの行番号と列番号を取得する

Rowプロパティで行番号を取得し、Columnプロパティで列番号を取得します。

■　コード内を「Wクリック」で選択できます。

Sub サンプル2580()
&lt;pre&gt;&lt;code&gt;Dim Row As Integer
Dim Col As Integer

Row = ActiveCell.Row
Col = ActiveCell.Column
MsgBox &quot;アクティブセルは(&quot; &amp;amp; Row &amp;amp; &quot;:&quot; &amp;amp; Col &amp;amp; &quot;)です&quot;&lt;/code&gt;&lt;/pre&gt;
End Sub

Rowプロパティでアクティブセルの「行番号」を取得します。

Row = ActiveCell.Row

Columnプロパティでアクティブセルの「列番号」を取得します。

Col = ActiveCell.Column

メッセージボックスに行番号と列番号を表示します。

MsgBox &quot;アクティブセルは(&quot; &amp;amp; Row &amp;amp; &quot;:&quot; &amp;amp; Col &amp;amp; &quot;)です&quot;

■　マクロの実行結果

A1形式でアドレスを取得する

A1形式でアドレスを取得するには、Addressプロパティを使います。

■　コード内を「Wクリック」で選択できます。

Sub サンプル2585()
&lt;pre&gt;&lt;code&gt;MsgBox ActiveCell.Address&lt;/code&gt;&lt;/pre&gt;
End Sub

Addressプロパティでアドレスを取得して、メッセージボックスに表示します。
Addressプロパティはアドレスを絶対参照で、表示します。

MsgBox ActiveCell.Address

■　マクロの実行結果

A1形式でアドレスの相対参照を取得する

■　コード内を「Wクリック」で選択できます。

Sub サンプル2590()
&lt;pre&gt;&lt;code&gt;MsgBox ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)&lt;/code&gt;&lt;/pre&gt;
End Sub

アドレスを相対参照で取得します。

ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)

■　マクロの実行結果

以上で「アクティブセルのアドレスを取得する」の説明を終わります。