VBA常用函数

时间:2021-11-30 07:54:39

字符串相关:

①截取字符串:

从字符串左侧开始: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......"