用vba创建一个点击查询按钮，点击之后会且显示表格信息内容。

好的，以下是一个简单的 VBA 代码，实现在 Excel 中创建一个按钮，点击后可以弹出一个查询表格内容的窗口，并显示表格信息内容：

首先，在 Excel 工作表中，打开“开发工具”选项卡，在“控件”组中选择“插入”→“按钮”（ActiveX 控件），然后在工作表中画一个按钮，单击右键，选择“查看代码”，在代码模块中输入以下代码：

Private Sub CommandButton1_Click()
    ' 定义变量
    Dim tableData As Variant
    Dim tableRange As Range
    Dim searchValue As Variant
    Dim searchResult As Range
    Dim searchRow As Integer
    Dim searchCol As Integer
    
    ' 获取表格数据
    Set tableRange = ActiveSheet.UsedRange
    tableData = tableRange.Value
    
    ' 弹出输入框，获取需要查询的值
    searchValue = InputBox("请输入要查询的值：")
    
    ' 查找值所在行列
    For i = 1 To UBound(tableData, 1)
        For j = 1 To UBound(tableData, 2)
            If tableData(i, j) = searchValue Then
                searchRow = i
                searchCol = j
                Exit For
            End If
        Next j
    Next i
    
    ' 如果找到了，弹出消息框显示结果
    If searchRow > 0 And searchCol > 0 Then
        MsgBox "找到了：" & searchValue & vbNewLine & "在单元格 " & tableRange.Cells(searchRow, searchCol).Address & " 中。" & vbNewLine & "该单元格的值为：" & tableData(searchRow, searchCol)
    Else
        MsgBox "未找到：" & searchValue
    End If
End Sub

这段代码定义了一个名为 `CommandButton1_Click` 的事件过程，当按钮被单击时，会弹出一个输入框，获取需要查询的值，并查找该值所在的行列，最后弹出一个消息框，显示查询结果。其中，`tableData` 变量用于存储表格数据，`tableRange` 变量用于获取表格范围，`searchValue` 变量用于存储需要查询的值，`searchResult` 变量用于存储查询结果，`searchRow` 和 `searchCol` 变量用于存储查询值所在的行列。

将以上代码保存并关闭 VBA 编辑器，然后单击这个按钮，输入要查询的值，点击“确定”后，会弹出一个消息框，显示查询结果。