【VBA】ボタンのあるセルの位置を取得する

2019年2月24日

筆箱にカンニングペーパーを入れる係のみすくです。こんにちは。
VBA関連だけまとめたブログもあります。
筆箱VBA

クリックしたボタンが、シート上のどこにあるのかを
取得します。

Option Explicit

Public Sub getButtonPosition()
    Debug.Print "アドレス：" & ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address
    Debug.Print "行：" & ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
    Debug.Print "列：" & ActiveSheet.Shapes(Application.Caller).TopLeftCell.Column
End Sub