本文作者:office教程网

如何通过VBA实现Excel 信息增删改查系统

office教程网 2024-03-23 11:30:01 230
后台-插件-广告管理-内容头部广告位
后台-系统设置-扩展变量-手机广告位-内容正文顶部
摘要:
信息增删改查系统-VBA实现效果
本期,小编将通过一个很全面的实例-信息增删改查系统,来带大家熟悉VBA编程。相信,只要你掌握了这个实例,基本上就掌握了70%的V...

信息增删改查系统-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():

如何轻松实现Excel 信息录入系统,通过录制宏,不用写一行VBA代码

最终效果谈到VBA,没有写过代码的小伙伴们,可能觉得很难上手。今天小编,将分享一篇关于Excel宏录制的实际应用-信息录入系统,不需要自己写一行VBA代码就能轻松实现信息录入,保存功

从[员工考核信息表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代码编辑器后,点帮助进来后,可以搜索关键字搜索想要查询的方法含义。

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

excel数据查询案列全方位解析 史上最全 不信你用不上

导读:说起数据查询功能,很多小伙伴们都不陌生,知道VLOOKUP,LOOKUP或者INDEX MATCH等函数可以实现。这一期,小编将会罗列可能出现的各种情况,以事实案例为基础,全方位解读数据查询功能。

后台-插件-广告管理-内容底部广告位
后台-系统设置-扩展变量-手机广告位-内容正文底部
未经允许不得转载:

作者:office教程网,原文地址:如何通过VBA实现Excel 信息增删改查系统发布于2024-03-23 11:30:01
转载或复制请以超链接形式并注明出处 演示站

分享到:

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏