vba - 获取Button界面对象对应的Range

Question

我希望当我单击“Sélectionner un poste”按钮时它会告诉我位置。 (我在哪一行点击的按钮。)

创建按钮的代码:

Sub AjouterBoutonPoste(positionX As Integer, positionY As Integer, nom As String)
    Set t = ActiveSheet.Range(Cells(positionX, positionY), Cells(positionX, positionY))
    Set btn = ActiveSheet.Buttons.Add(t.Left, t.Top, t.Width, t.Height)
    With btn
        .OnAction = "PosteBtAction"
        .Caption = "Sélectionner un poste"
        .Name = nom & CStr(positionX) & CStr(positionY)
    End With
End Sub

事件按钮的代码:

Sub PosteBtAction()
   AssocierSessoinCandidature.Show
End Sub

我有一个名为 AssocierSessoinCandidature 的应用程序窗口。我希望将我点击的位置发送到应用程序窗口。

这是我的 Excel 工作表示例:

Answer 1

单击按钮时调用以下 Sub

Sub foo()

Dim obj As Object
Dim row_no As Integer

Set obj = ActiveSheet.Buttons(Application.Caller)
With obj.TopLeftCell
    row_no = .Row
End With
MsgBox "The Button is in the row number " & row_no

End Sub