官方文档:
Visual Basic 语言参考 | Microsoft Learn
行转数组:
Application.Transpose(Application.Transpose(行))
列转数组:
Application.Transpose(列)
定义数组:
arr = array()
调用表格公式 :
Application.
或者
Application.WorksheetFunction.
判断:
if 条件(等于用单个等号) then
结果1
elseif 条件 then //可不写
结果2
else //可不写
结果3
endif
循环:
for i = 1 to 100
过程
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)
护眼色:
- 绿豆沙:RGB值为 `(199, 237, 204)
- 银河白:RGB值为 `#FFFFFF` 或 `(255, 255, 255)
- 杏仁黄:RGB值为 `#FAF9DE` 或 `(250, 249, 222)
- 秋叶褐:RGB值为 `#FFF2E2` 或 `(255, 242, 226)
- 胭脂红:RGB值为 `#FDE6E0` 或 `(253, 230, 224)
- 青草绿:RGB值为 `#E3EDCD` 或 `(227, 237, 205)
- 海天蓝:RGB值为 `#DCE2F1` 或 `(220, 226, 241)
- 葛巾紫:RGB值为 `#E9EBFE` 或 `(233, 235, 254)
- 极光灰: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") ~
错误处理:
- On Error Resume Next:当程序遇到错误时,跳过错误继续执行下一条语句。
- On Error GoTo 0:取消错误处理,将错误交给系统默认的错误处理机制。
- On Error GoTo [label]:当程序遇到错误时,跳转到指定的标签处执行相应的错误处理代码。