简明Excel VBA
本文集同步于GitHub仓库：# bluetata/concise-excel-vba
0x01 语法说明
都知道学会了英语语法，再加上大量的词汇基础，就算基本掌握了英语了。
类似的要使用vba，也要入乡随俗，了解他的构成，简单的说vba包含数据类型、
变量/常量、对象和常用的语句结构。
不过呢在量和复杂度上远低于英语，不用那么痛苦的记单词了，所以vba其实很简单的。
熟悉了规则之后剩下就是查官方函数啦，查Excel提供的可操作对象啦。
顺带一提的是，函数其实也很容易理解，方便使用。拿到一个函数，例如Sum，
只要知道它是求多个数的和就够了，剩下的就是用了。例如Sum(1000,9)结果就是1009了。
函数的一大好处就是隐藏具体实现细节，提供简洁的使用方法。
1.1 数据和数据类型
Excel里的每一个单元格都是一个数据，无论是数字、字母或标点都是数据。
对数据排排队，吃果果，对不同的数据扔到不同的篮子里归类，篮子就是数据类型了。
在Excel-vba中，数据类型只有数值、文本、日期、逻辑或错误五种类型。
前四种最为常用。具体描述参见下表：
| 类型 | 类型名称 | 范围 | 占用空间 | 声明符号 | 备注 |
|---|---|---|---|---|---|
| 逻辑型 | |||||
| 布尔 | Boolean | 逻辑值True或False | 2 | ||
| 数值型 | |||||
| 字节 | Byte | 0~255的整数 | 1 | ||
| 整数 | Integer | -32768~32767 | 2 | % | |
| 长整数 | Long | -2147483648~2147483647 | 4 | & | |
| 单精度浮点 | Single | 4 | ! | ||
| 双精度浮点 | Double | 4 | # | ||
| 货币 | Currency | 8 | @ | ||
| 小数 | Decimal | 14 | |||
| 日期型 | |||||
| 日期 | Date | 日期范围:100/1/1~9999/12/31 | 8 | ||
| 文本型 | |||||
| 变长字符串 | String | 0~20亿 | $ | ||
| 定长字符串 | String | 1~65400 | |||
| 其他 | |||||
| 变体型 | Variant(数值) | 保存任意数值，也可以存储Error,Empty,Nothing,Null等特殊数值 | |||
| 对象 | Object | 引用对象 | 4 |
表1.1 VBA数据类型
补充一点是，数组就像一筐水果，里面可以存不止一个数据。
他不是一个具体的数据类型，叫数据结构更合适些。
1.2 常量和变量
定义后不能被改变的量，就是常量；相反的变量就能修改具体值。
在vba里，使用一个 变量/常量 要先声明。
常量声明方法如下：</br>
Const 常量名称 As 数据类型 = 存储在常量中的数据
例如：
Const PI As Single = 3.14 ' 定义一个浮点常量为PI，值为3.14
变量声明方法如下：</br>
Dim 变量名 As 数据类型
变量名，必须字母或汉字开头，不能 包含空格、句号、感叹号等。
数据类型，对应上面 ↑ 表1.1里的那些
更多的声明方法，跟Dim声明的区别是作用范围不同：
Private v1 As Integer ' v1为私有整形变量
Public v2 As String ' v2为共有字符串变量
Static v3 As Integer ' v3为静态变量，程序结束后值不变
' 变量声明之后，就可以赋值和使用了
v1 = 1009
v2 = "1009"
v3 = 1009
' 使用类型声明符，可以达到跟上面同样的效果
public v2$ ' 与 Public v2 As String 效果一样
' 声明变量时，不指定具体的类型就变成了Variant类型，根据需要转换数据类型
Dim v4
1.3 数组
使用数组和对象时，也要声明，这里说下数组的声明：
' 确定范围的数组，可以存储b - a + 1个数，a、b为整数
Dim 数组名称(a To b) As 数据类型
Dim arr(1 TO 100) As Integer ' 表示arr可以存储100个整数
arr(100) '表示arr中第100个数据
' 不指定a，直接声明时，默认a为0
Dim arr2(100) As Integer ' 表示arr可以存储101个整数,从0数
arr2(100) '表示arr2中第101个数据
' 多维数组
Dim arr3(1 To 3,1 To 3,1 To 3) As Integer ' 定义了一个三维数组，可以存储3*3*3=27个整数
' 动态数组，不确定数组大小时使用
Dim arr4() As Integer ' 定义arr4为整形动态数组
ReDim arr4(1 To v1) ' 设定arr4的大小，不能重新设定arr4的类型
除了用Dim做常规的数组的声明，还有下面这些声明数组的方式:
' 使用Array函数将已知的数据常量放到数组里
Dim arr As Variant ' 定义arr为变体类型
arr = Array(1, 1, 2, 3, 5, 8, 13, 21) ' 将整数存储到arr中,索引默认从0开始
' 使用Split函数分隔字符串创建数组
Dim arr2 As Variant
arr2 = Split("hello, world", ", ") ' 按,分隔字符串 hello,world 并赋值给arr2
' 使用Excel单元格区域创建数组
' 这种方式创建的数组，索引默认从1开始
Dim arr3 As Variant
arr3 = Range("A1:C3").Value ' 将A1:C3中的数组存储到arr3中
Range("A4:C6").Value= arr3 ' 将arr3中的数据写入到A4:C6中的区域
数组常用的函数
| 函数 | 函数说明 | 参数说明 | 示例 |
|---|---|---|---|
UBound(Array arr, [Integer i]) |
数组最大的索引值 |
arr：数组；i：整形，数组维数 |
|
LBound(Array arr, [Integer i]) |
数组最小的索引值 | 同上 | |
Join(Array arr, [String s]) |
合并字符串 |
arr：数组；s：合并的分隔符 |
|
Split(String str, [String s]) |
分割字符串 |
str：待分割的字符串；s：分割字符串的分隔符 |
函数说明
UBound(Array arr,[Integer i]);</br>
UBound为函数名</br>
arr和i 为UBound的的参数，用中括号括起来的表示i为非必填参数</br>
arr和i 之前的Array，Integer表示对应参数的数据类型</br>
补充
VBA 内置函数列表
1.4 运算符
运算符的作用是对数据进行操作，像加减乘除等。这块不再具体说明，列一下vba中常用的运算符。
| 运算符 | 作用 | 示例 |
|---|---|---|
| 算术运算符 | ||
| + | 求两个数的和 | |
| - | 求两个数的差 | |
| * | 求两个数的乘积 | |
| / | 求两个数的商 | |
\ |
求两个数相除后所得商的整数 | |
| ^ | 求一个数的某次方 | |
| Mod | 求两个数相除后所得的余数 | 10 Mod 9=3 |
| 比较运算符 | ||
| = | 比较两个数据是否相等 | 相等返回 True;否则返回False |
| <> | 不相等 | |
| < | 小于 | |
| > | 大于 | |
| <= | 不大于 | |
| >= | 不小于 | |
| Is | 比较连个对象的引用关系 | |
| Like | 比较两个字符串是否匹配 | String1 Like String2 |
| 文本运算符 | ||
| + | 连接两个字符串 | |
| & | 连接两个字符串 | |
| 逻辑运算符 | ||
| And | 逻辑与 | |
| Or | 逻辑或 | |
| Not | 逻辑非 | |
| Xor | 逻辑抑或 |
表达式1 Xor 表达式2两个表达式返回的值不相等时为True |
| Eqv | 逻辑等价 |
表达式1 Eqv 表达式2两个表达式返回的值相等时为True |
| Imp | 逻辑蕴含 |
' Like是个比较有用的运算符，常用来做匹配或模糊匹配。
' 在模糊匹配的时候，有一些通配符能方便模糊匹配规则的书写
"这是一个demo1" Like "*demo1" = True ' * 号表示匹配任意多个字符
"这是一个demo2" Like "????demo2" = True ' ? 号表示匹配任意单个字符
"这是一个demo3" Like "*demo#" = True ' # 号表示匹配任意数字
