怎样用控制代码制作属于自己的知识库查阅系统
我们在处置客户难题的这时候，难题的多样化性和繁杂性会让我们需要做一个他们的难题知识库查阅系统。当客户难题这类难题的这时候，我们只需要点选搜寻按键就可以将相关联的标准答案搜寻处置。下面来说一个单纯的操作。
一、查阅系统静态模拟：
示意图右图，我们可以依次依照产品中文名称或是是产品难题类别，进行难题结论的搜寻。这是我们知识库系统最此基础的功能。下面我们就来详尽表明怎样制作这种的知识库查阅系统。
二、制作关键步骤：
第一步：按ALT+F11，或是点选滑鼠点选工作表中文名称的地方性，优先选择查阅代码，步入代码撰稿询问处。如下图：
第二步：左边工程框点选滑鼠，填入新模块，holds增建的模块步入代码撰稿询问处。如下图：
第三步：步入模块代码撰稿询问处后输出以下代码功能内容。
代码如下：
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
注释：因为实现的是三个功能，所以也就只有三段代码。
第四步：填入按键，点选滑鼠制定宏功能即可，如下图：
三、查阅要点介绍：
1、当我们按照产品搜寻：SZ01时，会将难题当中所有属于SZ01产品的难题搜寻出来；
2、当我们按照难题搜寻：*死机*，会将难题当中包含死机的难题搜寻出来；
3、在搜寻查阅当中需要注意的是，当我们搜寻的内容和对象不是百分百匹配这时候，需要在搜寻文本的前后加上*星号，进行通配符搜寻。*代表的是包含的任意字符，？代表的是多少个字符。
4、特点运用EXCEL制作知识库查阅系统主要在于后台VBA代码的编写，相比其他查阅系统会更加单纯同时速度上面也是比较快。
精彩内容推荐推荐文章
条件求和它才是NO.1，这个函数80%人没见过，比Sumif更实用
推荐文章
制作自动化仓库入库单，数据录入、计算及保存只需一键完成
推荐文章
制作不一样的考勤表，添加十字聚光灯效果，让表格更清晰企业内部知识库搭建
推荐文章
高效制作静态图表，不需用vlookup函数，这个方法只要四步完成！
简道云知识库，像书一样沉淀团队知识，像水一样促进内部协作，打造知识型团队。打造内部百科：老员工分享知识与经验，新员工快速搜寻与学习；促进项目协作：透明任务当前进展，沉淀任务相关资料；人人可用的简道云知识库：为每个岗位解决知识管理难题。“企业无法留住所有人才，但可以留住所有的知识”
