VBA常用语法

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



本文链接: http://home.meng.uno/articles/c779c554/ 欢迎转载!

© 2018.02.08 - 2020.10.14 Mengmeng Kuang  保留所有权利!

UV : | PV :

:D 获取中...

Creative Commons License