Excel VBA员工管理系统开发
发布时间:2022-09-19 14:38:50
“什么?才学了点皮毛就可以开发系统了?”我想您读到这儿,看到本篇的题目,一定会感到非常疑惑。
如果您仔细体会了前面的小短文内容,就可以开始着手来试着做一些有趣的事情了。不错!现在我们就尝试用已学到的知识来逐步开发一套小系统。为何这么快就可以运用VBA来开始实战了呢?这就是Excel作为一个开发平台的优势!
不过,在未开始之前,还是得声明一点,此时编写的代码会很“古板”,有很多约束,实现的功能也有限,你会觉得完全没有必要用VBA代码来实现。但我们此刻的目的是让您能够体会到Excel VBA的初步魅力,以及使用VBA实现手动操作的方法,更重要的是让您巩固前一阶段所学习到的知识。随着更加深入的学习,我们会逐步改善这个系统,使用的知识和技巧也会越多,系统功能也会更强大,系统也会越来越完善。
系统初步规划
员工管理系统的初步构想是:
员工按表格要求填写相应的信息。
自动汇总员工所填写的信息。
查询某员工的信息。
查询某员工的信息并能够自动显示在员工信息表中,方便打印输出。
分析员工的信息,例如毕业5年的员工有多少、具备高级职称的员工有多少。
其他一些扩展功能。(暂时未想到,根据需要扩展)
表格设计
根据初步构想,先在Excel中设计两个工作表。
“员工基本信息表”:便于员工填写信息。
“员工信息数据库”:汇总员工填写的信息。
工作表初步设计如下图所示:
其中,“员工信息数据库”表实际上是将“员工基本信息表”中所填写的数据按数据库记录格式汇总到一张表中。
代码
下面的代码实现将“员工基本信息表”中填写的数据写入到“员工信息数据库”中:
Sub TotalData()
‘声明Worksheet变量
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
代码很简单,用到的都是前面我们学到的知识。在”员工基本信息表”中填写相应的数据,运行上面的代码,可以看到数据会自动填充到”员工信息数据库”的第二行中。
这里的代码只是机械地将一个表中的数据复制到另一个表中相应的单元格,并且只能实现填充固定一行的数据。
接下来,我们边进一步学习,边完善我们的系统,使系统逐渐灵活方便起来。
猜你喜欢
- 要选取一个单元格区域,除了常规的鼠标拖选,还有多少其他的可行方法?如果有数万行数据要去选取,怎么操作最快?在包含隐藏行列的情况下如何仅对可见
- 首先,用福昕阅读器打开你想要转换的pdf文件(这里以360云盘使用说明为例),点击工具栏菜单的“文本查看器”,把pdf文件转换为文本格式;
- Excel2016表格中怎么设计经典的收据单?一般我们不要发票的时候,会要一张收据单,该怎么设计景丹收据单样式呢?下面我们就来看看详细的教程
- 在图文混排的文档中有时为了美化文档和明显区分图片与文本的界线常给图片添加边框,下面是Word2003为图片添加边框的方法,希望小编整理的对你
- 如何在Word 2007中结束列?Word 2007提供了几种结束文本列的方法:您可以创建分栏符,返回单列模式或从文档中删除列。创建分栏符如
- Word中的文字不注意添加了下划线/横线,看着很不舒服,那么如何去除word中的横线?下面小编就为大家介绍word横线删除方法,来看看吧某些
- Win10 1909版本是现在很多用户都在使用的电脑操作系统,我们经常会去更改电脑中的一些文件资料。那么如果过程中出现了Win10,1909
- 日常生活或工作中,我们中文书写或排版都有一个习惯格式,就是在段落的首行空两个字。这怎么来实现呢?Word小白这时候怕是很不屑的想,还用问吗?
- 下面小编为大家介绍用记事本创建一个word文档方法,相信还能多朋友并不是很清楚,其实方法很简单的,下面小编就为大家详细介绍一下,一起来看看吧
- 工作中,大家经常使用Win10局域网局相互传送,快捷又方便。正常情况下,电脑开启网络就可以看到其它电脑,有时候出现Win10在局域网中找不到
- 随着电脑的发展,多任务界面会越来越频繁出现在我们眼前,它处理起多项事务简直不要太得心应手。用过的人都赞不绝口,没用上的朋友赶紧下载win10
- 如何在Word 2007中使用同义词库?内置的Word 2007同义词库使您可以查找同义词,反义词,单词替换和替代拼写。当您使用此Micro
- 提起Word想必办公人员都非常熟悉吧,其功能相当的强大,在这里就不一一阐述了。目前需要解决这样的一个问题:如何将某一页在版式排版上设置为横排
- 使用快捷键Ctrl+V粘贴时,默认是以保留源格式的方式粘贴。步骤:第一步:打开任意一个word文档,点击【文件】第二步:点击【选项】&nbs
- Word 2007使用图片作为背景在Word2007中,可以使用自定义图片作为文档的背景,还可以为文档套用符合主题的图片作为背景,不仅让文档
- WORD文档页脚页数怎么设置的呢?该怎么去进行操作?对于刚从其它版本转型过来的应该就不会太懂吧,没关系今天,小编就教大家在Word中进行文档
- 最近相信有不少用户都接收到了Win10 21H1的推送更新,也有一些小伙伴已经在使用这款系统了。但是最近有些小伙伴升级后进入系统时发现自己的
- 这篇文章主要介绍了word2010页眉库中添加自定义页眉的方法(word2010添加页眉),需要的朋友可以参考下所谓“库”就是一些预先格式化
- 填充、轮廓和效果概述填充是艺术字文字或 Office PowerPoint 2007 幻灯片上的文字中的字母的内部颜色。在更改文字的填充颜色
- 在大家平时使用word做表格时,偶尔会遇到表格跨页断开的情况,重做太麻烦,不重做又无法排版,那么word表格跨页断开怎么办?下面小编就为大家