EXCEL技巧——如何用VBA實現快速查詢

1

    新建一張表格，在表格中匯入學生的成績表，如圖所示，我們將建立一個按鈕，通過它來實現查詢。

2

   單擊選單欄中的「開發工具」——插入——表單控制元件——按鈕，在出現的十字箭頭上拖住畫出一個按鈕，如圖所示。

3

   在彈出的查詢紅對話方塊中選擇「錄製」，在彈出的「錄製新巨集」對話方塊中，修改巨集名稱為「查詢」，單擊確定。

4

   單擊「開發工具」——檢視程式碼，開啟VBA編輯器，如圖所示。

5

    現在我們來輸入程式碼：

Sub 查詢()

    Dim jieguo As String, p As String, q As String

    Dim c As Range

    jieguo = Application.InputBox(prompt:="請輸入要查詢的值：", Title:="查詢", Type:=2)

    If jieguo = "False" Or jieguo = "" Then Exit Sub

    Application.ScreenUpdating = False

    Application.DisplayAlerts = False

    With ActiveSheet.Cells

        Set c = .Find(jieguo, , , xlWhole, xlByColumns, xlNext, False)

        If Not c Is Nothing Then

            p = c.Address

            Do

                c.Interior.ColorIndex = 4

                q = q & c.Address & vbCrLf

                Set c = .FindNext(c)

            Loop While Not c Is Nothing And c.Address <> p

        End If

End With

MsgBox "查詢資料在以下單元格中：" & vbCrLf & vbCrLf _

        & q, vbInformation + vbOKOnly, "查詢結果"

      Application.ScreenUpdating = True

      Application.DisplayAlerts = True

End Sub

6

   現在回到EXCEL表格，右擊按鈕，選擇「編輯文字」，修改按鈕名稱為「查詢按鈕」。

7

   現在單擊查詢按鈕，出現對話方塊「請輸入要查詢的值」，在方框中輸入「男」，單擊確定，出現對話方塊「查詢資料在一下單元格中」，單擊確定，對應單元格就變成了亮色。