（VBA）单元格中的按钮，msgbox单元格'；s行和列

我正在编写一个VBA，它将： 单击单元格中的按钮后，提取单元格的位置（即，如果行为2，列为1，21），以便使用它删除按钮 *按钮正在填充整个单元格

我试着用

---

但似乎不起作用。

将以下例程放在标准代码模块中，并将其作为宏分配给按钮：

Sub DeleteButton()

    ActiveSheet.Shapes(Application.Caller).Delete

End Sub

要将上述步骤作为宏指定给激活工作表上的所有按钮，请运行以下步骤：

Sub AssignMacroToAllButtons()
    Dim b As Shape
    For Each b In ActiveSheet.Shapes
        If b.Type = 8 Then
            b.OnAction = "DeleteButton"
        End If
    Next
End Sub

---

我只在单元格中看到文本。有按钮吗？按钮名称的数字部分前是否有空格字符？抱歉，我编辑了postno。它不像“btn11”。如果用户单击单元格中的按钮，该单元格是否被选中？抱歉，再次打扰您，是否有办法将宏分配给所有按钮，而不必手动逐个执行？；我不熟悉这个网站，很抱歉that@Yong你还在吗？我已经为您编写了一个过程，可以自动将宏分配给所有按钮。是的，正在努力解决这个问题：）

Sub AssignMacroToAllButtons()
    Dim b As Shape
    For Each b In ActiveSheet.Shapes
        If b.Type = 8 Then
            b.OnAction = "DeleteButton"
        End If
    Next
End Sub