如何動態地將按鈕文本傳遞給vba函數

Question

如何將按鈕文本動態地傳遞給vba函數？ E.g，我有文字 ''

Sub Status() 
    Dim ButtonText As String 
    With ActiveSheet.UsedRange 
      .AutoFilter 3, "=<button-text>" 
    End With 
End Sub 

Answer 1

按鈕對於表格按鈕：

Sub Status() 
    Dim shp As Shape, ButtonText As String 

    Set shp = ActiveSheet.Shapes(Application.Caller) 
    ButtonText = shp.OLEFormat.Object.Caption 

    ActiveSheet.UsedRange.AutoFilter 3, "=" & ButtonText 

End Sub