對于服務類電商公司來說，基本會有自己的一套問題處理操作，這個就是公司內部的FAQ問題集。今天我們就來詳細的講解一下如何制作這樣一套完整的知識庫查詢系統。

下面我們來看一下效果演示：

演示操作

系統說明：

這套查詢系統主要用的是通過VBA代碼來實現其功能。主要有問題庫和查詢搜索兩個頁面。

當我們在問題庫添加我們常用的問題集后，就可以在查詢頁面通過產品名稱或者是問題來搜索出所有相關的答案。這樣就可以減少我們花費大量的時間到處去找對應的解答口徑。

下面我們來具體學習一下如何制作這樣的查詢系統。

第一步：按ALT+F11，或者點擊右鍵點擊工作表名稱的地方，選擇查看代碼，進入代碼編輯窗口。如下圖：

第二步：左邊工程框點擊右鍵，插入新模塊，雙擊新建的模塊進入代碼編輯窗口。如下圖：

第三步：進入模塊代碼編輯窗口后輸入以下代碼功能內容。

代碼如下：

Sub 按問題查詢()

ends = Sheet1.Columns(1).Find("*", , , , , searchdirection:=xlPrevious).Row '動態找到A列的最后一個單元格

Sheet2.Range("A7:E1048576").Clear '清除之前所有的篩選結果

For Each Rng In Sheet1.Range("D2:D" & ends)

m = m + 1

If Rng Like Sheet2.Range("B3") Then '如果條件成立，那么

k = k + 1

Sheet1.Range("a" & m + 1 & ":E" & m + 1).Copy Sheet2.Range("a" & k + 4) '將記錄復制到另一個區域

End If

Next

End Sub

Sub 按產品查詢()

ends = Sheet1.Columns(1).Find("*", , , , , searchdirection:=xlPrevious).Row '動態找到A列的最后一個單元格

Sheet2.Range("A5:E1048576").Clear '清除之前所有的篩選結果

For Each Rng In Sheet1.Range("B2:B" & ends)

m = m + 1

If Rng Like Sheet2.Range("B2") Then '如果條件成立，那么

k = k + 1

Sheet1.Range("a" & m + 1 & ":E" & m + 1).Copy Sheet2.Range("a" & k + 4) '將記錄復制到另一個區域

End If

Next

End Sub

Sub 清除()

Sheet2.Range("A5:E1048576").Clear '清除之前所有的篩選結果

End Sub

注釋：因為實現的就是三個功能，所以也就只有三段代碼。

第四步：插入按鈕，點擊右鍵制定宏功能即可，如下圖：

這樣一份完整的知識庫查詢系統就做出來了。你是不是有新的思路了？