vba - (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