教你怎样制作归属于你他们的知识库查阅系统

对很多公司而言，基本上会有他们的一套难题处置操作，那个是公司内部的FAQ难题集。那时我们就来详尽的传授一下怎样制作这种一套完备的知识库查阅系统。

下面我们上看一下效用模拟：

【模拟操作】

系统表明：

这套查阅系统主要就用的是通过VBA代码来同时实现其功能。主要就有难题库和查阅搜寻三个网页。

当我们在难题库加进我们常见的难题集后，就可以在查阅网页通过产品中文名称或是是难题来搜寻出大部份有关的标准答案。这种就可以增加我们耗费大量的时间四处去找有关联的答疑舰炮。

下面我们来具体内容自学一下怎样制作这种的查阅系统。

第一步：按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

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

第四步：填入按钮，点选滑鼠制定宏功能即可，如下图：

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

简道云知识库，像书一样沉淀团队知识，像水一样促进内部协作，打造知识型团队。打造内部百科：老员工分享知识与经验，新员工快速查找与自学；促进项目协作：透明任务当前进展，沉淀任务有关资料；人人可用的简道云知识库：为每个岗位解决知识管理难题。“企业无法留住大部份人才，但可以留住大部份的知识”