кнопка (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