用vba创建一个点击查询表格内容窗口

您好！我可以为您提供一个简单的 VBA 代码，实现在 Excel 中创建一个按钮，点击后可以弹出一个查询表格内容的窗口。以下是代码：

首先，打开 Excel 并按下 ALT+F11 进入 VBA 编辑器。在左侧的项目窗口中，右击你的 Excel 工作簿，选择“插入”→“模块”，在代码模块中输入以下代码：

Sub ShowSearchWindow()
    ' 定义变量
    Dim searchValue As Variant
    Dim searchResult As Range
    
    ' 弹出输入框，获取需要查询的值
    searchValue = InputBox("请输入要查询的值：")
    
    ' 查找值所在范围
    Set searchResult = ActiveSheet.UsedRange.Find(searchValue)
    
    ' 如果找到了，弹出消息框显示结果
    If Not searchResult Is Nothing Then
        MsgBox "找到了：" & searchValue & vbNewLine & "在单元格 " & searchResult.Address & " 中。"
    Else
        MsgBox "未找到：" & searchValue
    End If
End Sub

这段代码定义了一个名为 `ShowSearchWindow` 的子过程，其中包含了弹出输入框、查找值所在范围、弹出消息框等操作。接下来，我们需要创建一个按钮，点击后可以调用这个子过程。

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

Private Sub CommandButton1_Click()
    ShowSearchWindow
End Sub

这段代码定义了一个名为 `CommandButton1_Click` 的事件过程，当按钮被单击时，会调用我们之前定义的 `ShowSearchWindow` 子过程。

现在，我们已经创建了一个按钮，点击后可以弹出一个查询表格内容的窗口。您可以将这个代码保存并关闭 VBA 编辑器，然后单击这个按钮，输入要查询的值，点击“确定”后，会弹出一个消息框，显示查询结果。