最简单的源代码(求源代码)
哈喽，大家好呀。
我相信有许多朋友都是很想学习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位，那么此时用代码来处理，就显得很方便了，如下：
【代码解析】
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这种，对我们查找数据时很不方便，我们想批量给他改名怎么操作呢？
六、测试、执行、保存代码
在编写代码时经常要测试是否正确。测试方式是把光标放在代码行的任意位置，点击 运行小按钮。
要想执行VBA代码，我们只需要右键点击 指定宏- 选择编写的宏名称即可。
另外，有个点要特别注意，我们在保存文档的时候，【保存类型】要选择为 “启用宏的工作簿”类型，这样我们辛苦写出来的VBA代码才能保存下来。
代码一两行，工作再也不用忙断肠。
今天的VBA入门课程，你都学会了吗？
还有疑问的同学，欢迎留言评论区。
对了，我们还有一套免费的VBA脱白课程，送给大家！
扫码进群获取链接
免费观看！
