- 数组下标是从0开始的
- sheet下标是从1开始的
- 获取
dict
的方法
1 2
|
Dim dic setdic = CreateObject("Scripting.Dictionary")
|
dict
添加数值方法
- 遍历
dict
方法
1 2 3
|
For Each Data In dict MsgBox (dict.Item(Data) & ":" & Data) Next
|
- vba用
'&'
来连接字符串
- 正则表达式使用方法
1 2 3 4 5
|
Dim regEx Set regEx = CreateObject("vbscript.regexp") regEx.Global = True regEx.Pattern = ".?[0-9A-F]+$" result = regEx.test(content)
|
- 获取某张数据表(sheet)已经使用的行列数方法
1 2 3
|
Dim rows, columns rows = sheet.UsedRange.rows.Count colums = sheet.UsedRange.Columns.Count
|
- 获取某张数据表
1 2 3
|
Sheets(i) Sheets("map") Sheets(i).name
|
- 获得数据表的某行内容
1 2
|
Sheets(i).Cells(c, 1) Sheets(i).Range("A17")
|
- UBound获取数组长度(数组最后一位的下标,数组从0开始).1表示有两个数
- 当函数从中间处理错误要退出可以使用
Exit Function
不要用Return,不然返回值会没有
- 使用 Function关键字能有返回值,返回值应该赋给函数名。
The link of this page is https://blog.nooa.tech/articles/c779c554/ . Welcome to reproduce it!