VBA常见函数

所需积分/C币:50 2018-02-13 11:32:38 6.69MB PDF
32
收藏 收藏
举报

VBA,VBA,VBA常见函数总结,用到的朋友欢迎下载!!!!
Choose会根据 index的值来返回选择项列表中的某个值。如果 index是 1,则 Choose会返回列表中的第1个选择项。如果 index是2,则会返回列 表中的第2个选择项,以此类推 Index是必要参数,数值表达式或字段,它的运算结果是一个数值,且界 于1和可选择的项目数之间。当 index小于1或大于列出的远择项数目时, Choose函数返回Nu如果 index不是整数,则会先四舍五入为与其最接近 的整数。 第14例cos函数 题目: 要求编写一代码,运用Cos函数根据指定角度的余弦计算其正割的值。 Sub示 码例 代f Dim jiaodu, zenge jiaodu =1.3 zenge= 1/ Cos (jiaodu) MsgBox“角度为”& jiaodu是“的正割的值=”& zenge End sub 三、代玛详解 1、Sub示例1040:宏程序的开始语句。宏名为示例104。 2、 Dim jiaodu, zenge:两个变量都被指定为可变型数据类型。当声明常 数、变量或参数刑,若无指定数据类型则会自动的指定成 Variant(可变型)数 据类型。声明成 Variant数据类型的变量可以为字符串、日期、时间、 Boolean 或数值。 3、 jiaodu=1.3:把以“弧度”为单位的角度1.3赋给变量 jiaodu。 A、 zenge=1/Cos( jiaodu):利用1/余弦算得正割(sec()的值,赋 给变量 Zenge, Cos函数返回一个角的余弦值。其参数是表示一个以弧度为单位的角。 5、 MsgBox“角度为”& jiaodu&“的正割的值=”& zenge:利用 MsgBox函数显示算得的正割(sec())的值。 第1.5例Date函数 题目 要求編写一段代码,运用Date函数显示系统日期的值 代码 Sub示例1050) Dim my Date my Date= Date MsgBox“系统日期为”& my Date End sub 三、代码详解 1、Sub示例1050:宏程序的开始语句。宏名为示例105 2、 Dim my Date:变量 my Date被指定为可变型数据类型 3、 Iny Dale=Date:把系统日期的值赋给变量 Iny Dale。 Date函数返回系统当前的日期 4、 MsgBox“系统口期为”& myDate:利用 MsgBox函数显示系统口期的值 第16例 DateAdd函数 题目: 要求编写一代码,运用 Dateadd函数显示返回一定间隔后的日期 代码: Sub示例1060 Dim dyrq As Date Dim glx as string Dim n As integer Dim msg SIX I dyrq= InputBox("请输入一个日期") n= InputBox("输入增加月的数目: Msg="新日期:"& Dateado(glx,n,dyrq) MsgBox Msg End sub 三、代码详解 1、Sub示例106Q:宏程序的开始语句。宏名为示例_106 2、 Dim drg As date:变量dyrq声明为日期对象型数据类型。其余几个变量 分别是字符串型、整型和可变型变量。 3、jg1x="m":用字符m来指定以“月份”作为间隔。 4、dyrq= InputBox("请输入一个日期"):用 InputBox函数来让用户输入 个日期,并把用户输入的日期赋给变量dyrq 5、n= InputBox("输入增加月的数目:"):用 InputBox函数来计用户输入间 隔月的数目,并把用户输入的值赋给变量n。 6、Msg="新日期:"& DateAdd(jglx,n,dyrq):用 DateAdd函数计算得到 的新的日期和字符串“新日期:”连接起来赋给变量Msg DateAdd函数返回一个日期,这一日期加上了一个时间间隔。 语法 DateAdd (interval, number, date DateAdd函数语法中有下列命名参数 interval必要。字符串表达式,是所要加上去的时间间隔。它具有好多设 定值,比如”m”为月;”d”为日;”yy”为年等等。 number必要。数值表达式,是要加上的时间间隔的数目。其数值可以为 正数(得到未来的日期),也可以为负数(得到过去的日期) date必要。表示日期的文字 、 MsgBox Msg:利用 MsgBox两数显示Msg的值。 第1.7例 DateD函数 题目: 要求编写一代码,运用 DateDiff函数返回某个指定日期距离今天的天数。 代码 Sub小例_1070 Dim zorg as date Dim Msg zdrq= InputBox("请输入一个日期:") Ms="离开今天的天数:"& DateDiff("d",Now,zdrq) MsgBox Msg End sub 三、代码详解 1、Sub示例_1070:宏程序的开始语句。宏名为示例107。 2、 Dim zdrg as date:变量zdrq声明为日期对象型数据类型。 3、zdrq= InputBox("请输入一个日期"):用 InputBox两数来计用户输入一 个日期,并把用户输入的日期赋给变量zdrq。 4、Msg="离开今天的天数:"& DateDiff("d",Now,zdrq):用 Datediff 函数计算得到的结果和字符串“离开今天的天数:”连接起来赋给变量Msg 5、 MsgBox Msg:利用 MsgBox函数显示Msg的值。 DateDiff函数 可用来决定两个日期之间所指定的时间间隔数日。例如,可以使用 DateDiff来 计算两个口期之间相隔几日,或计算从今天起到年底还有多少个星期。 DateDiff(interval, datel, date2, firstdayofweek[ firstweekofyear]]) Dated函数语法中有下列命名参数: interva1必要。字符串表达式,是所要加上去的时间间隔。它具有好多设定 值,与 DateAdd函数相同;此例中的"d",表示天数 Date 1,date2必要;计算中要用到的两个日期。 Firstdayofweek可选。指定一个星期的第一天的常数。如果未予指定,则以 星期日为第一天 firstweekofyear可选。指定一年的第一周的常数。如果未予指定,则以包含 1月1日的星期为第一周。 第1.8例 DatePart函数 题目: 要求编写一毁代码,运用 DatePart函数返回某个指定H期是在一年的哪 个季度。 代码: Sub示例108( Dim zorg as date Dim Msg drq= InputBox("请输入个口期:") Ms="李度:"& Datepart("q",zdrq) MsgBox Msg Eud sut 代码详解 1、Sub示例_1080:宏程序的开始语句。宏名为示例108。 2、 Dim zorg as date:变量zcrq声明为日期对象型数据类型。 3、zdrq= InputBox("请输入一个日期):用 InputBox函数来让用户输入 个日期,并把用户输入的日期赋给变量zdrq 4、Msg="季度:"& DatePart("q",zdrq):用 DatePart函数计算得到的结 果和字符串“季度:”连接起来赋给变量Msg 5、 MsgBox Msg:利用 MsgBox函数显示Msg的值。 DatePart函数 DatePart(interval, date, I, firstdayofweekI, firstweekofyear1T) 语法中有下列命名参数: interval必要。字符串表达式,是所要加上去的时间间隔。它具有好多设定 值,与 Dateadd函数相同;此例中的"q",表示季度; Date,必要;计算中要用到的两个日期 Firstdayofweek可选。指定一个星期的第一天的常数。如果未予指定,则以 星期日为第一天。 firstweekofyear可选。指定一年的第一周的常数。如果未予指定,则以包含 1月1日的星期为第一周。 第19例 Date seria函数 题目: 要求编写一没代码,运用 Dateserial函数返回指定日期的Date类型 二、代码 Sub示例109( Dim zd zorg DateSerial(2008, 8, 8) MsgBox zdrq End sub 代码详解 、Sub示例109(:宏程序的开始语句。宏名为示例_109 2、 Dim zerg:变量zdrq声明为可变型数据类型。 3、zdrq= Dateserial(2008,8,8): Dateserial函数转换所得的结果赋给 变量zdrq。 Dateserial函数返回指定日期年月日的日期格式。 语法 DateSerial(year, month, day Dateseria函数法有下列的命名参数 year必要;整型。从100到9999间的整数,或数值表达式。 month必要;整型。任何数值表达式。 day必要;整型。仁何数值表达式。 4、 MsgBox adrc:利月 MsgBox函数显示zdrq的值 第110例 Dateva|ue函数 题目: 要求编写一段代码,运用 Datevalue函数返回指定日期的Date类型。 二、代码 Sub示例_10100 Dim zara zdrg datevalue( august 8, 2008) MsgBox zorg End sub 代码详解 1、Sub示例10100:宏程序的开始语句。宏名为示例1010。 2、 Dim drag:变量zdrq声明为可变型数据类型。 3、zdq= Datevalue(" August8,2008"): DateSerial函数转换所得的结 果赋给变量zdrq。 4、 MsgBox zdro:利用 MsgBox函数显示zdrq的值 Datevalue函数 将字符串转换为日期格式。 语法 Datevalue (date) Datevalue函数的参数: date必要:通常是字符串表达式,表示从100年1月1日到999年12 月31日之间的一个日期。但是,date也可以是任何表达式,其所代表的日期 时闫在上述范围内。 第1.11例Day函数 题目: 要求编写一毁代码,运用Day函数返回指定日期的日。 二、代码 Sub示例1110 Dim zdrq zdrq=#2008-128# MsgBox zorg&"这天的日为:"&Day(zdrq End sub 代码详解 1、Sub示例_1110:宏程序的开始语句。宏名为示例_111。 2、 Dim zerg:变量zdrq声明为可变型数据类型。 3、zdrq=#208-8-8#:把日期2008-8-8赋给变量 zorg 4、 MsgBox adrc&"这天的日为:"&Day(zdrq):利用 MsgBox函数显示 Day(zdrq)的值。 Day函数返回个其值为1到31之间的整数,表示个月中的某·日。 语法 Day(date Dy函数的参数: date必要的,可以是任何能够表示日期的 Variant、数值表达式、字符串表达 式或它们的组合。 第1.12例Dir函数 题目 要求编写一段代码,运用Dir函数返回一个文件夹的文件列表。 二、代码 Sub示例_112 Dim w jn wjm= Dir(c: \WINDOWS\ WIN. ini") MsgBox w im wjm= Dir( C:\WINDOWS\*. ini") wjm= Dir End sub 代码详解 、Sub示例112():宏程序的开始语句。宏名为示例112 2、 Dim w jm:变量wjm声明为可变犁数据类型。 3 wim= Dir( C: \ WINDOWS WIN. ini") 如果该文件存在则返回“WIN.INI”(在C:\ Windows文件夹中),把返回 的文件名赋给变量wjm。如果该文件不存在则wm=””。 4、wjm=Dir("C:\WⅠ NDOWS\米.ini") 返回指定扩展名的文件名。如果超过一个*.ini文件存在,函数将返回 按条件第一个找到的文件名。 5、Wjm=Dir 若第二次调用Dir函数,但不带任何参数,则函数将返回同一日录下的下 个非.ini文件。 Dir函数 返回一个字符串 String,用以表示一个文件名、目录名或文件夹名称,它必须 与指定的模式或文件属性、或磁盘卷标相匹配 Dir[(pathname[, attributes]) Dir函数的语法具有以下几个部分: pathname可选参数。用来指定文件名的字符中表达式,可能包含目录或文 件夹、以及驱动器。如果没有找到 pathname,则会返回零长度字符串(")。 attributes可选参数。常数或数值表达式,其总和用来指定文件属性。 如果省略,则会返叵匹配 pathname但不包含属性的文件。 第113例FiX函数 题目: 要求编写一段代码,运用Fix函数返回某数值的整数部分。 代码: Sub示例1130 MsgBox“99.8的整数部分是:”&Fix(99.8 MsgBox“-99.8的整数部分是:”&Fix(-99.8) End sub 代码详解 1、Sub示例_1130:宏程序的开始语句。宏名为示例_113 2、 MsgBox“99.8的整数部分是:”&Fix(99.8) 利用 MsgBox函数显示Fix(99.8)的值。 3、 MsgBox“-99.8的整数部分是:”&Fix(99.8): 利用 MsgBox函数显示Fix(-99.8)的值。 Fix函数返回参数的整数部分。 语法 Fix(number) number必要的是任何有效的数值表达式。 Int及Fix函数在返回某数值的整数部分时有何不同。当参数为负数时,Int 函数返回小于或等于该参数之最大整数,而Fix函数则返回大于或等于该参数 之最小整数。 第114例 Format函数 题目: 要求编写一段代码,运用 Forma函数对指定字符串返回指定格式的输出。 二、代码: Sub示例1140 Dim sj, rq sj=“19:08:43” rq=“2008-8-8” MsgBox sj&“的格式设为"h:mm: Ss AMPM":”& Format(sj,"hh:mm:ss AMPM") 返回"07:08:43下午"。 MsgBox 1g&“的格式设为"ddd,mdyy Format(rg, dddd, mmm d yyyy") End sub 三、代码详解 1、Sub示例1140:宏程序的开始语句。宏名为示例114 2、 Dim sj,rq:变量sj,rq声明为可变型数据类型。 j=“19:08:43”:把字符串”19:08:43”赋给变量sja 4、rq=“2008-8-8”:把字符串”2008-8-8”赋给变量rqa 5、 MsgBox s j&“的格式设为"hlu:m: sS AMPM":”& Format( s j,"h:皿:ss AMPM): 利用 MsgBox函数显示 Format函数的值。返回"07:08:43下午” 6、 MsgBox ra&“的格式设为"dda,mdy":”& Formaτ(rq,"dd, mmm d yyyy 利用 MsgBox函数显示 Format函数的值。代码执行后如图5-14所示、 Format数 根据有效的命名表达式来对指定的表达式进行格式化。 Format(expression[, format[, firstdayofweekL, firstweekofyear]]] Format函数的语法具有下面几个部分: expressIon必要参数。任何有效的表达式。 format可选参数。有效的命名表达式或用户自定义格式表达式。 firstdayofweek可选参数。常数,表示一星期的第一天。 firstweekofyear可选参数。常数,表示一年的第一周 第1.15例Hour函数 题日: 要求编写一没代码,运用Hour函数对指定字符串返回小时数 二、代码: Sub示例_115 Dim si sj="3:45:20PM"’指定一时间字符串。 MsgBox sj&"的小时是:"&Hour(sj) End sub 代码详解 Sub示例1150:宏程序的开始语句。宏名为示例_115。 2、 Dim sj 变量sj声明为可变型数据类型 3、sj=“3:45:20PM”:把字符串”3:45:20P”赋给变量sj。 4、 MsgBox si&"的小时是:"&Hour(sj): 利用 MsgBox函数显示Hour函数的值。代码执行后如图5-15所示。 Hour函数 返回一个其值为0到23之间的整数,表示一天之中的某一钟点。

...展开详情
试读 34P VBA常见函数
立即下载 低至0.43元/次 身份认证VIP会员低至7折
一个资源只可评论一次,评论内容不能少于5个字
您会向同学/朋友/同事推荐我们的CSDN下载吗?
谢谢参与!您的真实评价是我们改进的动力~
  • 签到新秀

关注 私信
上传资源赚钱or赚积分
最新推荐
VBA常见函数 50积分/C币 立即下载
1/34
VBA常见函数第1页
VBA常见函数第2页
VBA常见函数第3页
VBA常见函数第4页
VBA常见函数第5页
VBA常见函数第6页
VBA常见函数第7页

试读结束, 可继续读4页

50积分/C币 立即下载 >