在哪编写代码呢?今天先学最常用的:插入 - 模块。新建一个模块来存放编写的代码。
插入(或双击)模块后,在右侧的空白位置就是编写代码的地方。
可以执行的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:判断身份证号的位数是否正确
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六、测试、执行、保存代码
有话要说...