Excel 信息增删改查系统

01-01 生活常识 投稿:何必去打扰
Excel 信息增删改查系统

信息增删改查系统-VBA实现效果

本期,小编将通过一个很全面的实例-信息增删改查系统,来带大家熟悉VBA编程。相信,只要你掌握了这个实例,基本上就掌握了70%的VBA知识,剩下的就只是查查资料的事情,从此不再害怕VBA编程。

为了让大家清楚该实例的功能,先看一下操作的动态演示吧:

信息增删改查系统,功能操作演示

OK,看完了动态演示,相信大家想知道如何通过VBA代码的方式实现的吧,其实套路很简单。

1. 准备工作 - 界面创建

界面搭建

插入工号文本框,命名为EmplNo,请记住这个控件名称,因为VBA代码中会通过控件名称获取该文本框输入之

插入查询,保存,删除 按钮,并且指定各自按钮的单击事件。单击事件,指的是当某个按钮在点击的时候,需要系统自动执行的代码。例如,我们指定了各自按钮单击时,执行的事件分别为:查询_Click(), 保存_Click(),删除_Click()。

关于表格,自己可以画,就略过了。

接下来,就是介绍一下,如何在查询_Click(), 保存_Click(),删除_Click()三个事件方法中,添砖加瓦。

2. 代码具体实现

VBA-查询

查询_Click():

获取员工号文本框[EmplNo]的值,然后去[员工考核信息表2]Sheet中的第一列查找EmplNo的值。查到的话,将所处行号赋予全局变量[destCurRow],并调用[findi]方法;找不到的话,提示信息:'not found!'。

findi():

从[员工考核信息表2]Sheet中,获取行号为全局变量[destCurRow],列号为1,2,3,4的单元格的值,分别赋予[员工考核信息新增修改查询删除2]Sheet中的A6, B6, C6, D6单元格。

VBA-保存

保存_Click():

在[员工考核信息新增修改查询删除2]Sheet中,从第六行开始循环读取。

在循环体内,将读取的行号赋给变量[sourceCurRow],直到单元格(sourceCurRow, 1)为空白单元格的时候,即表格内员工为空的时候退出循环。

在循环体内,根据员工去[员工考核信息表2]Sheet中的第一列查找。找不到的话,在[员工考核信息表2]Sheet最后一行下面新增一条数据;找的到的话,更新[员工考核信息表2]Sheet中对应的数据。

VBA-删除

先询问用户是否确认删除,如果确认的话,就删除;如果拒绝的话,就不删除。

3. 代码调试

通过代码调试,有助于帮助你清楚的知道每一行代码的作用,请看下面的代码调试的演示:

VBA-代码调试

4. 代码如何写,如何查资料:

很多人会问,这些代码都是怎么查到的,要我写的话,我根本就不会啊。这里有几种方法查VBA的资料:百度,Excel VBA官方帮助,通过录制宏探析代码。这里主要介绍一下第二种方式,如下图:

VBA帮助

Alt+F11打开VBA代码编辑器后,点帮助进来后,可以搜索关键字搜索想要查询的方法含义。

通过多接触实例,自己可以将实例中用到的代码片段,根据功能实现点,按照关键字总结归纳在云笔记中,供以后参阅。例如本例中,有几个功能点:单元格读取,插入,单元格查询,循环

标签: # 的话 # 代码
声明:伯乐人生活网所有作品(图文、音视频)均由用户自行上传分享,仅供网友学习交流。若您的权利被侵害,请联系ttnweb@126.com