在excel vba中查找按钮对象的单元格

在Excel VBA中，要查找按钮对象的单元格，可以使用以下代码：

Sub FindButtonCell()
    Dim ws As Worksheet
    Dim btn As Button
    Dim cell As Range
    
    Set ws = ThisWorkbook.Worksheets("Sheet1") '替换为你要操作的工作表名称
    
    For Each btn In ws.Buttons
        If btn.Name = "Button1" Then '替换为你要查找的按钮名称
            Set cell = btn.TopLeftCell
            Exit For
        End If
    Next btn
    
    If Not cell Is Nothing Then
        MsgBox "按钮所在的单元格是：" & cell.Address
    Else
        MsgBox "未找到按钮对象"
    End If
End Sub

上述代码中，首先通过Set ws = ThisWorkbook.Worksheets("Sheet1")指定要操作的工作表，然后使用For Each循环遍历工作表中的所有按钮对象。通过判断按钮的名称是否匹配，可以找到目标按钮对象。一旦找到按钮对象，可以使用btn.TopLeftCell属性获取按钮所在的单元格。最后，通过MsgBox函数显示按钮所在单元格的地址。

这是一个简单的示例，你可以根据实际需求进行修改和扩展。在Excel VBA中，还有其他方法可以查找按钮对象的单元格，例如使用按钮的位置信息或者通过按钮所在的Shape对象等。