VBA总结.docx
《VBA总结.docx》由会员分享,可在线阅读,更多相关《VBA总结.docx(14页珍藏版)》请在冰豆网上搜索。
VBA总结
exitdo退出的是包含exitdo的最里层的do...loop循环
EndSub:
該過程常規結束的地方.
ExitSub:
過程到止結束,位於該過程的後續代碼將被忽略
数组。
数组分类:
一维数组,多维数组
固定大小的数组,动态数组
数组声明:
一维数组的声明:
DimMyArray(10)AsInteger
多维数组的声明:
DimMyArray(10,10)AsInteger
动态数组的声明:
DimMyArray()AsInteger
动态数组确定大小的方法:
ReDimMyArray(10)
数组的赋值:
Fori=0To10
MyArray(i)=InputBox("输入第"&i+1&"个元素的值:
")
Next
数组的使用:
Fori=0To10
MsgBox"你输入的第"&i+1&"个元素的值是:
"&MyArray(i)
Next
注意事项:
如果定义一个数组DimMyArray(10)AsInteger
那么该数组有11个元素,分别为MyArray(0),MyArray
(1)...MyArray(10)
'1、按编号(标)写入和读取
Subt1()'写入一维数组
DimxAsInteger
Dimarr(1To10)
arr
(2)=190
arr(10)=5
EndSub
Subt2()'向二维数组写入数据和读取
DimxAsInteger,yAsInteger
Dimarr(1To5,1To4)
Forx=1To5
Fory=1To4
arr(x,y)=Cells(x,y)
Nexty
Nextx
MsgBoxarr(3,1)
EndSub
'2、动态数组
Subt3
()
Dimarr()
Dimrow=Sheets("sheet2").Range("a65536").End(xlUp).row-1
ReDimarr(1Torow)
Forx=1Torow
arr(x)=Cells(x,1)
Nextx
Stop
EndSub
'3、批量写入
Subt4()'由常量数组导入
Dimarrarr=Array(1,2,3,"a")
Stop
EndSub
Subt5()'由单元格区域导入
Dimarrarr=Range("a1:
d5")
Stop
EndSub
Erase重新初始化数组
LBound得知数组的左边界
UBound得知数组的右边界
VBA数据类型转换函数VBA时间函数vba字符串函数
CBool(expression) 转换为Boolean型
CByte(expression) 转换为Byte型
CCur(expression) 转换为Currency型
CDate(expression) 转换为Date型
CDbl(expression) 转换为Double型
CDec(expression) 转换为Decemal型
CInt(expression) 转换为Integer型
CLng(expression) 转换为Long型
CSng(expression) 转换为Single型
CStr(expression) 转换为String型
CVar(expression) 转换为Variant型
Val(string) 转换为数据型
Str(number) 转换为String
Now 返回一个Variant(Date),根据计算机系统设置的日期和时间来指定日期和时间。
Date 返回包含系统日期的Variant(Date)。
Time 返回一个指明当前系统时间的Variant(Date)。
Timer 返回一个Single,代表从午夜开始到现在经过的秒数。
TimeSerial(hour,minute,second)返回一个Variant(Date),包含具有具体时、分、秒的时间。
DateDiff(interval,date1,date2[,firstdayofweek[,firstweekofyear]])返回Variant(Long)的值,表示两个指定日期间的时间间隔数目
Second(time)返回一个Variant(Integer),其值为0到59之间的整数,表示一分钟之中的某个秒
Minute(time)返回一个Variant(Integer),其值为0到59之间的整数,表示一小时中的某分钟
Hour(time) 返回一个Variant(Integer),其值为0到23之间的整数,表示一天之中的某一钟点
Day(date) 返回一个Variant(Integer),其值为1到31之间的整数,表示一个月中的某一日
Month(date)返回一个Variant(Integer),其值为1到12之间的整数,表示一年中的某月
Year(date)返回Variant(Integer),包含表示年份的整数。
Weekday(date,[firstdayofweek])返回一个Variant(Integer),包含一个整数,代表某个日期是星期几
Trim(string) 去掉string左右两端空白
Ltrim(string) 去掉string左端空白
Rtrim(string) 去掉string右端空白
Len(string) 计算string长度
Left(string,x) 取string左段x个字符组成的字符串
Right(string,x) 取string右段x个字符组成的字符串
Mid(string,start,x) 取string从start位开始的x个字符组成的字符串
Ucase(string) 转换为大写
Lcase(string) 转换为小写
Space(x) 返回x个空白的字符串
Asc(string) 返回一个integer,代表字符串中首字母的字符代码
Chr(charcode) 返回string,其中包含有与指定的字符代码相关的字符