エクセルの使い方: 今いるセルの位置を取得するVBA

Excel2013のVBAで、今いるセルの位置を取得します。

下記のVBAコードで取得しました。

Private Sub MyGetActiveCell()
    Range("B2") = ActiveCell.Address
    Range("B3") = ActiveCell.Column
    Range("B4") = ActiveCell.Row
End Sub

下はＣ6セルにカーソルを移動し実行した結果です。

ActiveCell.Addressでセル番地が絶対番地で取得できています。
ActiveCell.Columnでセルの列位置が取得できています。
ActiveCell.Rowでセルの行位置が取得できています。

上を利用しCellsでセル位置を指定したVBAコードです。

Private Sub MyGetActiveCell()
    Range("B2") = ActiveCell.Address
    Range("B3") = ActiveCell.Column
    Range("B4") = ActiveCell.Row

    Cells(ActiveCell.Row, ActiveCell.Column).Interior.Color = RGB(255, 0, 0)
End Sub

下はＣ7セルにカーソルを移動し実行した結果です。

Cells(ActiveCell.Row, ActiveCell.Column)でセルを指定し、Interior.Colorで背景色を設定しています。

エクセルの使い方

ページ

2016年6月28日火曜日

今いるセルの位置を取得するVBA

Excel2013のVBAで、今いるセルの位置を取得します。