如何动态地将按钮文本传递给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