VBA笔记

官方文档：

Visual Basic 语言参考 | Microsoft Learn

行转数组：

Application.Transpose(Application.Transpose(行))

列转数组：

Application.Transpose(列)

定义数组：

arr = array()

调用表格公式 ：

Application.

或者

Application.WorksheetFunction.

判断：

if 条件（等于用单个等号） then

        结果1

elseif 条件 then        //可不写

        结果2

else                          //可不写

        结果3

endif

多分支：

Select Case 变量或表达示

        Case 条件1

                结果1

        Case 条件2

                结果2

        Case Else

                结果3

End Select

循环：

for i = 1 to 100

        过程

        Continue For        //跳过本次循环

        exit for        //跳出循环

Next

循环2（先判断，条件成立退出循环）：

Do while 条件

        过程

        Exit Do        //跳出循环

Loop

上标和下标：

LBound(数组)

UBound(数组)

更改格式：

Format(需要格式化的值,格式)

变量类型转换

CBool	Boolean	任何有效的“字符串”或数值型表达式。
CByte	Byte	0 到 255.
CCur	Currency	-922,337,203,685,477.5808 到 922,337,203,685,477.5807。
CDate	Date	任何有效的日期表达式。
CDbl	Double	负值为 -1.79769313486231E308 到 -4.94065645841247E-324；正值为 4.94065645841247E-324 到 1.79769313486232E308。
CDec	Decimal	零缩放数（即数字中没有小数位）为 79,228,162,514,264,337,593,543,950,335。 有 28 个小数位的数字的范围为 7.9228162514264337593543950335。 最小的非零数字为 0.0000000000000000000000000001。
CInt	Integer	-32,768 到 32,767；分数四舍五入。
CLng	Long	-2,147,483,648 到 2,147,483,647；分数四舍五入。
CLngLng	LongLong	-9,223,372,036,854,775,808 至 9,223,372,036,854,775,807，分数四舍五入。 （仅在 64 位平台上有效。）
CLngPtr	LongPtr	32 位系统上为 -2,147,483,648 到 2,147,483,647，64 位系统上为 -9,223,372,036,854,775,808 到 9,223,372,036,854,775,807；32 位系统和 64 位系统分数都四舍五入。
CSng	Single	负值为 -3.402823E38 到 -1.401298E-45；正值为 1.401298E-45 到 3.402823E38。
CStr	String	文本
CVar	Variant	和“Double”针对数值型的范围相同。 和“字符串”针对非数值型的范围相同。

工作簿：

新建：

Set newbook = workbooks.add

属性：

newbook.name        //文件名

或者直接

workbooks.add.name = "文件名.xlsx"

工作表：

sheets(表号)

或者

sheets("表名")

激活的工作表 ActiveSheet

激活的工作表名称 ActiveSheet.name

单元格：

单格：

range("A1")

cells(1,1)        //先行后列

区域：

range("A1:C2")

range(cells(1,1),cells(2,3))

range("A1").usedrange //A1连续区域

//获取的单元格会成为一个二维数组，上标从1开始

重新定义数组大小：

ReDim        //不保留数据

ReDim Preserve        //保留数据

单元格颜色对应值：

.Interior.Color = rgb(0,0,0)

护眼色：

1. 绿豆沙：RGB值为 `(199, 237, 204)
2. 银河白：RGB值为 `#FFFFFF` 或 `(255, 255, 255)
3. 杏仁黄：RGB值为 `#FAF9DE` 或 `(250, 249, 222)
4. 秋叶褐：RGB值为 `#FFF2E2` 或 `(255, 242, 226)
5. 胭脂红：RGB值为 `#FDE6E0` 或 `(253, 230, 224)
6. 青草绿：RGB值为 `#E3EDCD` 或 `(227, 237, 205)
7. 海天蓝：RGB值为 `#DCE2F1` 或 `(220, 226, 241)
8. 葛巾紫：RGB值为 `#E9EBFE` 或 `(233, 235, 254)
9. 极光灰：RGB值为 `#EAEAEF` 或 `(234, 234, 239)

绿豆沙		青草绿
杏仁黄		海天蓝
秋叶褐		葛巾紫
绿豆沙		极光灰

Chr码表：

       Chr("0") 为0的字符
　　Chr("7") 响铃
　　Chr("8") 回格
　　Chr("9") tab(水平制表符)
　　Chr("10") 换行
　　Chr("11") tab(垂直制表符)
　　Chr("12") 换页
　　Chr("13") 回车 chr(13)&chr(10) 回车和换行的组合
　　Chr("26") 结束 End
　　Chr("27") 脱离 Pause break
　　Chr("32") 空格 SPACE
　　Chr("33") !
　　Chr("34") "
　　Chr("35") #
　　Chr("36") $
　　Chr("37") %
　　Chr("38") &
　　Chr("39") ’
　　Chr("40") (
　　Chr("41") )
　　Chr("42") *　
　　Chr("43") +
　　Chr("44") ,
　　Chr("45") -
　　Chr("46") .
　　Chr("47") /
　　Chr("48") 0
　　Chr("49") 1
　　Chr("50") 2
　　Chr("51") 3
　　Chr("52") 4　
　　Chr("53") 5
　　Chr("54") 6
　　Chr("55") 7
　　Chr("56") 8
　　Chr("57") 9　
　　Chr("58") :
　　Chr("59") ;
　　Chr("60") <
　　Chr("61") =
　　Chr("62") >　
　　Chr("63") ?
　　Chr("64") @
　　Chr("91") [
　　Chr("92") /
　　Chr("93") ]
　　Chr("94") ^
　　Chr("95") _
　　Chr("96") `
　　Chr("123") {
　　Chr("124") |
　　Chr("125") }
　　Chr("126") ~

错误处理：

1. On Error Resume Next：当程序遇到错误时，跳过错误继续执行下一条语句。
2. On Error GoTo 0：取消错误处理，将错误交给系统默认的错误处理机制。
3. On Error GoTo [label]：当程序遇到错误时，跳转到指定的标签处执行相应的错误处理代码。