excel自动化知识库查询系统免费送你,原来知识库是这样做出来的
时间:2023-06-01 14:38:54
对于服务类电商公司来说,基本会有自己的一套问题处理操作,这个就是公司内部的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
注释:因为实现的就是三个功能,所以也就只有三段代码。
第四步:插入按钮,点击右键制定宏功能即可,如下图:
这样一份完整的知识库查询系统就做出来了。你是不是有新的思路了?
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
PicPick滚动截屏中间断了怎么办?解决PicPick截图失败的方法
![](https://img.aspxhome.com/file/2023/8/a334590_0s.jpg)
win10盗贼之海怎么加好友-win10盗贼之海加好友方法
![](https://img.aspxhome.com/file/2023/4/a309560_0s.jpg)
excel怎么给单元格定义名称?
PPT怎么制作带线条边界的面积图?
![](https://img.aspxhome.com/file/2023/10/a349518_0s.jpg)
Excel表格如何制作斜线?Excel制作斜线的方法
![](https://img.aspxhome.com/file/2023/2/a153082_0s.jpg)
怎么设置Win10蓝屏显示详细信息拒绝哭脸?
![](https://img.aspxhome.com/file/2023/28/a246890_0s.jpg)
必应输入法状态栏隐藏了怎么显示
![](https://img.aspxhome.com/file/2023/5/a317909_0s.jpg)
如何使用 iCloud.com 恢复最近删除的文件?
![](https://img.aspxhome.com/file/2023/2/a194162_0s.png)
在Excel中Choose函数具体如何使用?
wps怎么将字体的背景设置为蜂巢?
![](https://img.aspxhome.com/file/2023/4/a165684_0s.png)
电脑word2007文档打不开怎么办
Word2013中"键入时自动套用格式"怎么生成编号
![](https://img.aspxhome.com/file/2023/4/18574_0s.jpg)
icwconn2.exe进程是什么文件的 icwconn2进程能删吗
Win10 10135预览版多国语言ISO镜像下载
![](https://img.aspxhome.com/file/2023/28/a249837_0s.jpg)
哪个网站的win7系统比较好稳定_win7系统比较好稳定的系统网站地址
![](https://img.aspxhome.com/file/2023/5/a316045_0s.jpg)
美妆相机怎么关闭实时美妆?美妆相机关闭实时美妆的方法
![](https://img.aspxhome.com/file/2023/8/a332951_0s.jpg)
iOS 13 小技巧:通过两副 AirPods 与好友分享音乐
![](https://img.aspxhome.com/file/2023/4/a195944_0s.png)