1. 数据类型
变量定义:Dim 变量名 As 数据类型
变量赋值:变量名 = 值
1.1 数值型
1.1.1 整数
(1) Byte:1字节(0~255)
(2) Integer:2字节(-32768~32767)
(3) Long:4字节(-2147483648~2147483647)
1.1.2 小数
(1) Single:7位有效整数加小数 // 整数为0可含7位小数,第8位四舍五入
(2) Double:15位有效整数加小数 // 第16位四舍五入
1.2 字符型
(1) String: // 变量名 = "abc"
1.3 日期型
(1) Date: // Dim d As Date // d = Date 系统日期, d = Time 系统时间
1.4 数组
(1) 一维数组:Dim 数组名(开始下标含 To 终止下标含) As 数据类型 // Dim arr(1 To 5) As Byte
(2) 二位数组:Dim 数组名(下标 To 下标, 下标 To 下标) As 数据类型 // Dim arr(0 To 3, 0 To 2) As ..
(3) 动态数组:Dim 数组名() As 数据类型 // ReDim 数组名(下标 To 变量)
注释:数组赋值 数组(下标)=值,数组取值 数组(下标),开始下标随意指定可以是0也可是1
2. 运算符
(1) 算术运算符:加( + ),减( - ),乘( * ),除( / ),余( Mod ) // 5 Mod 2
(2) 赋值运算符:= // vba不识别 += 运算
(3) 比较运算符:等( = ),不等( <> ),大于( > ),大等( >= ),小于( < ),小等( <= )
注释:Like // 变量 like "abc" ("a*" 多字符,"a?"单字符,"a#"单数字),Is // Range("A1") Is Range("B1")
(4) 逻辑运算符:And,Or,Not
3. 流程控制
3.1 分歧
(1) If分歧:If 条件 Then ... [ElseIf 条件 Then ...] [Else ...] End If
(2) Select分歧:Select Case 变量 Case 变量 = 值 ... [...] Case Else ... End Select
3.2 循环
(1) for 循环:For 变量 = 初值 To 终值 ... Next 变量 // For i = 0 To 5 ... Next i
(2) for each 循环:For Each 变量 In 区域 ... Next // For Each i in Range("A1:B2") ... Next
(3) while 循环:Do While 条件 ... 变量=变量+1 Loop // 先判断后循环
(4) do while 循环:Do ... 变量=变量+1 Loop While 条件 // 先处理后判断
注释:退出循环 Exit For, Exit Do
4. 函数
注释:内置函数用 (vba.函数名)
4.1 函数
4.1.1 判断函数
(1) 数值判断:VBA.IsNumeric(变量) // 判断变量内容是否为数值,可判断字符串
(2) 判断初始化:VBA.IsEmpty(变量) // 判断变量是否初始化(Dim定义或赋值都为False)
(3) 判断空变量:VBA.IsNull(变量) // 判断变量的值是否为Null
4.1.2 数值函数
略
4.1.3 字符函数
(1) 字符串拼接(+):"a"+"b"="ab" // 符号两侧与变量用空格分割,1+1=2,"1"+1=2,1+"1"=2,"1"+"1"=2
(2) 字符串拼接(&):"a"+"b"="ab" 推荐使用 // 符号两侧与变量用空格分割,1+1="11","1"+1="11",1+"1"="11","1"+"1"="11"
(3) 取字符长度:Len(变量) // 获取字符长度 Len("a啊") = 2
(4) 截取字符:Left(变量, 长度) | Right(变量, 长度) // 从一侧获取指定长度的字符串
4.1.4 日期函数
(1) 系统日期:Date // "2024/3/9",Date + 1 = 加1天,
(2) 系统时间:Time // "23:48:32"
(3) 系统日期时间:Now // "2024/3/9 23:48:32",Now + 1 = 加1天,
4.1.5 函数定义与调用
(1) 无返回值函数:Sub 函数名([ByVal a As 类型, ...]) ... End Sub // 参数(ByVal a As String)
(2) Sub调用:Call 函数名([参数])
(3) 有返回值函数:Function 函数名([ByVal a As 类型]) As 返回值类型 ... End Function
(4) Function调用:变量 = 函数名([参数]) // 无参函数 函数名 或 函数名() 都识别
注释:function 返回值设定,函数名同名变量=值
4.2 正则表达式
Dim reg as Object
set reg = CreateObject("VBScript.RegExp")
with reg.Global=True '全部匹配.ignorecase = True '不区分大小写.Pattern = "正则"set mc = .Execute("匹配源文本")xx=mc(0) '取第一个匹配结果for each item in mc '多结果获取'…next item
end with
5. 宏录制
简单操作可通过录制宏完成
点击【录制宏】,执行拖动,光标移动,复制粘贴等操作,【结束录制 】。
注释:ctrl+上下做有内容的光标移动,当上下左右移动光标时,需打开【使用相对引用】使相对于当前光标做上下左右,而不是直接跳转到指定单元格。
点击【宏】,选取好光标位置后,执行宏命令。
6. 文件
脚本打开本地excel文件
Sub test()Dim OpenFilename As String
OpenFilename = Application.GetOpenFilename("MicrosoftExcelbook, *.xlsx")
If OpenFilename <> "False" ThenOn Error Resume NextWorkbooks.Open OpenFilenameOn Error GoTo 0
End IfEnd Sub
7. 工作簿
工作簿 》 工作表 》多单元格(行,列,区域)》 单元格
7.1 工作簿
7.1.1 工作簿操作
(1) 选中工作簿:Workbooks("xx.xlsx").Worksheets("xx").Range("A1") //指定工作簿区域取值赋值
(2) 保存工作簿:ActiveWorkbook.Save // If Not ActiveWorkbook.Saved Then ActiveWorkbook.Save End If
7.1.2 工作簿事件
打开工作簿(Open),添加工作表(NewSheet),删除工作表(SheetBeforeDelete),选取工作表(SheetActivate),内容输入(BeforePrint),双击工作表(SheetBeforeDoubleClick),右击工作表(SheetBeforeRightClick),保存(BeforeSave),关闭(BeforeClose)
7.2 工作表
注释:默认当前工作簿,也可指定工作簿 Workbooks("xx.xlsx").
7.2.1 工作表操作
(1) 选中工作表:Worksheets("sheet名" | 1开始下标).Select
(2) 添加工作表:Worksheets.add // 添加到开头
7.2.2 工作表事件
删除工作表(BeforeDelete)选取工作表(Activate),双击工作表(BeforeDoubleClick),右击工作表(BeforeRightClick),单元格变更(Change),选择区域变化(SelectionChange)
7.3 单元格
注释:默认当前工作表,也可指定工作表 Worksheets("名").
7.3.1 区域单元格
(1) 连续区域选中:Range("A1:C3").Select // 选中A1到C3所有单元格
(2) 间断区域选中:Range("A1,C3").Select // 选中A1与C3单元格,Range("A1").Select 单选
(3) 光标移动:Range("A1").End(xlUp).Select // xlUp 最上(ctrl+↑),xlDown 最下,xlToLeft 最左,xlRight 最右
(4) 区域光标偏移:Range("C1:D2").Offset(1, 1).Select // 向下向左偏移,负数向上向右
7.3.2 行
(1) 全工作表行选中:Rows.Select
(2) 多行选中:Rows("3:5").Select // 选中第3行到第5行
(3) 单行选中:Rows(2).Select // 指定行号。Rows("3:4").Rows(1).Select 选中多行中的第几行
(4) 获取行号:Rows(Rows.Count).End(xlUp).Row // 首列由下到上,第一个有值单元格行号
(5) 删除行:Rows(3).delete // 下边行上移
7.3.3 列
(1) 全工作表列选中:Columns.Select
(2) 多列选中:Columns("D:F").Select // 选中D列到F列
(3) 单列选中:Columns("D" | 2).Select // 指定列名 或 列号选中
(4) 获取列号:Columns(Columns.Count).End(xlToLeft).Column // 获取数值
(5) 删除列: Columns(3).delete // 右边列左移
7.3.4 单元格
(1) 选中单元格:Cells(行数, 列数).Select // Cells(1,1).Select 选中1行1列
(2) 选中单元格:Cells(行数, "列字母").Select // Cells(1, "B").Select 选中1行B列
(3) 选中单元格:[B2].Select // 选中指定名字的单元格
(4) 获取行号或列号:Cells(1,1).Row | Cells(1,1).Column
7.3.5 通用操作
对象:Range,Rows,Columns,Cells
(1) 单元格赋值:对象.Value = 值 // 直接单元格的值,光标不变
(2) 自动调整行高:对象.EntireRow.AutoFit
(3) 自动调整列宽:对象.EntireColumn.AutoFit
7.3.6 单元格样式
对象:Range,Rows,Columns,Cells
(1) 获取对象:Set 变量 = Range("A2:D3") | Rows(1) | Columns(1) | Cells(1,1)
(2) 合并单元格:变量 .Merge
(3) 对齐:变量 .HorizontalAlignment = xlCenter // 居中,xlLeft, xlRight
(3) 字号:变量 .Font.size = 值
(5) 字体颜色:变量 .Font.ColorIndex = 1 // 黑色(1)
(6) 字体加粗:变量 .Font.Blod = True
(7) 背景色:变量 .Interior.ColorIndex = 1 // 黑色(1)
(8) 边框:变量.Borders.LineStyle = True
8. 窗体
8.1 窗体
(1) 显示窗体:窗口名.Show
8.2 控件
8.2.1 标签(Label)
(1) 标签文本:Label名.Caption = "文本内容"
(2) 标签显示:Label名.Visible = True // True显示, False不显示
(3) 指向提示:Label名.ControlTipText
注释:背景色(BackColor),字体(Font),字体颜色(ForeColor) ...
事件:Click,DblClick,MouseDown,MouseUp,MouseMove
8.2.2 文本框(TextBox)
(1) 文本框内容:TextBox名.Value = "内容" | TextBox名.Text = "内容"
(2) 文本框显示:TextBox名.Visible = True
(3) 文本框活性:TextBox名.Enabled = True // True 可入力,False不可入力
注释:背景色(BackColor),字体(Font),字体颜色(ForeColor) ...
事件:Change,DblClick,MouseDown,MouseUp,MouseMove,KeyDown,KeyUp,KeyPress
8.2.3 下拉框(ComboBox)
(1) 文本框取值:ComboBox名.Value // 获取当前选择的值
(2) 文本框添加项目:ComboBox名.AddItem 值
(3) 清空文本框:ComboBox名.Clear
注释:显示(Visible),活性(Enabled),字体(Font),字体颜色(ForeColor) ...
事件:Change,Click,DblClick,MouseDown,MouseUp,MouseMove,KeyDown,KeyUp,KeyPress
8.2.4 列表框(ListBox)
(1) 列表框取值:ListBox名.Value // 获取当前选择的值
(2) 列表框添加项目:ListBox名.AddItem 值
(3) 获取选中状态:ListBox名.Selected(0开始下标) // True选中,False未选中,赋值改变状态
(4) 获取总件数:ListBox名.ListCount
(5) 清空列表框:ListBox名.Clear
注释:显示(Visible),活性(Enabled),字体(Font),字体颜色(ForeColor) ...
事件:Change,Click,DblClick,MouseDown,MouseUp,MouseMove,KeyDown,KeyUp,KeyPress
8.2.5 复选框(CheckBox)
分组名:GroupName相同为一组
(1) 列表框取值:CheckBox名.Value // 获取当前复选框是否选中
(2) 列表框赋值:CheckBox名.Value = True // True选中,False未选中
(3) 文本信息:CheckBox名.Caption
注释:显示(Visible),活性(Enabled),字体(Font),字体颜色(ForeColor) ...
事件:Change,Click,DblClick,MouseDown,MouseUp,MouseMove,KeyDown,KeyUp,KeyPress
8.2.6 单选框(OptionButton)
分组名:GroupName相同为一组
(1) 列表框取值:OptionButton名.Value // 获取当前复选框是否选中
(2) 列表框赋值:OptionButton名.Value = True // True选中,False未选中
(3) 文本信息:OptionButton名.Caption
注释:显示(Visible),活性(Enabled),字体(Font),字体颜色(ForeColor) ...
事件:Change,Click,DblClick,MouseDown,MouseUp,MouseMove,KeyDown,KeyUp,KeyPress
8.2.7 按钮(CommandButton)
(1) 按钮显示名:CommandButton名.Caption
注释:显示(Visible),活性(Enabled),字体(Font),字体颜色(ForeColor) ...
事件:Change,Click,DblClick,MouseDown,MouseUp,MouseMove,KeyDown,KeyUp,KeyPress
8.2.8 框架(Frame)
(1) 框架标题:Frame名.Caption
注释:显示(Visible),活性(Enabled),字体(Font),字体颜色(ForeColor) ...
8.2.9 其它
(1) 图片:Image
(2) 多页:Page // 多个Tag页
9. 开发环境
调出菜单:打开Excel > 文件 > 选项 > 自定义功能区 > 勾选右侧【开发工具】选项
开发工具:Excel菜单栏 > 开发工具 > 点击【Visual Basic】
注释:'注释内容 // 单引号后为注释内容
控制台输出:Debug.Print log内容 // ctrl+G或窗口(i)打开 控制台
弹窗信息:MsgBox "弹窗信息"
输入窗口:变量 = InputBox("提示信息", "窗口标题", "入力默认值", 显示器x坐标, 显示器y坐标)