vba常用代码大全
前言
我们平时在工作表单元格的公式中常常使用函数,Excｅl自带的常用的函数多达300多个,功能强大,丰富多彩,但是在VBA中不能直接应用，必须在函数名前面加上对象，比如：A ｐplication。ＷorksheetFｕnction。Sｕm（ａｒｇ1，arg2，arｇ3).
而能在VBＡ中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。
第1．1例AＳＣ函数
一、题目：
要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ＡSCII值.
二、代码：
Sｕb 示例_1_01（）
Dim mｙＮum1％， myNuｍ2%
myＮuｍ1 = Aｓc（＂Ｅｘcｅl”) '返回69
mｙNum2 = Ａsｃ(”e"）'返回10１
［a１] = "ｍyNuｍ1= ": ［b１］ = ｍｙNuｍ1
［a2] = ＂myNum2= ＂：［b2］＝ mｙＮum2
Eｎd Ｓub
三、代码详解
1、Sub 示例_１_0１（）：宏程序的开始语句。
2、Dim mｙNum1％，ｍｙNum２%：变量myＮum１和mｙNum2声明为整型变量。
也可以写为Dｉm myＮuｍ１Ａs Iｎtｅgeｒ。Iｎtegeｒ变量存储
为１6位(2 个字节）的数值形式,其范围为—3２,7６8 到３2,7６7 之间。Inte ｇｅr 的类型声明字符是百分比符号（％)。
３、ｍyＮuｍ1 = Aｓc(＂Ｅxcel"）:把Asc函数的值赋给变量ｍyNum1。
Asｃ函数返回一个Ｉntｅger,代表字符串中首字母的字符的AＳCII代码。
语法
Asc(string）
必要的striｎg（字符串）参数可以是任何有效的字符串表达式。如
果strinｇ中没有包含任何字符,则会产生运行时错误。
4、myNum2 = Ａsc（"e＂）：把Asc函数的值赋给变量myＮum2。这里返回小写字母ｅ的ASＣII代码101。
5、［ａ1］ = "ｍyNuｍ１= ”：［b1］＝myNum1：把字符串“ｍｙNum1= “赋给A1单元格，把变量myＮｕm1的值赋给B1单元格.
6、[a２］＝"ｍyＮum２= ": ［ｂ2］= myＮuｍ2:把字符串“mｙN ｕｍ2= “赋给A２单元格，把变量myNｕm2的值赋给B2单元格。
７、Ｅnｄ Sｕb：程序的结束语句，和“Sub示例_1_01（)”相对应.
第１。２例Chr函数
一、题目"":
要求编写一段代码，运用Ｃｈr函数将ＡSCII值转换为对应的字符。
二、代码：
Ｓuｂ示例_1_02（）
DiｍｍｙChar1＄， myCｈar2$
myＣｈar１ = Chr(6９) ’返回Ｅ。
myCｈar2 = Cｈr(1０1) ' 返回ｅ。
［a1] = ＂ｍyＣhar1= "： [ｂ1] = ｍyChar1
[ａ2］ = ＂mｙChar2＝ ": ［ｂ２] ＝ myＣhar2
End Sub
三、代码详解
１、Sｕｂ示例_1_02（）:宏程序的开始语句。
2、ＤｉｍｍyChaｒ1＄，myChaｒ2＄:变量myCｈar１和ｍyＣｈａr2声明为字符串变量。
也可以写为Dｉm mｙＣｈａr1 Ａs Sｔriｎｇ。Strｉng 之字符码的范围
是０到255。字符集的前12８个字符（０到１27）对应于标准的Ｕ。S. 键盘上的字符与符号。这前12８个字符与AＳＣＩI字符集中所定义的相同。后1２8 个字符（128 到25５）则代表特殊字符,例如国际字符，重音符号，货币符号及分数。Stｒinｇ的类型声明字符为美元号（＄).
３、myChar1 ＝Ｃhr(6９)：把Chｒ（69）的值赋给变量myChar1.这里返回大写字母E。
Ｃhr函数根据字符代码返回一个字符。
语法
Chｒ（cｈarcｏｄe）
必要的charcode（字符代码）参数是用来识别某字符的。
４、ｍyＣhar2 = Chｒ（１0１）：把Chｒ函数的值赋给变量ｍyChar２。这里返回小写字母e。
５、[ａ１] = "myChar1= ”： [b１] = mｙChar1：把字符串“myChａr1＝“赋给Ａ1单元格，把变量ｍyＣhar1的值赋给B1单元格。
6、［a２］= "myChａr２＝”: [b2］ = myChar2:把字符串“myChar2= “赋给A2单元格,把变量mｙChar２的值赋给Ｂ2单元格.
７、Ｅnd Sｕb：程序的结束语句，和“Sｕb示例_1_02（）”相对应。
第1．3例Choｏｓe函数
一、题目：
要求编写一段代码，运用Chｏoｓe函数根据指定数字选择对应的字符串.
二、代码：
Sub 示例_1_03()
Dim Nuｍ％
Num=2
ＭsgBｏｘChｏose（Nｕm， "一月", "二月＂，＂三月”)
End Ｓub
三、代码详解
1、Sub 示例_1_03(）：宏程序的开始语句.宏名为示例＿１_03。
２、Dｉm Num％:变量Num声明为整型变量。
3、Nuｍ=2 :把2赋给变量Num。
４、ＭsgBｏx Cｈｏosｅ(Nｕm, "一月＂，”二月”，”三月”) ：
Choｏｓｅ函数从参数列表中选择并返回一个值。
语法
Cｈoose（index，chｏｉｃe－1［, choiｃe—2， .．。［， cｈoice-ｎ］］)
Ｃｈoose 会根据ｉndex 的值来返回选择项列表中的某个值。如果inｄｅｘ是1，则Ｃhoose会返回列表中的第 1 个选择项。如果ｉｎdex 是２，则会返回列表中的第２个选择项，以此类推。
Index是必要参数,数值表达式或字段，它的运算结果是一个数值，且界
于１和可选择的项目数之间。当inｄex小于１或大于列出的选择项数目时，Choose 函数返回Ｎull.如果index 不是整数，则会先四舍五入为与其最接近的整数。
第1。4例Cos函数
一、题目:
要求编写一段代码，运用Ｃos函数根据指定角度的余弦计算其正割的值。
二、代码：
Sub 示例_1_０4(）
Dim jiaoｄｕ, zenge
jiaodu = 1．3
zenｇｅ= 1 / Cos（jｉａodｕ）
MsgBox “角度为”& jiaｏdｕ＆“的正割的值= " & zen ｇe
Enｄ Sub
三、代码详解
1、Sｕb 示例_1_04（）：宏程序的开始语句。宏名为示例_1＿0４。
２、Dim jiaodu, ｚenge :两个变量都被指定为可变型数据类型。当声明常数、变量或参数时，若无指定数据类型则会自动的指定成Varｉａnt(可变型）数据类型。声明成Vaｒiａｎt数据类型的变量可以为字符串、日期、时间、Bｏolean或数值。
3、jｉａoｄu ＝ 1.３：把以“弧度”为单位的角度1。3赋给变量jiaoｄｕ。
4、zenge = 1 / Cｏs（ｊiaoｄu) ：利用1/余弦算得正割(sec（））的值，赋给变量ｚｅnge。
Cｏs函数返回一个角的余弦值。其参数是表示一个以弧度为单位的角。
5、MsgBox “角度为" & ｊｉaoｄｕ& “的正割的值= ”＆ zenge ：利用ＭｓgBoｘ函数显示算得的正割(sｅc（））的值。
第１。5例Daｔｅ函数
一、题目：
要求编写一段代码，运用Ｄate函数显示系统日期的值。
二、代码：
Sub 示例_1_０５（）
Ｄｉm myDaｔｅ
ｍyDaｔe ＝ Date
MsgBox “系统日期为”＆ｍyDaｔe
End Ｓub
三、代码详解
1、Sub 示例＿1_05():宏程序的开始语句。宏名为示例_1_０5。
2、Ｄim myDatｅ：变量myDatｅ被指定为可变型数据类型.
3、ｍｙDａte = Ｄaｔe ：把系统日期的值赋给变量myDatｅ。
Dａte函数返回系统当前的日期。
4、MsgＢox “系统日期为”＆ myDate :利用MsｇBox函数显示系统日期的值。
第1。６例DａtｅAdd函数
一、题目:
要求编写一段代码，运用DateＡｄｄ函数显示返回一定间隔后的日期。
二、代码:
Sub 示例_1_０6（）
Diｍ dyrq As Ｄate
Diｍ jgｌx As Stｒinｇ
Dim ｎAｓ Inｔeｇer
Dim Msg
jgｌx = ＂m”
dyrｑ = InpuｔBｏx（"请输入一个日期")
n ＝ IｎpuｔBox(”输入增加月的数目:”）
Msｇ = ＂新日期： " ＆ DaｔeAdd(jglx, n, dyrｑ）
MsgBｏx Mｓg
End Sub
三、代码详解
1、Sub 示例_１＿06（)：宏程序的开始语句.宏名为示例_1_06.
２、Ｄｉm dyrq As Daｔｅ:变量dyrｑ声明为日期对象型数据类型.其余几个变量分别是字符串型、整型和可变型变量。
3、jglｘ = "ｍ" ：用字符m来指定以“月份"作为间隔。
4、dyrq = InpuｔBｏx("请输入一个日期”) ：用InｐuｔBｏx函数来让用户输入一个日期,并把用户输入的日期赋给变量ｄｙrq。
5、ｎ = InｐｕtBox（"输入增加月的数目：＂）:用InputＢoｘ函数来让用户输入间隔月的数目，并把用户输入的值赋给变量n。
６、Msｇ＝”新日期: ”& DateＡdｄ（ｊglx，ｎ, dyｒq) :用ＤateＡdd函数计算得到的新的日期和字符串“新日期：”连接起来赋给变量Mｓｇ。
DaｔeAdｄ函数返回一个日期，这一日期加上了一个时间间隔.
语法
DatｅＡdd(interｖal， nｕmber, date）
DａｔｅAdd 函数语法中有下列命名参数：
ｉnterval 必要.字符串表达式,是所要加上去的时间间隔.它具有好多设定值，比如”m"为月；”d”为日；”ｙyｙy”为年等等.
ｎumber 必要。数值表达式，是要加上的时间间隔的数目.其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。
ｄaｔｅ必要。表示日期的文字。
７、ＭsgBox Msｇ：利用MsgBox函数显示Msg的值。
第1.7例DaｔeDiff函数
一、题目:
要求编写一段代码，运用DateDiff函数返回某个指定日期距离今天的天数.
二、代码:
Ｓｕb 示例_1_07（)
Dｉｍｚdrq As Dａte
Dim Msg
zdrq = InpｕｔBox(＂请输入一个日期:"）
Msg = ”离开今天的天数： " & DatｅＤｉff("ｄ”， Now，ｚdｒq)
MsgＢox Msg
End Suｂ
三、代码详解
1、Sｕb 示例_1_０7()：宏程序的开始语句.宏名为示例_１_07。
2、Diｍ zｄｒq Ａs Date :变量zdｒｑ声明为日期对象型数据类型.
３、ｚdrｑ= ＩnpuｔBox（"请输入一个日期”) ：用IｎｐuｔBox函数来让用户输入一个日期，并把用户输入的日期赋给变量zdrq.
4、Msｇ= ”离开今天的天数: ＂＆ DａteDiｆf（"d", Ｎoｗ， zdrq）：用Dat ｅDiff函数计算得到的结果和字符串“离开今天的天数：”连接起来赋给变量Mｓg。
5、ＭｓgBｏx Mｓｇ:利用MsgBoｘ函数显示Msg的值。
DateDiff 函数
可用来决定两个日期之间所指定的时间间隔数目.例如,可以使用DateDｉff 来计算两个日期之间相隔几日,或计算从今天起到年底还有多少个星期。
DateＤｉｆf（ｉnterval， daｔｅ1，ｄate2［， firsｔｄaｙoｆwｅｅk［, ｆｉrｓｔｗeｅｋofyear]］)
DatｅDiff 函数语法中有下列命名参数:
ｉnterval 必要。字符串表达式，是所要加上去的时间间隔.它具有好多设定值，与DateAdd函数相同;此例中的"d＂，表示天数；
Date１，daｔe２必要;计算中要用到的两个日期。
Firsｔｄayｏｆweeｋ可选。指定一个星期的第一天的常数.如果未予指定，则以星期日为第一天。
firｓtweekofyeaｒ可选。指定一年的第一周的常数。如果未予指定,则以包含１月 1 日的星期为第一周。
第1。8例DａtePａrt函数
一、题目：
要求编写一段代码，运用DａtｅPart函数返回某个指定日期是在一年的哪一个季度。
二、代码:
Ｓub 示例_1＿０8（)
Diｍ zdrq Ａs Ｄaｔe
Dim Ｍsg
zｄrｑ= InputBox（”请输入一个日期：”）
Mｓg = "季度: " & DaｔeＰart（＂q＂，zｄrq）
ＭｓgBｏx Mｓg
Enｄ Sｕb
三、代码详解
1、Sub 示例＿1＿08():宏程序的开始语句。宏名为示例_１_０8。
2、Diｍｚdｒq As Daｔe :变量zdｒq声明为日期对象型数据类型。
3、zdrq ＝IｎputBox(”请输入一个日期”）:用ＩｎputBｏx函数来让用户输入一个日期,并把用户输入的日期赋给变量zdrq.
4、Ｍsg = ”季度：”＆ＤaｔePａrt（＂q＂, ｚdrq）：用DaｔePaｒt函数计算得到的结果和字符串“季度: ”连接起来赋给变量Msg。
5、MsｇBｏx Msｇ：利用MsgBoｘ函数显示Ｍsg的值。
ＤaｔePart 函数
ＤatePａrt(intervａl， dａte，［， firstdayoｆweek［, ｆｉrstweekｏｆyeａr］])
语法中有下列命名参数:
ｉnteｒval 必要.字符串表达式,是所要加上去的时间间隔。它具有好多设定值,与DateＡdd函数相同；此例中的”q＂，表示季度；
Dａｔe，必要;计算中要用到的两个日期.
Ｆｉrsｔdａｙofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。
firstwｅekoｆｙear 可选。指定一年的第一周的常数.如果未予指定，则以包含 1 月 1 日的星期为第一周。
第1.9例DａteSeriaｌ函数
一、题目：
要求编写一段代码，运用DaｔeSerial函数返回指定日期的Date类型。
二、代码:
Sub 示例_１_０9(）
Diｍzdｒq
zdrq ＝ DａtｅSｅriａl(2008，８， 8）
MsｇＢox ｚdrｑ
EnｄSub
三、代码详解