VBA常用函数

字符串相关:

①截取字符串:

从字符串左侧开始：Left(string,length)

从字符串右侧开始：Right(string,length)

从字符串中间开始：mid(string,start,[length])   length：可选参数

②大小写变换:

小写变大写：Ucase(string)

大写变小写：Lcase(string)

字符串类型变换:StrConv(string,string type)

③字符串比较：

StrComp(string1,string2,[string type])

④字符串分割

array() = split(string,string key)

⑤查找字符

instr(string1,string2)

strin1：查找对象   string2：要查找字符    返回值：整数值，string2在string1中所在的位置

⑥字符替换

Replace(string1,string2,string3)

string1：操作对象     string2：要替换的字符     string3：替换后的值

⑦删除空格

Trim(string), LTrim(string), RTrim(string)

⑧格式化

Format(Date,"Long Date")     Format(Time, "Medium Time")

Format(Date,"mm/dd/yy")

 

数组相关:

数组重定义：Redim array(x) as Integer

                 Redim Preserve array(x) as integer    Preserve:保持数组中现有值

数组边界： 数组上界: UBound(array())    数组下界: LBound(array())

 

集合相关:

collection(item)   Dictionary(key,item)

dim x as obj

dim dict as Dictionary

for each x in dict

　　详细处理。。。

next x

 

条件处理

IIf(expr, trueapart, falseapart)

 

文件操作

①文件路径

Dir(fname, type)

②取得文件

Dim FileName as Variant   (FileName可能是数组)

 

FileName = Application.GetOpenFilename(FileFilter, FilterIndex, Titile, ButtonText, MultiSelect)

均为可选参数。

FileFilter：代表指定文件筛选条件的字符串，可多个条件。

              "Comma Separated File (*.csv), *.csv," "All File(*.*), *.*"

FilterIndex：代表默认的文件筛选条件的索引号。

Title：对话框标题。省略时标题为"打开"。

ButtonText：只用于Macintosh机器

MultiSelect：可否选中多个文件，默认值是False。

 

时间相关

①延迟控制

Application.OnTime Now + TimeValue("00:00:05"),  "SubName"

TimeValue: 延迟时间设定

SubName: 制定时间启动的方法名

 

进度表示

Application.statusBar = "Please Wait......"