VBA 笔记

等于 =
不等于<>

宏就是一种批量处理的称谓
宏 开发者工具-(使用)宏/录制宏
宏执行的步骤不能撤销
不会写的VBA代码可以通过录制宏,然后查看代码
用VBA代码执行宏 call 宏名
自定义功能区 开始-选项-自定义功能区

Dim i as Integer //定义整型变量
For i=1 To 10 //for循环
For i=1 To 10 Step 3 //Step关键字

Dim i As Range
For Each i in Range(“A1”:”A5”) … Next //For Each 循环

Sub fun() … End Sub //VBA定义宏

Range(“A3”) 单元格A3
VBA中字符串连接符为& (and) 如Range(“A”&i)

//定义数组
Dim arr(2) as integer
Dim mat(2,3) as integer
VBA的数组可以从0开始,也可以从1开始
例如Dim arr(3) As Integer 则 arr(0)到arr(3)都可以用

//if的用法
If Range(“A1”)=”男” Then
Range(“B1”)=”先生”
ElseIf Range(“B1”)=”男士” Then
Range(“B1”)=”先生”
Else
Range(“B1”)=”女士”
End If

Exit For //退出for循环

目标定位
Sheet1,2,3 / Sheets(“表名”)
[A1] [A2] Range(“A3”) Range(“A”&4)
Cells(2,3) 第二行第三列(从1开始)

动作
Select
Add
Sheets.Add after:=Sheet1
Delete
Copy

属性
Count 数量
Name 名字

单元格操作
表示方法:range(“a1”) [a1] cells(2,3)
Range(“A1”)=10 其实是Range(“A1”).value=10 因为默认是value属性
Offset(2,3) 移位,下移2行,右移3列
End( ) 移动至已有数据的边界
参数 xldown xlup xltoleft xltoright 如range(“A3”).End(xlDown).select
Resize() 选定区域
Merge 合并
copy 复制到,,, Range("B2:B4").Copy Range("C2:C4")
Selection 选区
EntireColumn() 选定
EntireRow( )

Workbooks工作簿对象
Application.DisplayAlerts = False 取消提示
Application.ScreenUpdating = False //取消屏幕刷新

Open 打开文件 workbooks.open filename := ”d:\a.xlsx”
Add 新建工作簿
Save 保存 SaveAs 另存为
Close 关闭

Workbooks.Add //新建excel文件
Activeworkbook 当前激活的excel文件

注释:半角下的单引号
‘ 注释内容
长按esc停止程序执行

上一篇:vba复制表头


下一篇:VBA Environ系统环境变量函数大全