（VBA）button，msgbox单元格的行和列

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

我试过使用

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

但似乎没有工作。

Answer 1

将下面的例程放在一个标准的代码模块中，并将其作为macros指定给您的button：

 Sub DeleteButton() ActiveSheet.Shapes(Application.Caller).Delete End Sub 

要将上述过程作为macros分配给活动工作表中的所有button，请运行以下过程：

 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