《vba精选函数.doc》由会员分享，可在线阅读，更多相关《vba精选函数.doc（39页珍藏版）》请在金锄头文库上搜索。
1、Vba精选函数一、VBA函数精选之一（ASC函数）2二、VBA函数精选之二（Chr函数）3三、VBA函数精选之三（Choose函数）4四、VBA函数精选之四（Cos函数）5五、VBA函数精选之五（Date函数）6六、VBA函数精选之六（DateAdd函数）7七、VBA函数精选之七（DateDiff函数）8八、VBA函数精选之八（DatePart函数）9九、VBA函数精选之九（DateSerial函数）11十、VBA函数精选之十（DateValue函数）12H一、VBA函数精选之一（Day函数）13十二、VBA函数精选之十二（Dir函数）14十三、VBA函数精选之十三（Fix函数）15十四、VB
2、A函数精选之十四（Format函数）16十五、VBA函数精选之十五（Hour函数）17十六、VBA函数精选之十六（IIF函数）18十七、VBA函数精选之十七（InputBox）19十八、VBA函数精选之十八（Instr函数）21十九、VBA函数精选之十九（InstrRev）23二十、VBA函数精选之二十（IsArray）25二H、VBA函数精选之IsNumeric函数26二十二、VBA函数精选之（Join函数）27二十三、VBA函数精选之（LBound函数）28二十四、VBA函数精选之LCase和UCase30二十五、VBA函数精选之（Left和Right）31二十六、VBA函数精选之（Len
3、函数）33二十七、VBA函数精选之（LTrim、RTrim与Trim函数）34二十八、VBA函数精选之（Mid函数）35二十九、VBA函数精选之（Month和MonthName函数）37三十、VBA函数精选之（MsgBox函数）38三一、VBA函数精选之（Now函数）42三十二、VBA函数精选之（RGB函数）43三十三、VBA函数精选之（Rnd函数）44三十四、VBA函数精选之（Round函数）45三十五、VBA函数精选之（Split函数）47三十六、VBA函数精选之（Sqr函数）49三十七、VBA函数精选之Str和CStr50三十八、VBA函数精选之（Time函数）52三十九、VBA函数精选
4、之（TimeSerial和TimeValue函数）53四十、VBA函数精选之（Timer函数）55选择性粘贴的VBA实现方法（ZT）56ExcelVBA中ByVal和ByRef有什么区别？58、VBA函数精选之一(ASC函数)我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩。但是在VBA中不能直接应用，必须在函数名前面加上对象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。第1.1例
5、ASC函数一、题目：要求编写一段代码，运行后得到字符申”Excel”的首字母和”e”的ASCII值。二、代码：Sub示例_1_01()DimmyNum1%,myNum2%myNum1=Asc(Excel)返回69myNum2=Asc(e)返回101a1=myNum1=:b1=myNum1a2=myNum2=:b2=myNum2EndSub三、代码详解1、Sub示例_1_01()：宏程序的开始语句。2、DimmyNum1%,myNum2%:变量myNum1和myNum2声明为整型变m。也可以写为DimmyNum1AsInteger。Integer变量存储为16位(2个字节)的数值形式，其范围为-
6、32,768到32,767之间。Integer的类型声明字符是白分比符号(%)。3、myNum1=Asc(Excel):把Asc函数的值赋给变量myNum1。Asc函数返回一个Integer，代表字符申中首字母的字符的ASCII代码。语法Asc(string)必要的string(字符申)参数可以是任何有效的字符申表达式。如果string中没有包含任何字符，则会产生运行时错误。4、myNum2=Asc(e):把Asc函数的值赋给变量myNum2。这里返回小写字母e的ASCII代码101。5、a1=myNum1=:b1=myNum1:把字符申myNum1=赋给A1单元格，把变量myNum1的值赋给
7、B1单元格。6、a2=myNum2=：b2=myNum2:把字符申“myNum2=赋给A2单元格，把变量myNum2的值赋给B2单元格。7、EndSub:程序的结束语句，和“Sub示例_1_01()”相对应。二、VBA函数精选之二(Chr函数)第1.2例Chr函数一、题目：要求编写一段代码，运用Chr函数将ASCII值转换为对应的字符二、代码：Sub示例_1_02()DimmyChar1$,myChar2$myChar1=Chr(69)返回E。myChar2=Chr(101)返回e。a1=myChar1=:b1=myChar1a2=myChar2=:b2=myChar2EndSub三、代码详解
8、1、Sub小例_1_。2():宏程序的开始语句。2、DimmyChar1$,myChar2$：变量myCharl和myChar2声明为字符申变量。也可以写为DimmyCharlAsString。String之字符码的范围是0至U255。字符集的前128个字符(0到127)对应于标准的U.S.键盘上的字符与符号。这前128个字符与ASCII字符集中所定义的相同。后128个字符(128到255)则代表特殊字符，例如国际字符，重音符号，货币符号及分数。String的类型声明字符为美元号($)。3、myChar1=Chr(69):把Chr(69)的值赋给变量myChar1。这里返回大写字母E。Chr函
9、数根据字符代码返回一个字符。语法Chr(charcode)必要的charcode(字符代码)参数是用来识别某字符的。4、myChar2=Chr(101):把Chr函数的值赋给变量myChar2。这里返回小写字母e。5、a1=myChar1=:b1=myChar1:把字符申“myChar1=赋给A1单元格，把变量myChar1的值赋给B1单元格。6、a2=myChar2=:b2=myChar2:把字符申“myChar2=赋给A2单元格，把变量myChar2的值赋给B2单元格。7、EndSub:程序的结束语句，和“Sul例_1_02()”相对应。三、VBA函数精选之三(Choose函数)第1.3例
10、Choose函数一、题目：要求编写一段代码，运用Choose函数根据指定数字选择对应的字符申二、代码：Sub示例_1_03()DimNum%Num=2MsgBoxChoose(Num,一月，”二月，三月)EndSub三、代码详解1、Sub示例_1_03():宏程序的开始语句。宏名为示例_1_03o2、DimNum%:变量Num声明为整型变量。3、Num=2:把2赋给变量Num。4、MsgBoxChoose(Num,一月，二月,三月):Choose函数从参数列表中选择并返回一个值。语法Choose(index,choice-1,choice-2,.,choice-n)Choose会根据index
11、的值来返回选择项歹U表中的某个值。如果index是1,则Choose会返回歹0表中的第1个选择项。如果index是2,则会返回歹U表中的第2个选择项，以此类推。Index是必要参数，数值表达式或字段，它的运算结果是一个数值，且界于1和可选择的项目数之间。当index小于1或大于列出的选择项数目时，Choose函数返回Null。如果index不是整数，则会先四舍五入为与其最接近的整数。四、VBA函数精选之四(Cos函数)第1.4例Cos函数一、题目：要求编写一段代码，运用Cos函数根据指定角度的余弦计算其正割的值。二、代码：Sub示例_1_04()Dimjiaodu,zengejiaodu=1.
12、3zenge=1/Cos(jiaodu)MsgBox角度为”&jiaodu&的正割的值=”&zengeEndSub三、代码详解1、Sub示例_1_04():宏程序的开始语句。宏名为示例_1_04。2、Dimjiaodu,zenge:两个变量都被指定为可变型数据类型。当声明常数、变量或参数时，若无指定数据类型则会自动的指定成Variant(可变型)数据类型。声明成Variant数据类型的变量可以为字符申、日期、时间、Boolean或数值。3、jiaodu=1.3:把以弧度”为单位的角度1.3赋给变量jiaodu。4、zenge=1/Cos(jiaodu):利用1/余弦算得正割(sec()的值，赋
13、给变量zengeCos函数返回一个角的余弦值。其参数是表示一个以弧度为单位的角。5、MsgBox角度为”&jiaodu&的正割的值=”&zenge：利用MsgBox函数显示算得的正割(sec()的值。五、VBA函数精选之五(Date函数)第1.5例Date函数一、题目：要求编写一段代码，运用Date函数显示系统日期的值。二、代码：Sub示例_1_05()DimmyDatemyDate=DateMsgBox系统日期为”&myDateEndSub三、代码详解1、Sub示例_1_05():宏程序的开始语句。宏名为示例_1_05。2、DimmyDate:变量myDate被指定为可变型数据类型。3、my
14、Date=Date:把系统日期的值赋给变量myDate。Date函数返回系统当前的日期。4、MsgBox系统日期为”&myDate:利用MsgBox函数显示系统日期的值。六、VBA函数精选之六（DateAdd函数）第1.6例DateAdd函数一、题目：要求编写一段代码，运用DateAdd函数显示返回一定间隔后的日期。二、代码：Sub示例_1_06（）DimdyrqAsDateDimjglxAsStringDimnAsIntegerDimMsgjglx=mdyrq=InputBox（请输入一个日期）n=InputBox（输入增加月的数目：）Msg=新日期：&DateAdd（jglx,n,dyrq
15、）MsgBoxMsgEndSub三、代码详解1、Sub示例_1_06（）:宏程序的开始语句。宏名为示例_1_06。2、DimdyrqAsDate:变量dyrq声明为日期对象型数据类型。其余几个变量分别是字符申型、整型和可变型变量。3、jglx=m:用字符m来指定以月份”作为间隔。4、dyrq=InputBox（请输入一个日期）:用InputBox函数来让用户输入一个日期，并把用户输入的日期赋给变量dyrq。5、n=InputBox（输入增加月的数目：）:用InputBox函数来让用户输入间隔月的数目，并把用户输入的值赋给变量n。6、Msg=新日期：&DateAdd（jglx,n,dyrq）:用DateAdd函数计算得到的新的日期和字符申新日期：”连接起来赋给变量Msg。7、MsgBoxMsg:利用MsgBox函数显示Msg的值。DateAdd函数返回一个日期，这一日期加上了一个时间间隔。语法DateAdd（interval,number,date）DateAdd函数语法中有下歹U命名参数：interval必要。字符申表达式，是所要加上去的时间间隔。它具有好多设定值，比如”M为月；”功日；”yyyy为年等等。number
