要制作一個查詢系統，你可以使用VBA編程來完成。以下是一個簡單的示例，介紹了如何使用VBA創建一個基本的查詢系統。
首先，打開Excel，并按下Alt+F11進入VBA編輯器。
在VBA編輯器中，選擇"插入"菜單，然后選擇"用戶窗體"。
在窗體設計器中，添加一個"文本框"控件和一個"按鈕"控件。
雙擊按鈕控件，進入按鈕的點擊事件。
在按鈕的點擊事件中，編寫VBA代碼來執行查詢操作。例如，你可以使用"InputBox"函數來獲取用戶輸入的查詢條件，然后使用"Find"方法來查找匹配的數據。
下面是一個示例代碼：
Private Sub CommandButton1_Click()
Dim searchTerm As String
Dim foundCell As Range
' 獲取用戶輸入的查詢條件
searchTerm = InputBox("請輸入要查詢的內容：")
' 在第一個工作表中查找匹配的單元格
Set foundCell = Sheets(1).Cells.Find(What:=searchTerm, LookIn:=xlValues, LookAt:=xlWhole)
' 如果找到匹配的單元格，則選中該單元格
If Not foundCell Is Nothing Then
foundCell.Select
Else
MsgBox "未找到匹配的內容。"
End If
End Sub
現在，當你點擊該按鈕時，系統將彈出一個輸入框，你可以在其中輸入要查詢的內容。系統將自動查找并選中匹配的單元格，或者顯示一個消息框，指示未找到匹配的內容。
這只是一個簡單的示例，你可以根據自己的需求進一步擴展和完善查詢系統。
