教你如何制作属于你自己的知识库查询系统

对于服务类电商公司来说，基本会有自己的一套问题处理操作，这个就是公司内部的FAQ问题集。今天我们就来详细的讲解一下如何制作这样一套完整的知识库查询系统。

下面我们来看一下效果演示：

演示操作

系统说明：

这套查询系统主要用的是通过VBA代码来实现其功能。主要有问题库和查询搜索两个页面。

当我们在问题库添加我们常用的问题集后，就可以在查询页面通过产品名称或者是问题来搜索出所有相关的答案。这样就可以减少我们花费大量的时间到处去找对应的解答口径。

下面我们来具体学习一下如何制作这样的查询系统。

代码如下：

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

注释：因为实现的就是三个功能，所以也就只有三段代码。

第四步：插入按钮，点击右键制定宏功能即可，如下图：

这样一份完整的知识库查询系统就做出来了。你是不是有新的思路了？

需要下载的朋友赶快私信这三个字：知识库，免费下载模板学习的哟！