「VBA」アクティブセルの座標や行や列の位置を取得する

2021年8月23日

書式
オブジェクト.Address([RowAbsolute], [ColumnAbsolute], [ReferenceStyle], [External], [RelativeTo])
Addressプロパティは、Rangeオブジェクトのプロパティとして使用します。
1.RowAbsolute
行アドレスの取得を絶対参照か相対参照かのどちらなのかを指定します。
2.ColumnAbsolute
列アドレスの取得を絶対参照か相対参照かのどちらなのかを指定します。
使用例

Sub ActiveCellFunc()
    Range("E8").Activate
 
   '// アドレス
    Debug.Print ActiveCell.Address
    
    '// RowAbsolute 行アドレス True
    Debug.Print ActiveCell.Address(True, False)
    
    '// ColumnAbsolute 列アドレス True
    Debug.Print ActiveCell.Address(False, True)
    
    '// RowAbsoluteとColumnAbsolute false
    Debug.Print ActiveCell.Address(False, False)
    
    '// 行位置
    Debug.Print ActiveCell.Row
    
    '// 列位置
    Debug.Print ActiveCell.Column
End Sub

実行結果
$E$8
E$8
$E8
E8
8
5

VBScript

Posted by arkgame