在本篇經(jīng)驗(yàn)中，我將向大家分享如何使用VBA建立一個(gè)智能查詢系統(tǒng)。 實(shí)例：錄入姓名，查詢個(gè)人信息 首先，在工作表中點(diǎn)擊菜單欄的【開(kāi)發(fā)工具】，然后在工具欄內(nèi)選擇【visual basic】進(jìn)入VBA編

在本篇經(jīng)驗(yàn)中，我將向大家分享如何使用VBA建立一個(gè)智能查詢系統(tǒng)。

實(shí)例：錄入姓名，查詢個(gè)人信息

首先，在工作表中點(diǎn)擊菜單欄的【開(kāi)發(fā)工具】，然后在工具欄內(nèi)選擇【visual basic】進(jìn)入VBA編輯界面。

接下來(lái)，點(diǎn)擊菜單欄的【插入】，在下拉菜單中選擇【模塊】，這會(huì)彈出模塊編輯窗口。

在代碼編輯窗口中輸入以下代碼：

Sub 信息查詢系統(tǒng)()
Dim endc As Integer, m%, n%
Range("i2:o100").Clear
endc  Columns("a").Find("*", , xlValues, xlPart, xlByColumns, xlPrevious).Row
For Each rng In Range(Cells(2, 1), Cells(endc, 1))
    m  m   1
    If rng Like Range("q2") Then
        n  n   1
        Range(Cells(m, 1), Cells(m, 7)).Copy Cells(n, 9)
    End If
Next
End Sub

保存并退出VBA編輯界面，返回到工作表中。在【開(kāi)發(fā)工具】菜單下點(diǎn)擊【插入】，在表格中插入一個(gè)按鈕。

選中插入的按鈕，點(diǎn)擊鼠標(biāo)右鍵，指定宏，選擇編輯的【信息查詢系統(tǒng)】，并將按鈕命名為【信息查詢】。

現(xiàn)在，假設(shè)我們要查詢姓名有兩個(gè)字的人員的成績(jī)信息。在查詢標(biāo)準(zhǔn)中錄入通配符“??”，然后點(diǎn)擊【信息查詢】按鈕。

很快，結(jié)果就會(huì)被智能地查詢出來(lái)。這真是一個(gè)非常方便智能的查詢系統(tǒng)！

總結(jié)

通過(guò)VBA編寫智能查詢系統(tǒng)，可以大大提高數(shù)據(jù)處理的效率和準(zhǔn)確性。希望本文對(duì)您有所幫助，如果有任何問(wèn)題，請(qǐng)隨時(shí)留言。