当前位置:首页 > 科技 > 正文

别害怕,VBA一点都不难!这篇入门教程超简单,小白也能学~

哈喽,大家好呀,这里是部落窝编辑部。 我相信有许多朋友都是很想学习Excel的王炸功能——VBA,但是碍于其难度系数,一直可望而不可及。

没关系,今天就和小编一起从入门开始学习吧!
一、先认识一下VBA
VBA为广大用户提供了对Excel功能进行二次开发的平台。 我们可以借助VBA完成许多仅凭基本操作和公式无法实现的功能,并且可以实现工作自动化,提高工作效率。
二、打开VBA编辑器的三种方式
1.在功能区的“开发工具”中打开VBE界面 很多同学的Excel功能区中没有“开发工具”选项的,我们可以通过“选项”中的“自定义功能区”,调用出这个功能。

然后选择“开发工具”——Visual Basic功能键,就可以打开VBE界面。

2.在工作表标签上单击鼠标右键,打开菜单栏;


在弹出的菜单中,选择“查看代码”,也可以打开VBE界面。
3.ALT+F11组合键打开,这是最常用的打开方式。
注意:无论你使用何种方式打开VBE界面,都要记得,要打开某个工作薄之后,才可以使用VBE,毕竟EXCEL文件才是VBE的载体。
三、创建写VBA代码的地方

在哪编写代码呢?今天先学最常用的:插入 - 模块。新建一个模块来存放编写的代码。


四、开始写代码

插入(或双击)模块后,在右侧的空白位置就是编写代码的地方。

可以执行的VBA代码(宏程序),结构是这样的:

Sub 程序名(参数) 可以执行任务的代码 End Sub

输入Sub 程序名()然后回车,End Sub就会自动输入。

五、常用的VBA代码

到了这一步,相信大家已经大概掌握了VBA的简单操作,下面就让我们来给大家分享几个常用的VBA代码吧,短短几行,就能让你的办公效率得到质的飞跃~

示例1:批量取消隐藏工作表

如果需要取消隐藏的工作表很多,右键选择【取消隐藏工作表】就会显得很繁琐,我们只需要几行VBA小代码就刻意搞定啦!

Sub qxyc()
Dim sht As Worksheet
'定义变量
For Each sht In Worksheets
'循环工作簿里的每一个工作表
sht.Visible = xlSheetVisible
'将工作表的状态设置为非隐藏
Next
End Sub

示例2:判断身份证号的位数是否正确



这样的一组号码,不考虑号码的信息正误,只看位数,你很难知道它是否是18位,那么此时用代码来处理,就显得很方便了,如下:

Sub 判断身份证号位数正误() With Sheets("IF判断语句") For i = 2 To 10 If Len(.Cells(i, 1)) = 18 Then .Cells(i, 2) = "18位" End If Next i End WithEnd Sub


【代码解析】

Line1:使用工作表“IF判断语句”作为代码中引用对象的统一父级对象;

Line2:规定循环变量i的范围为2到10,因为我们是遍历单元格,逐行判断,所以循环变量应该以单元格的行号作为循环依据,所以是ROW2到ROW10;

Line3:Cells(i, 1)说明是某一行和第一列的交点单元格,当i变量为2,3,4,…,10时,对应的单元格地址就是A2,A3,A4,…,A10。用LEN函数提取单元格字符串的长度,判断是否等于18;

Line4:如果判断条件满足,则Cells(i, 2)对应的B列单元格中输入“18位”;

Line5:判断语句的结束语句;

Line6:循环语句的结束语句;

Line7:With语句的结束语句。

示例3:批量重命名工作表

工作表默认的名称是Sheet1这种,对我们查找数据时很不方便,我们想批量给他改名怎么操作呢?

Sub 修改工作表名称()Dim i As LongFor i = 2 To Sheets.Count Sheets(i).Name = Sheets(i).Range("C2")NextEnd Sub
六、测试、执行、保存代码

在编写代码时经常要测试是否正确。测试方式是把光标放在代码行的任意位置,点击运行小按钮。 要想执行VBA代码,我们只需要右键点击指定宏-选择编写的宏名称即可。 另外,有个点要特别注意,我们在保存文档的时候,【保存类型】要选择为“启用宏的工作簿”类型,这样我们辛苦写出来的VBA代码才能保存下来。


代码一两行,工作再也不用忙断肠。 今天的VBA入门课程,你都学会了吗? 还有疑问的同学,欢迎留言评论区。

你可能想看:

有话要说...

取消
扫码支持 支付码