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

Question

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

我尝试使用

  c = ActiveCell.Column & ActiveCell.Row
  ActiveSheet.Shapes.Range(Array("Btn" & c).Select
  Selection.Delete

但似乎不起作用。

Answer 1

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

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