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

 

对于许多公司来说，基本会有自己的一套问题处理操作，这个就是公司内部的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 + 1If Rng Like Sheet2.Range("B3") Then 如果条件成立，那么

k = k + 1Sheet1.Range("a" & m + 1 & ":E" & m + 1).Copy Sheet2.Range("a" & k + 4) 将记录复制到另一个区域End IfNext

End SubSub 按产品查询()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 + 1If Rng Like Sheet2.Range("B2") Then 如果条件成立，那么

k = k + 1Sheet1.Range("a" & m + 1 & ":E" & m + 1).Copy Sheet2.Range("a" & k + 4) 将记录复制到另一个区域End IfNext

End SubSub 清除()Sheet2.Range("A5:E1048576").Clear 清除之前所有的筛选结果End Sub注释：因为实现的就是三个功能，所以也就只有三段代码第四步：插入按钮，点击右键制定宏功能即可，如下图：。

这样一份完整的知识库查询系统就做出来了。你是不是有新的思路了？需要下载的朋友赶快私信这三个字：知识库，免费下载模板学习的哟！

喜欢的话转发或扫描下方的二维码关注一下！

免责声明：本站所有信息均搜集自互联网，并不代表本站观点，本站不对其真实合法性负责。如有信息侵犯了您的权益，请告知，本站将立刻处理。联系QQ：1640731186