[アクティブセルのアドレスを調べる]





*シート上にコマンドボタンを作成して、下のコードを貼り付けて下さい。

---

Private Sub CommandButton1_Click()


MsgBox "アクティブセルのアドレス ---> " & ActiveCell.Address

MsgBox "行番号 ---> " & ActiveCell.Row & Chr(13) & _
"列番号 ---> " & ActiveCell.Column



End Sub

---