Excel VBA员工管理系统开发

Excel VBA员工管理系统开发

“什么？才学了点皮毛就可以开发系统了？”我想您读到这儿，看到本篇的题目，一定会感到非常疑惑。

如果您仔细体会了前面的小短文内容，就可以开始着手来试着做一些有趣的事情了。不错！现在我们就尝试用已学到的知识来逐步开发一套小系统。为何这么快就可以运用VBA来开始实战了呢？这就是Excel作为一个开发平台的优势！

系统初步规划

员工管理系统的初步构想是：

员工按表格要求填写相应的信息。

自动汇总员工所填写的信息。

查询某员工的信息。

查询某员工的信息并能够自动显示在员工信息表中，方便打印输出。

分析员工的信息，例如毕业5年的员工有多少、具备高级职称的员工有多少。

其他一些扩展功能。（暂时未想到，根据需要扩展）

表格设计

根据初步构想，先在Excel中设计两个工作表。

“员工基本信息表”：便于员工填写信息。

“员工信息数据库”：汇总员工填写的信息。

工作表初步设计如下图所示：

其中，“员工信息数据库”表实际上是将“员工基本信息表”中所填写的数据按数据库记录格式汇总到一张表中。

代码

下面的代码实现将“员工基本信息表”中填写的数据写入到“员工信息数据库”中：

Sub TotalData()

Dim wksInfo As Worksheet

Dim wksBaseInfo As Worksheet

‘给wksInfo变量赋值

Set wksInfo = ThisWorkbook.Worksheets(“员工信息数据库”)

Set wksBaseInfo = ThisWorkbook.Worksheets(“员工基本信息表”)

With wksInfo

.Range(“A2”).Value = wksBaseInfo.Range(“B2”).Value

.Range(“B2”).Value = wksBaseInfo.Range(“F2”).Value

.Range(“C2”).Value = wksBaseInfo.Range(“B3”).Value

.Range(“D2”).Value = wksBaseInfo.Range(“D3”).Value

.Range(“E2”).Value = wksBaseInfo.Range(“F3”).Value

.Range(“F2”).Value = wksBaseInfo.Range(“B4”).Value

.Range(“G2”).Value = wksBaseInfo.Range(“D4”).Value

.Range(“H2”).Value = wksBaseInfo.Range(“F4”).Value

.Range(“I2”).Value = wksBaseInfo.Range(“B5”).Value

.Range(“J2”).Value = wksBaseInfo.Range(“F5”).Value

.Range(“K2”).Value = wksBaseInfo.Range(“B6”).Value

.Range(“L2”).Value = wksBaseInfo.Range(“D6”).Value

.Range(“M2”).Value = wksBaseInfo.Range(“F6”).Value

.Range(“N2”).Value = wksBaseInfo.Range(“B7”).Value

.Range(“O2”).Value = wksBaseInfo.Range(“F7”).Value

.Range(“P2”).Value = wksBaseInfo.Range(“B8”).Value

.Range(“Q2”).Value =wksBaseInfo.Range(“D8”).Value

.Range(“R2”).Value = wksBaseInfo.Range(“F8”).Value

.Range(“S2”).Value = wksBaseInfo.Range(“B9”).Value

.Range(“T2”).Value = wksBaseInfo.Range(“D9”).Value

.Range(“U2”).Value = wksBaseInfo.Range(“F9”).Value

.Range(“V2”).Value = wksBaseInfo.Range(“B10”).Value

.Range(“W2”).Value = wksBaseInfo.Range(“B11”).Value

.Range(“X2”).Value = wksBaseInfo.Range(“B12”).Value

End With

End Sub

代码很简单，用到的都是前面我们学到的知识。在”员工基本信息表”中填写相应的数据，运行上面的代码，可以看到数据会自动填充到”员工信息数据库”的第二行中。

这里的代码只是机械地将一个表中的数据复制到另一个表中相应的单元格，并且只能实现填充固定一行的数据。

接下来，我们边进一步学习，边完善我们的系统，使系统逐渐灵活方便起来。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。