VBA函数大全
VBA函数大全
返回参数的绝对值, 其类型和参数相同。
Array函数返回一个包含数组的Variant。
Asc函数返回一个Integer, 代表字符串中首字母的字符代码。
Atn函数返回一个Double, 指定一个数的反正切值。
CallByName函数执行一个对象的方法, 或者设置或返回一个对象的属性。
Choose函数从参数列表中选择并返回一个值。
Chr函数返回String, 其中包含有与指定的字符代码相关的字符。
返回一个Double, 指定一个角的余弦值。
CreateObject函数创建并返回一个对ActiveX对象的引用。
CurDir函数返回一个Variant(String), 用来代表当前的路径。
CVErr函数返回Error子类型的Variant, 其中包含指定的错误号。
Date函数返回包含系统日期的Variant(Date)。
DateAdd函数返回包含一个日期的Variant(Date), 这一日期还加上了一段时间间隔。
DateDiff函数返回Variant(Long)的值, 表示两个指定日期间的时间间隔数目。
DatePart函数返回一个包含已知日期的指定时间部分的Variant(Integer)。
DateSerial函数返回包含指定的年、月、日的Variant(Date)。
DateValue函数返回一个Variant(Date)。
Day函数返回一个Variant(Integer), 其值为1到31之间的整数, 表示一个月中的某一日。
DDB函数返回一个Double, 指定一笔资产在一特定期间内的折旧。
可使用双下落收复平衡方法或其它指定的方法进行计算。
Dir函数返回一个String, 用以表示一个文件名、目录名或文件夹名称, 它必须与指定的模式或文件属性、或磁盘卷标相匹配。
DoEvents函数转让控制权, 以便让操作系统处理其它的事件。
Environ函数返回String, 它关连于一个操作系统环境变量。
在Macintosh中不可用EOF函数返回一个Integer, 它包含Boolean值True, 表明已经到达为Random或顺序Input打开的文件的结尾。
VBA常用代码大全
.、八、-刖言我们平时在工作表单元格的公式中常常使用函数,EGcel自带的常用的函数多达300多个, 功能强大,丰富多彩,但是在 VBA中不能直接应用,必须在函数名前面加上对象,比如:Applicatio n. WorksheetF un ctio n.Sum(arg1,arg2,arg3) 。
而能在VBA中直接应用的函数也有几十个,下面将逐一详细介绍常用的40个VBA函数, 以供大家学习参考。
第1.1例ASC函数一、题目:要求编写一段代码,运行后得到字符串”EGcel”的首字母和” e”的ASCII值。
二、代码:Sub 示例_1_01()DimmyNum1%,myNum2%myNum仁Asc("EGcel")'返回 69myNum2=Asc("e")' 返回 101[a1]="myNum 1=":[b1]=myNum1[a2]="myNum2=":[b2]=myNum2En dSub三、代码详解1、Sub示例_1_01():宏程序的开始语句。
2、DimmyNum1%,myNum2% :变量 myNum1 和 myNum2 声明为整型变量。
也可以写为DimmyNum1AsInteger 。
Integer变量存储为16位(2个字节)的数值形式,其范围为-32,768到32,767之间。
Integer的类型声明字符是百分比符号(%)。
3、myNum1=Asc("EGcel"):把 Asc 函数的值赋给变量 myNum1 。
Asc函数返回一个Integer,代表字符串中首字母的字符的 ASCII代码。
语法Asc(stri ng)必要的string (字符串)参数可以是任何有效的字符串表达式。
如果string中没有包含任何字符,则会产生运行时错误。
4、myNum2=Asc("e"):把Asc函数的值赋给变量myNum2。
Access数据库VBA常用标准函数
Access数据库VBA常用标准函数一、算术函数1.绝对值函数:Abs(<表达式>)返回数值表达式的绝对值。
如Abs(-3)=32.向下取整函数:Int(<数值表达式>)返回数值表达式的向下取整数的结果,参数为负值时返回小于等于参数值的第一负数。
3.取整函数:Fix(<数值表达式>)返回数位表达式的整数部分,参数为负值时返回大于等于参数值的第一负数。
例如:Int(3.25)=3,Fix(3.25)=3但Int(-3.25)= -4,Fix(-3.25)= -34.四舍五入函数:Round(<数值表达式>[,<表达式>])按照指定的小数位数进入四舍五入运算的结果。
[<表达式>]是进入四舍五入运算小数点右边应保留的位数。
例如:Round(3.255,1)= 3.3;Round(3. 754,2)= 3.75;Round(3.754,0)= 45.开平方函数:Sqr(<数值表达式>)计算数值表达式的平方根。
例如:Sqr(9)= 36.产生随机数函数:Rnd(<数值表达式>)产生一个0-1之间的随机数,为单精度类型。
例如:Int(100 * Rnd)’产生[0,99]的随机整数Int(101 * Rnd)’产生[0,100]的随机整数7..求平均值函数Avg()例如:在tstud表中求小于所有学生年龄的平均值的学生<(select avg([年龄]) from tstud)8.. 求和函数sum()二、字符串函数1.字符串检索函数:InStr([Start,] <Strl>,<Stf2> [,Compare])检索子字符申Str2在字符串Strl中最早出现的位置,返回一整型数。
Start为可选参数,为数值式,设置检索的起始位置。
如省略,从第一个字符开始检索;注意,如果Strl的申长度为零,或Str2表示的申检索不到,则InStr返回0;如果Str2的串长度为零,InStr返回Start的值。
VB常用函数(很全)
Abs 函数返回数的绝对值。
And 运算符执行两个表达式的逻辑连接。
Array 函数返回含一数组的变体。
Asc 函数返回字符串首字母的ANSI 字符代码。
赋值运算符(=) 给变量或属性赋值。
Atn 函数返回数的反正切值。
调用语句将控制移交Sub 或Function 过程。
CBool 函数返回已被转换为Boolean 子类型的变体的表达式。
CByte 函数返回已被转换为字节子类型的变体的表达式。
CCur 函数返回已被转换为货币子类型的变体的表达式。
CDate 函数返回已被转换为日期子类型的变体的表达式。
CDbl 函数返回已被转换为双精度子类型的变体的表达式。
Chr 函数返回指定ANSI 字符码的字符。
CInt 函数返回已被转换为整数子类型的变体的表达式。
Class 对象提供对已创建的类的事件的访问。
Class 语句声明类名Clear 方法清除Err 对象的所有属性设置。
CLng 函数返回已被转换为Long 子类型的变体的表达式。
颜色常数颜色常数列表。
比较常数用于比较运算的常数列表。
连接运算符(&) 强制两个表达式的字符串连接。
Const 语句声明用于字母值的常数。
Cos 函数返回角度的余弦值。
CreateObject 函数创建并返回对“自动”对象的引用。
CSng 函数返回已被转换为单精度子类型的变体的表达式。
CStr 函数返回已被转换为字符串子类型的变体的表达式。
日期和时间常数在日期和时间运算中用来定义星期几和其他常数的常数列表。
日期格式常数用于日期和时间格式的常数列表。
Date 函数返回当前系统日期。
DateAdd 函数返回加上了指定的时间间隔的日期。
DateDiff 函数返回两个日期之间的间隔。
DatePart 函数返回给定日期的指定部分。
DateSerial 函数返回指定年月日的日期子类型的变体。
DateValue 函数返回日期子类型的变体。
Day 函数返回日期,取值范围为1 至31。
(完整版)vba常用代码大全,推荐文档
前言我们平时在工作表单元格的公式中常常使用函数,Excel自带的常用的函数多达300多个,功能强大,丰富多彩,但是在VBA中不能直接应用,必须在函数名前面加上对象,比如:Application.WorksheetFunction.Sum(arg1,arg2,arg3)。
而能在VBA中直接应用的函数也有几十个,下面将逐一详细介绍常用的40个VBA函数,以供大家学习参考。
第1.1例 ASC函数一、题目: 要求编写一段代码,运行后得到字符串”Excel”的首字母和”e”的ASCII值。
二、代码:Sub 示例_1_01()Dim myNum1%, myNum2%myNum1 = Asc("Excel") '返回69myNum2 = Asc("e") '返回101[a1] = "myNum1= ": [b1] = myNum1[a2] = "myNum2= ": [b2] = myNum2End Sub三、代码详解1、Sub 示例_1_01():宏程序的开始语句。
2、Dim myNum1%, myNum2%:变量myNum1和myNum2声明为整型变量。
也可以写为 Dim myNum1 As Integer 。
Integer 变量存储为 16位(2 个字节)的数值形式,其范围为 -32,768 到 32,767 之间。
Integer 的类型声明字符是百分比符号 (%)。
3、myNum1 = Asc("Excel"):把Asc函数的值赋给变量myNum1。
Asc函数返回一个 Integer,代表字符串中首字母的字符的ASCII代码。
语法Asc(string)必要的 string(字符串)参数可以是任何有效的字符串表达式。
如果 string 中没有包含任何字符,则会产生运行时错误。
4、myNum2 = Asc("e"):把Asc函数的值赋给变量myNum2。
vba中常用的内置函数
vba中常用的内置函数VBA(Visual Basic for Applications)是一种用于Microsoft Office套件中的宏编程语言。
它允许用户通过编写脚本来自动化任务、处理数据和创建自定义功能。
在VBA中,有许多内置函数可用于执行各种常见任务。
本文将介绍一些常用的VBA内置函数,并提供示例和用法说明。
1. Len函数:用于计算字符串的长度。
它返回一个整数值,表示给定字符串中的字符数。
例如,Len("Hello World")将返回11,因为该字符串包含11个字符。
2. Left函数:用于从字符串的左侧提取指定数量的字符。
它接受两个参数:要提取的字符串和要提取的字符数。
例如,Left("Hello World", 5)将返回"Hello",因为它提取了字符串的前5个字符。
3. Right函数:与Left函数类似,但是从字符串的右侧提取指定数量的字符。
例如,Right("Hello World", 5)将返回"World",因为它提取了字符串的最后5个字符。
4. Mid函数:用于从字符串的任意位置提取指定数量的字符。
它接受三个参数:要提取的字符串、要从中提取字符的起始位置和要提取的字符数。
例如,Mid("Hello World", 7, 5)将返回"World",因为它从字符串的第7个字符开始提取了5个字符。
5. InStr函数:用于在字符串中查找子字符串的位置。
它接受三个参数:要搜索的字符串、要查找的子字符串和要开始搜索的位置。
它返回一个整数值,表示找到的子字符串的位置。
如果未找到子字符串,则返回0。
例如,InStr("Hello World", "World")将返回7,因为它在字符串中找到了子字符串"World"。
VBA函数大全
Abs函数返回参数的绝对值;其类型和参数相同..Array函数返回一个包含数组的Variant..Asc函数返回一个Integer;代表字符串中首字母的字符代码.. Atn函数返回一个Double;指定一个数的反正切值.. CallByName函数执行一个对象的方法;或者设置或返回一个对象的属性.. Choose函数从参数列表中选择并返回一个值..Chr函数返回String;其中包含有与指定的字符代码相关的字符.. Cos函数返回一个Double;指定一个角的余弦值.. CreateObject函数创建并返回一个对ActiveX对象的引用..CurDir函数返回一个VariantString;用来代表当前的路径..CVErr函数返回Error子类型的Variant;其中包含指定的错误号..Date函数返回包含系统日期的VariantDate..DateAdd函数返回包含一个日期的VariantDate;这一日期还加上了一段时间间隔.. DateDiff函数返回VariantLong的值;表示两个指定日期间的时间间隔数目.. DatePart函数返回一个包含已知日期的指定时间部分的VariantInteger.. DateSerial函数返回包含指定的年、月、日的VariantDate..DateValue函数返回一个VariantDate..Day函数返回一个VariantInteger;其值为1到31之间的整数;表示一个月中的某一日.. DDB函数返回一个Double;指定一笔资产在一特定期间内的折旧..可使用双下落收复平衡方法或其它指定的方法进行计算..Dir函数返回一个String;用以表示一个文件名、目录名或文件夹名称;它必须与指定的模式或文件属性、或磁盘卷标相匹配..DoEvents函数转让控制权;以便让操作系统处理其它的事件..Environ函数返回String;它关连于一个操作系统环境变量..在Macintosh中不可用EOF函数返回一个Integer;它包含Boolean值True;表明已经到达为Random或顺序Input 打开的文件的结尾..Error函数返回对应于已知错误号的错误信息..Exp函数返回Double;指定e自然对数的底的某次方..FileAttr函数返回一个Long;表示使用Open语句所打开文件的文件方FileDateTime函数返回一个VariantDate;此为一个文件被创建或最后修改后的日期和时间..Filter函数描述返回一个下标从零开始的数组;该数组包含基于指定筛选条件的一个字符串数组的子集..FormatCurrency函数描述返回一个货币值格式的表达式;它使用系统控制面板中定义的货币符号FormatDateTime函数描述返回一个日期或时间格式的表达式.. FormatNumber函数描述返回一个数字格式的表达式..语法FormatPercent函数描述返回一个百分比格式乘以100的表达式;后面有%符号.. FreeFile函数返回一个Integer;代表下一个可供Open语句使用的文件号..FV函数返回一个Double;指定未来的定期定额支付且利率固定的年金.. GetAllSettings函数从Windows注册表或Macintosh中应用程序初始化文件中的信息中返回应用程序项目的所有注册表项设置及其相应值开始是由SaveSetting产生..GetAttr函数返回一个Integer;此为一个文件、目录、或文件夹的属性.. GetObject函数返回文件中的ActiveX对象的引用..Hex函数返回代表十六进制数值的String..Hour函数返回一个VariantInteger;其值为0到23之间的整数;表示一天之中的某一钟点..IIf函数根据表达式的值;来返回两部分中的其中一个..IMEStatus函数返回一个Integer;用来指定当前MicrosoftWindows的输入法IME方式;只对东亚区版本有效..Input函数返回String;它包含以Input或Binary方式打开的文件中的字符..InputBox函数在一对话框来中显示提示;等待用户输入正文或按下按钮;并返回包含文本框内容的String..InStr函数返回VariantLong;指定一字符串在另一字符串中最先出现的位置..InStrRev函数描述返回一个字符串在另一个字符串中出现的位置;从字符串的末尾算起..Int、Fix函数返回参数的整数部分..IPmt函数返回一个Double;指定在一段时间内对定期定额支付且利率固定的年金所支付的利息值..IRR函数返回一个Double;指定一系列周期性现金流支出或收入的内部利率..IsArray函数返回Boolean值;指出变量是否为一个数组..IsDate函数返回Boolean值;指出一个表达式是否可以转换成日期..IsEmpty函数返回Boolean值;指出变量是否已经初始化..IsError函数返回Boolean值;指出表达式是否为一个错误值.. IsMissing函数返回Boolean值;指出一个可选的Variant参数是否已经传递给过程.. IsNull函数返回Boolean值;指出表达式是否不包含任何有效数据Null.. IsNumeric函数返回Boolean值;指出表达式的运算结果是否为数.. IsObject函数返回Boolean值;指出标识符是否表示对象变量..LCase函数返回转成小写的String..Left函数返回VariantString;其中包含字符串中从左边算起指定数量的字Len函数返回Long;其中包含字符串内字符的数目;或是存储一变量所需的字节数.. Loc函数返回一个Long;在已打开的文件中指定当前读/写位置..LOF函数返回一个Long;表示用Open语句打开的文件的大小;该大小以字节为单位.. Log函数返回一个Double;指定参数的自然对数值..LTrim、RTrim与Trim函数返回VariantString;其中包含指定字符串的拷贝;没有前导空白LTrim、尾随空白RTrim或前导和尾随空白Trim..MacID函数此函数用在Macintosh上;将长为4个字符的常量转换成被Dir;Kill;Shell;和AppActivate.使用的值..MacScript函数执行一个脚本并返回由此脚本返回的值;如果脚本有返回值的话Mid函数返回VariantString;其中包含字符串中指定数量的字符..Minute函数返回一个VariantInteger;其值为0到59之间的整数;表示一小时中的某分钟..MIRR函数返回一个Double;指定一系列修改过的周期性现金流支出或收入的内部利率..Month函数返回一个VariantInteger;其值为1到12之间的整数;表示一年中的某月..MonthName函数描述返回一个表示指定月份的字符串..MsgBox函数在对话框中显示消息;等待用户单击按钮;并返回一个Integer告诉用户单击哪一个按钮..Now函数返回一个VariantDate;根据计算机系统设置的日期和时间来指定日期和时间.. 语法NPer函数返回一个Double;指定定期定额支付且利率固定的总期数..NPV函数返回一个Double;指定根据一系列定期的现金流支付和收入和贴现率而定的投资净现值..Oct函数返回VariantString;代表一数值的八进制值..Partition函数返回一个VariantString;指定一个范围;在一系列计算的范围中指定的数字出现在这个范围内..Pmt函数返回一个Double;指定根据定期定额支付且利率固定的年金支付额.. PPmt函数返回一个Double;指定在定期定额支付且利率固定的年金的指定期间内的本金偿付额..PV函数返回一个Double指定在未来定期、定额支付且利率固定的年金现值.. QBColor函数返回一个Long;用来表示所对应颜色值的RGB颜色码..Rate函数返回一个Double;指定每一期的年金利率..Replace函数描述返回一个字符串;该字符串中指定的子字符串已被替换成另一子字符串;并且替换发生的次数也是指定的..RGB函数返回一个Long整数;用来表示一个RGB颜色值..Right函数返回VariantString;其中包含从字符串右边取出的指定数量的字符..Rnd函数返回一个包含随机数值的Single..语法Round函数描述返回一个数值;该数值是按照指定的小数位数进行四舍五入运算的结果..LTrim、RTrim与Trim函数返回VariantString;其中包含指定字符串的拷贝;没有前导空白LTrim、尾随空白RTrim或前导和尾随空白Trim..Second函数返回一个VariantInteger;其值为0到59之间的整数;表示一分钟之中的某个秒..Seek函数返回一个Long;在Open语句打开的文件中指定当前的读/写位置..Sgn函数返回一个VariantInteger;指出参数的正负号..Shell函数执行一个可执行文件;返回一个VariantDouble;如果成功的话;代表这个程序的任务ID;若不成功;则会返回0..Sin函数返回一Double;指定参数的sine正弦值..SLN函数返回一个Double;在一期里指定一项资产的直线折旧..Sqr函数返回一个Double;指定参数的平方根..语法Space函数返回特定数目空格的VariantString..Spc函数与Print#语句或Print方法一起使用;对输出进行定位.. Str函数返回代表一数值的VariantString..StrComp函数返回VariantInteger;为字符串比较的结果.. StrConv函数返回按指定类型转换的VariantString.. StrReverse函数描述返回一个字符串;其中一个指定子字符串的字符顺序是反向的..String函数返回VariantString;其中包含指定长度重复字符的字符Switch函数计算一组表达式列表的值;然后返回与表达式列表中最先为True的表达式所相关的Variant数值或表达式..SYD函数返回一个Double;指定某项资产在一指定期间用年数总计法计算的折旧..Tab函数与Print#语句或Print方法一起使用;对输出进行定位..Tan函数返回一个Double的值;指定一个角的正切值..Time函数返回一个指明当前系统时间的VariantDate..Timer函数返回一个Single;代表从午夜开始到现在经过的秒数.. TimeSerial函数返回一个VariantDate;包含具有具体时、分、秒的时间.. TimeValue函数返回一个包含时间的VariantDate..TypeName函数返回一个String;提供有关变量的信息..UBound函数返回一个Long型数据;其值为指定的数组维可用的最大下标.. UCase函数返回VariantString;其中包含转成大写的字符串..Val函数返回包含于字符串内的数字;字符串中是一个适当类型的数值.. VarType函数返回一个Integer;指出变量的子类型..Weekday函数返回一个VariantInteger;包含一个整数;代表某个日期是星期几.. WeekdayName函数描述返回一个字符串;表示一星期中的某天..Year函数返回VariantInteger;包含表示年份的整数..最近表格作得很多;我这人又比较懒;于是很多工作都交给了VBA..特地找了一些VBA的常用代码;大家分享一下..ApplicationExcel程序Application.EnableEvents= True/ False ’启用/禁用所有事件Application.DisplayAlerts=True/False ’显示/关闭警告框提示框Application.ScreenUpdating= True/False ’显示/关闭屏幕刷新Application.StatusBar = "软件报专用" ’在地址栏中显示文本;标题栏用Caption属性Application.Cursor = xlIBeam ‘设置光标形状为Ⅰ字形;xlWait为沙漏等待形;xlNormal为正常Application.WindowState = xlMinimized ‘窗口最小化;xlMaximized最大化;xlNormal为正常Appli cation.ActivateMicrosoftApp xlMicrosoftWord ’开启Word应用程序Application.TemplatesPath ‘获取工作簿模板的位置Application.CalculateFull ’重新计算所有打开的工作簿中的数据Application.RecentFiles.Maximum = 2 ’将最近使用的文档列表数设为2Application.RecentFiles3.Open ’打开最近打开的文档中的第3个文档Application.AutoCorrect.AddReplacement "sweek"; "软件报" ’自动将输入的"sweek"更正为"软件报" Application.DialogsxlDialogPrint.Show ‘显示打印文档的对话框Application.OnTime Now + TimeValue"00:00:45"; "process" ’45分钟后执行指定过程Application.OnTime TimeValue"14:00:00"; " process " ’下午2点执行指定过程Application.OnTime EarliestTime:=TimeValue"14:00:00"; _Procedure:="process"; Schedule:=False ’取消指定时间的过程的执行工作簿/工作表ActiveWorkbook.Sheets.Count ’获取活动工作薄中工作表数ActiveWorkbook.LinkSourcesxlExcelLinks1 ‘返回当前工作簿中的第一条链接ThisWorkbook.Worksheets“sheet2”.Visible=xlSheetHidden ‘隐藏工作表;与在Excel菜单中执行“格式—工作表—隐藏”操作一样ThisWorkbook.Worksheets“sheet2”.Visible=xlSheetVeryHidden ‘隐藏工作表;不能通过在Excel菜单中执行“格式—工作表—取消隐藏”来重新显示工作表ThisWorkbook.Worksheets“sheet2”.Visible=xlSheetVisible ‘显示被隐藏的工作表ThisWorkbook.Sheets1.ProtectContents ‘检查工作表是否受到保护ActiveSheet.Columns"B".CutActiveSheet.Columns"F".Insert ‘以上两句将B列数据移至F列;原C列后的数据左移ActiveSheet.Range“A:A”.EntireColumn.AutoFit ‘自动调整当前工作表A列的列宽ActiveSheet.Cells.SpecialCellsxlCellTypeConstants;xlTextValues ‘选中当前工作表中常量和文本单元格ActiveSheet.Cells.SpecialCellsxlC ellTypeConstants;xlErrors+xlTextValues ‘选中当前工作表中常量和文本及错误值单元格edRange.Rows.Count ‘当前工作表中已使用的行数ThisWorkbook.Worksheets.Add ThisWorkbook.Worksheets3; ; 2 ‘在第3张工作表之前添加2个新的工作表ActiveSheet.Move After:=ActiveWorkbook.SheetsActiveWorkbook.Sheets.Co unt ’将当前工作表移至工作表的最后WorksheetsArray“sheet1”;”sheet2”.Select ’同时选择工作表sheet1和sheet2edRange.FormatConditions.Delete ‘删除当前工作表中应用的条件格式Cells.Hyperlinks.Delete ‘取消当前工作表中所有单元格的超链接ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName ‘在页脚显示文件的路径ActiveSheet.PrintPreview Enablechanges:=False ‘禁用显示在Excel的“打印预览”窗口中的“设置”和“页边距”按钮单元格/单元格区域edRange.Row ‘获取已使用的单元格区域的第一行的行号Range“A65536”.EndxlUp.Row ‘返回A列最后一行即记录的总条数cell.Range“A1”.HasFormula ‘检查单元格或单元格区域中的第一个单元格是否含有公式或cell.HasFormula ‘工作表中单元格是否含有公式Target.EntireColumn.Select ‘选择单元格所在的整个列;Target.EntireRow.Select为选择单元格所在的整行ActiveCell.Row ‘活动单元格所在的行号ActiveCell.Column为活动单元格所在的列数ActiveWindow.ScrollRow = 2 ’将当前工作表窗口滚动到第2行ActiveWindow.ScrollColumn = 5 ’将当前工作表窗口滚动到第5列Worksheets"sheet1".Range"A1:C5".CopyPicture xlScreen; xlBitmap ’将指定的单元格区域的内容复制成屏幕快照Selection.Hyperlinks.Delete ‘删除所选区域的所有链接ActiveSheet.Cells1; 1.Font.Bold = TRUE ‘Bold属性用于设置字体是否为加粗; Size属性设置字体大小; ColorIndex属性设置字体颜色其值为颜色索引号; Italic属性设置字型是否为倾斜; Name属性设置字体名称ActiveSheet.Cells1; 1.In terior.ColorIndex = 3 ‘将单元格的背景色设置为红色IsEmpty ActiveCell.Value ’判断活动单元格中是否有值ActiveCell.Value = UCaseActiveCell.Value ’将当前单元格中的字符转换成大写ActiveCell.Value = StrConvActiveCell.Value; vbLowerCase ’将活动单元格中的字符串转换成小写ActiveCell.CurrentRegion.Select ’选择当前活动单元格所在的连续的非空区域;也可以用RangeActiveCell; UsedRange.EndxlDown.SelectActiveCell.Offset1;0.Select ’活动单元格下移一行Range“B2”.OffsetColumnOffset:=1或Range“B2”.Offset;1 ‘读取指定单元格右侧单元格中的数据Range“B2”.OffsetRowoffset:=-1或Range“B2”.Offset-1 ‘读取指定单元格上一行单元格中的数据Range“A1”.Copy Range“B1” ’复制单元格A1中的内容到B1中Range“A1:D8”.Copy Range“H1” ’将指定单元格区域复制到从H1开始的区域中;用Cut方法可以实现剪切操作ActiveWindow.RangeSelection.Value = "软件报" ’将指定字符串输入到所选单元格区域中窗体控件Option Explicit ’强制对模块内所有变量进行声明Userform1.Show ‘显示用户窗体Load Userform1 ‘加载一个用户窗体;但该窗体处于隐藏状态Userform1.Hide ‘隐藏用户窗体Unload Userform1 或Unload Me ‘卸载用户窗体Me.Height=Int0.5 * ActiveWindow.Height ‘窗体高度为当前活动窗口高度的一半;宽度用ActiveWindow. Width属性boBox1.AddItem Sheets"Sheet1".Cells1; 1 ‘将指定单元格中的数据添加到复合框中ListBox1.List=MyProduct ‘将数组MyProduct的值添加到列表框ListBox1中ListBo x1.RowSource=”Sheet1isum” ‘将工作表Sheet1中名为的isum区域的值添加到列表框中ListBox1.Selected0 ‘选中列表框中的指定的条目ListBox1.RemoveItem ListBox1.ListIndex ‘移除列表框中选中的条目If MsgBox“要退出吗”;vbYesNo<>vbYes Then Exit Sub ’返回值不为“是”;则退出Config=vbYesNo+vbQuestion+vbDefaultButton2 ’使用常量的组合;赋值组Config变量;并设置第二个按钮为缺省按钮MsgBox “This is the first line.” & vbNewLine & “Second line.” ’在消息框中强制换行;也可用vbCrLf代替vbNewLine..MsgBox "平均值为:"&FormatApplication.WorksheetFunction.AverageSelection;"#;##0.00";vbInformation; "显示选区平均值" ’应用工作表函数返回所选区域的平均值并按指定显示的格式公式与函数Application.WorksheetFunction.IsNumber“A1” ’检查指定单元格中的数据是否为数字Range“A:A”.FindApplication.WorksheetFunction.MaxRange“A:A”.Activate ’激活单元格区域A列中最大值的单元格Application.MacroOptions Macro:=”GetSum”;Category:=4 ‘将自定义的GetSum函数指定给Excel中的“统计函数”类别Application.MacroOp tions Macro:=” GetSum”; _Description:=”先求和;然后再输出..” ‘为自定义函数GetSum进行功能说明Application.WorksheetFunction.CountACell.EntireColumn ‘返回该单元格所在列非空单元格的数量;所在行使用EntireRow属性Application.WorksheetFunction.CountACells ‘返回当前工作表中非空单元格数量图表ActiveSheet.ChartObjects.Delete ‘删除工作表中所有的ChartObject对象ActiveWorkbook.Charts.Delete ‘删除当前工作簿中所有的图表工作表ActiveSheet.ChartObjects.Count ’获取当前工作表中图表的个数Worksheets"Sheet1".ChartObjects1.Chart.Export Filename:="C:\MyChart.gif"; FilterName:="GIF" ‘将指定工作表中的图表1导出到C盘上并命名为MyChart.gif。
VBA函数大全(自己整理的)
VBA函数大全(自己整理的) Abs函数返回一个与参数类型相同的绝对值。
Array函数返回一个包含数组的Variant。
Asc函数返回一个整数,代表字符串中首字母的字符代码。
Atn函数返回一个双精度浮点数,指定一个数的反正切值。
CallByName函数执行一个对象的方法,或者设置或返回一个对象的属性。
Choose函数从参数列表中选择并返回一个值。
Chr函数返回一个字符串,其中包含与指定的字符代码相关的字符。
Cos函数返回一个双精度浮点数,指定一个角的余弦值。
___函数创建并返回一个对ActiveX对象的引用。
CurDir函数返回一个代表当前路径的字符串。
CVErr函数返回一个包含指定错误号的Error子类型的Variant。
Date函数返回一个包含系统日期的Variant(Date)。
DateAdd函数返回一个包含指定时间间隔后的日期的Variant(Date)。
DateDiff函数返回一个Variant(Long)的值,表示两个指定日期间的时间间隔数目。
DatePart函数返回一个包含已知日期的指定时间部分的Variant(Integer)。
DateSerial函数返回一个包含指定的年、月、日的Variant(Date)。
DateValue函数返回一个Variant(Date)。
Day函数返回一个表示一个月中某一日的1到31之间的整数。
DDB函数返回一个双精度浮点数,指定一笔资产在一特定期间内的折旧。
Dir函数返回一个符合指定模式、文件属性或磁盘卷标的文件名、目录名或文件夹名称的字符串。
DoEvents函数转让控制权,以便让操作系统处理其他事件。
Environ函数返回一个与操作系统环境变量相关的字符串。
在Macintosh中不可用。
EOF函数返回一个包含布尔值True的整数,表明已经到达为Random或顺序Input打开的文件的结尾。
Error函数返回对应于已知错误号的错误信息。
Exp函数返回一个双精度浮点数,指定e(自然对数的底)的某次方。
VBA中常用函数的使用与实例解析
VBA中常用函数的使用与实例解析VBA(Visual Basic for Applications)是一种宏语言,用于在Microsoft Office应用程序中编写自定义的程序和宏。
VBA通过提供各种内建函数来增强其功能,这些函数可以用于处理数据、执行数学运算、操作字符串和日期等。
在本文中,将介绍VBA中的几个常用函数,并通过实例解析来展示其用法和功能。
1. InStr函数InStr函数用于在一个字符串中搜索子字符串,并返回子字符串第一次出现的位置。
其语法如下:InStr([start, ]string1, string2[, compare])其中start为可选参数,表示从字符串中的哪个位置开始搜索。
string1表示要在其中搜索的字符串,而string2表示要搜索的子字符串。
compare为可选参数,用于指定比较方式(例如大小写敏感或不敏感)。
如果比较参数未指定,则默认为比较敏感。
例如,假设有一个字符串"Hello, World!",我们希望找到子字符串"World"第一次出现的位置。
可以使用以下代码:```VBADim str As StringDim position As Integerstr = "Hello, World!"position = InStr(str, "World")MsgBox position```运行上述代码,将返回值为8,即子字符串"World"第一次出现的位置。
2. Left函数Left函数用于从一个字符串的左侧提取指定长度的字符。
其语法如下:Left(string, length)其中string表示要进行提取的字符串,而length表示要提取的左侧字符的数量。
例如,假设有一个字符串"Welcome to VBA",我们希望提取前6个字符。
vba常用代码大全
前言我们平时在工作表单元格的公式中常常使用函数,Excel自带的常用的函数多达300多个,功能强大,丰富多彩,但是在VBA中不能直接应用,必须在函数名前面加上对象,比如:Application.WorksheetFunction.Sum(arg1,arg2,arg3)。
而能在VBA中直接应用的函数也有几十个,下面将逐一详细介绍常用的40个VBA函数,以供大家学习参考。
第1.1例 ASC函数一、题目:要求编写一段代码,运行后得到字符串”Excel”的首字母和”e”的ASCII值。
二、代码:Sub 示例_1_01()Dim myNum1%, myNum2%myNum1 = Asc("Excel") '返回69myNum2 = Asc("e") '返回101[a1] = "myNum1= ": [b1] = myNum1[a2] = "myNum2= ": [b2] = myNum2End Sub三、代码详解1、Sub 示例_1_01():宏程序的开始语句。
2、Dim myNum1%, myNum2%:变量myNum1和myNum2声明为整型变量。
也可以写为 Dim myNum1 As Integer 。
Integer 变量存储为 16位(2 个字节)的数值形式,其范围为 -32,768 到 32,767 之间。
Integer 的类型声明字符是百分比符号 (%)。
3、myNum1 = Asc("Excel"):把Asc函数的值赋给变量myNum1。
Asc函数返回一个 Integer,代表字符串中首字母的字符的ASCII代码。
语法Asc(string)必要的 string(字符串)参数可以是任何有效的字符串表达式。
如果 string 中没有包含任何字符,则会产生运行时错误。
4、myNum2 = Asc("e"):把Asc函数的值赋给变量myNum2。
vba字符串函数列表
1,vba字符串函数列表: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,其中包含有与指定的字符代码相关的字符2,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) 转换为String3,VBA时间函数:Now 返回一个Variant (Date),根据计算机系统设置的日期和时间来指定日期和时间。
Date 返回包含系统日期的Variant (Date)。
Time 返回一个指明当前系统时间的Variant (Date)。
VBA代码全集
VBA代码全集VBA代码全集一、引用相对引用B4绝对引用$B$4混合引用$B4、B$4F4进行引用切换,$在字母前面则锁定列,在数字前面则锁定行。
二、Worksheet_Change 事件:1.在单元格中C4=VLOOKUP(B4,简码表!$B$4:$C$1000,2,FALSE)2. Worksheet_Change事件代码:Private Sub Worksheet_Change(ByVal Target As Range)On error resume nextIf Target.Row > 3 And Target.Column = 2 Theni = Target.RowCells(i, 3) = Application.WorksheetFunction.VLookup(Cells(i, 2), Sheets("简码表").Range("b4:c100"), 2, False)End IfEnd Sub备查代码:Private Sub Worksheet_Change(ByVal Target As Range)On Error Resume NextIf Target.Row > 3 And Target.Column = 5 Theni = Target.RowCells(i, 6) = Application.WorksheetFunction.VLookup(Cells(i, 5), Sheets("类款项").Range("b2:e2000"), 2, False)Cells(i, 7) = Application.WorksheetFunction.VLookup(Cells(i, 5), Sheets("类款项").Range("b2:e2000"), 3, False)Cells(i, 8) = Application.WorksheetFunction.VLookup(Cells(i, 5), Sheets("类款项").Range("b2:e2000"), 4, False)End IfEnd Sub三、相乘Sub 计算金额()Application.ScreenUpdating = FalseDim i As LongDim irow As Longirow = Range("a3").End(xldown).RowFor i = 4 To irowCells(i, 3) = Cells(i, 1) * Cells(i, 2)Next iApplication.ScreenUpdating = TrueEnd Sub四、相减Sub 相减()Application.ScreenUpdating = FalseRange("c3:c10000").ClearContentsDim i As LongDim irow As Longirow = Range("a5000").End(xlUp).RowFor i = 3 To irowCells(i, 3) = VBA.Round((Cells(i, 1) - Cells(i, 2)), 2) Next iApplication.ScreenUpdating = TrueEnd Sub五、高级筛选(工具-宏-录制新宏,宏名改成高级筛选)Sub 高级筛选()Sheets("业务").Range("A3:I10000").AdvancedFilterAction:=xlFilterCopy, _CopyToRange:=ActiveCell.Range("A1:B1"), Unique:=TrueEnd Sub六、双击事件1.插入-名称-定义(修改名称和引用位置)2.查看代码-插入-用户窗体工具箱-多页、列表框-右键属性点击page1修改caption为资产类-点击空白列表框修改rowsource 为box1依次类推3. 业务表-查看代码 Worksheet beforedoubleclickPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Target.Row > 3 And Target.Column = 6 Then UserForm1.ShowSheets("初始化").Range("m3") = ActiveCellElseIf Target.Row > 3 And Target.Column = 7 ThenUserForm2.ShowEnd IfEnd Sub备查代码:Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Target.Row > 3 And Target.Column = 6 Then UserForm1.ShowSheets("初始化").Range("c2") = ActiveCellElseIf Target.Row > 3 And Target.Column = 7 ThenUserForm2.ShowSheets("初始化").Range("f2") = ActiveCellElseIf Target.Row > 3 And Target.Column = 8 ThenUserForm3.ShowEnd IfEnd Sub4.右键点击Userform1查看代码 Listbox1 dbclickPrivate Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)ActiveSheet.Cells(ActiveCell.Row, 6) = ListBox1.List(ListBox1.ListIndex, 0)Unload MeEnd SubPrivate Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)ActiveSheet.Cells(ActiveCell.Row, 6) = ListBox1.List(ListBox2.ListIndex, 0)Unload MeEnd SubPrivate Sub ListBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)ActiveSheet.Cells(ActiveCell.Row, 6) = ListBox1.List(ListBox3.ListIndex, 0)Unload MeEnd SubPrivate Sub ListBox4_DblClick(ByVal Cancel As MSForms.ReturnBoolean)ActiveSheet.Cells(ActiveCell.Row, 6) = ListBox1.List(ListBox4.ListIndex, 0)Unload MeEnd SubPrivate Sub ListBox5_DblClick(ByVal Cancel As MSForms.ReturnBoolean)ActiveSheet.Cells(ActiveCell.Row, 6) = ListBox1.List(ListBox5.ListIndex, 0)Unload MeEnd Sub见上图5.插入用户窗体右键点击userform2 worksheet dblclickPrivate Sub ListBox1_DblClick(ByVal Cancel AsMSForms.ReturnBoolean)ActiveSheet.Cells(ActiveCell.Row, 7) = ListBox1.List(ListBox1.ListIndex, 0)Unload MeEnd SubUserform initializePrivate Sub UserForm_Initialize()Application.ScreenUpdating = FalseWith Sheets("初始化")Sheets("科目表").Range("h2:i10000").AdvancedFilterAction:=xlFilterCopy, _CriteriaRange:=.Range("m2:m3"), CopyToRange:=.Range("n2"), Unique:=TrueEnd WithEnd Sub七.单位汇总(sumif),单条件汇总=SUMIF(业务!$D$4:$D$1000,单位汇总!$A15,业务!I$4:I$10000)Sub 单位汇总1()Application.ScreenUpdating = Falserange("a1:i10000").ClearCells(3, 2) = "指标数"Cells(3, 3) = "拨款数"Cells(3, 4) = "余额"Cells(1, 7) = "单位"Cells(3, 7) = "单位"Cells(3, 8) = "指标数"Cells(3, 9) = "拨款数"Sheets("业务").Range("D3:D10000").AdvancedFilterAction:=xlFilterCopy, _CopyToRange:=Range("A3"), Unique:=TrueSheets("业务").Range("A3:J10000").AdvancedFilterAction:=xlFilterCopy, _CriteriaRange:=Range("G1:G2"), CopyToRange:=Range("G3:I3"), Unique:=False Dim i As LongDim irow As Longirow = Range("a3").End(xlDown).RowFor i = 4 To irowCells(i, 2) = Application.WorksheetFunction.SumIf(Range("g4:g10000"), Cells(i, 1), Range("h4:h10000"))Cells(i, 3) = Application.WorksheetFunction.SumIf(Range("g4:g10000"), Cells(i, 1), Range("i4:i10000"))Cells(i, 4) = VBA.Round(Cells(i, 2) - Cells(i, 3), 2)Next iRange("g1:i10000").ClearApplication.ScreenUpdating = TrueEnd Sub八、多条件汇总(连接、sumif)连接=k4&l4&m4&n4Vba:Sub 多条件汇总()Application.ScreenUpdating = FalseRange("a1:p10000").ClearSheets("业务").Range("D3:G10000").AdvancedFilterAction:=xlFilterCopy, _CopyToRange:=Range("B3:E3"), Unique:=True Sheets("业务").Range("D3:I10000").AdvancedFilterAction:=xlFilterCopy, _CopyToRange:=Range("K3:P3"), Unique:=False Dim j As LongDim jrow As Longjrow = Range("k3").End(xlDown).RowFor j = 4 To jrowCells(j, 10) = Cells(j, 11) & Cells(j, 12) & Cells(j, 13) & Cells(j, 14)Next jDim i As LongDim irow As Longirow = Range("b3").End(xlDown).RowFor i = 4 To irowCells(3, 6) = "指标数"Cells(3, 7) = "拨款数"Cells(3, 8) = "余额"Cells(i, 1) = Cells(i, 2) & Cells(i, 3) & Cells(i, 4) & Cells(i, 5)Cells(i, 6) = Application.WorksheetFunction.SumIf(Range("j4:j10000"), Cells(i, 1), Range("o4:o10000"))Cells(i, 7) = Application.WorksheetFunction.SumIf(Range("j4:j10000"), Cells(i, 1), Range("p4:p10000"))Cells(i, 8) = VBA.Round(Cells(i, 6) - Cells(i, 7), 2)Next iRange("i3:p10000").ClearRange("a1:a10000").Delete Application.ScreenUpdating = True End Sub九、多条件汇总、adoSub 多条件汇总()Application.ScreenUpdating = False Dim i As IntegerDim strsql As StringDim cnn As New ADODB.Connection Dim rst As New ADODB.Recordsetcnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Hdr=Yes';Data Source=" & ThisWorkbook.FullNamestrsql = " SELECT 单位,类,款,项, sum(指标数) as 预算股指标,sum(拨款数) as 预算股拨款 from[业务$a3:J10000] where 归口='" & Range("h2").Value & "'and 月<=" & Range("i2").Value & " GROUP BY 单位,类,款,项"rst.Open strsql, cnnFor i = 1 To rst.Fields.CountSheets("多条件汇总").Cells(3, i) = rst.Fields(i - 1).NameNext iSheets("多条件汇总").Range("a4").CopyFromRecordset rstrst.Closecnn.CloseSet rst = NothingSet cnn = NothingEnd Sub 十、对账Sub 预算股()Application.ScreenUpdating = FalseDim i As IntegerDim strsql1 As StringDim cnn1 As New ADODB.ConnectionDim rst1 As New ADODB.Recordsetcnn1.Open"Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Hdr=Yes';Data Source=" & ThisWorkbook.FullNamestrsql1 = " SELECT 单位,类,款,项, sum(指标数) as 预算股指标 from[预算股$a3:m50000] where 归口='" & Range("h2").Value & "'and 月<=" & Range("i2").Value & " GROUP BY 单位,类,款,项" rst1.Open strsql1, cnn1For i = 1 To rst1.Fields.CountSheets("对帐").Cells(3, i + 10) = rst1.Fields(i - 1).NameNext iSheets("对帐").Range("k4").CopyFromRecordset rst1rst1.Closecnn1.CloseSet rst1 = NothingSet cnn1 = NothingDim strsql2 As StringDim cnn2 As New ADODB.ConnectionDim rst2 As New ADODB.Recordsetcnn2.Open"Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Hdr=Yes';Data Source=" & ThisWorkbook.FullNamestrsql2 = " SELECT 单位,类,款,项, sum(指标数) as 专业股指标 from[专业股$a3:j50000] where 归口='" & Range("h2").Value & "'and 月<=" & Range("i2").Value & " GROUP BY 单位,类,款,项"rst2.Open strsql2, cnn2For i = 1 To rst2.Fields.CountSheets("对帐").Cells(3, i + 19) = rst2.Fields(i - 1).NameNext iSheets("对帐").Range("t4").CopyFromRecordset rst2rst2.Closecnn2.CloseSet rst2 = NothingSet cnn2 = Nothings = Application.WorksheetFunction.CountA(Range("k4 :k10000")) + 4Range("T4:W10000").SelectSelection.CopyRange("K" & s).SelectActiveSheet.PasteRange("X4:X10000").SelectSelection.CopyRange("P" & s).SelectActiveSheet.PasteRange("X3").SelectSelection.CopyRange("P3").SelectActiveSheet.PasteDim strsql As StringDim cnn As New ADODB.ConnectionDim rst As New ADODB.Recordsetcnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Hdr=Yes';Data Source=" & ThisWorkbook.FullNamestrsql = " SELECT 单位,类,款,项, sum(预算股指标) as 预算股指标 ,sum(专业股指标) as 专业股指标from[对帐$k3:p50000] GROUP BY 单位,类,款,项" rst.Open strsql, cnnFor i = 1 To rst.Fields.CountSheets("对帐").Cells(3, i) = rst.Fields(i - 1).NameNext iSheets("对帐").Range("a4").CopyFromRecordsetrstrst.Closecnn.CloseSet rst = NothingSet cnn = NothingApplication.ScreenUpdating = True End Sub十一、sql筛选Sub 筛选()Application.ScreenUpdating = False Dim i As IntegerDim strsql As StringDim cnn As New ADODB.ConnectionDim rst As New ADODB.Recordsetcnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Hdr=Yes';Data Source=" & ThisWorkbook.FullNamestrsql = " SELECT distinct 单位,类,款,项 from[专业$a3:h10000]"rst.Open strsql, cnnFor i = 1 To rst.Fields.CountSheets("筛选").Cells(3, i) = rst.Fields(i - 1).NameNext iSheets("筛选").Range("a4").CopyFromRecordset rstrst.Closecnn.CloseSet rst = NothingSet cnn = NothingApplication.ScreenUpdating = TrueEnd Sub十二、sql连接、交叉汇总Sub 连接()Application.ScreenUpdating = FalseDim i As IntegerDim strsql As StringDim cnn As New ADODB.ConnectionDim rst As New ADODB.Recordsetcnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Hdr=Yes';Data Source=" & ThisWorkbook.FullNamestrsql = " SELECT 股,月,归口,单位,类,款,项,指标数 from [专业$a3:h10000] union ALL SELECT 股,月,归口,单位,类,款,项,指标数from [预算$a3:l10000] order by 股 desc"rst.Open strsql, cnnFor i = 1 To rst.Fields.CountSheets("连接").Cells(1, i + 19) = rst.Fields(i - 1).NameNext iSheets("连接").Range("t2").CopyFromRecordset rstrst.Closecnn.CloseSet rst = NothingSet cnn = NothingApplication.ScreenUpdating = TrueEnd SubSub 汇总()Application.ScreenUpdating = FalseCall 连接Dim i As IntegerDim strsql As StringDim cnn As New ADODB.ConnectionDim rst As New ADODB.Recordsetcnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Hdr=Yes';Data Source=" & ThisWorkbook.FullNamestrsql = " transform sum(指标数) SELECT 单位,类,款,项 from [连接$t1:aa10000] where 归口= '" & Range("h2").Value & "' and 月=" & Range("i2").Value & " group by 单位,类,款,项pivot 股"rst.Open strsql, cnnFor i = 1 To rst.Fields.CountSheets("连接").Cells(3, i) = rst.Fields(i - 1).NameNext iSheets("连接").Range("a4").CopyFromRecordset rstrst.Closecnn.CloseSet rst = NothingSet cnn = NothingEnd Sub十三、select语句总结1、筛选(false ---筛选全部)Select 列表名称1,列表名称2,…….列表名称n from [表$区域]或者Select * from [表$区域]2、筛选唯一的数据Select distinct 列表名称1,列表名称2,…….列表名称n from [表$区域]3、分类汇总Select 列表名称1,列表名称2,…….列表名称n,sum(a) as a from [表$区域]Group by列表名称1,列表名称2,…….列表名称n4、条件分类汇总Select 列表名称1,列表名称2,…….列表名称n,sum(a) as a from [表$区域]Where 归口=’”& range(“”).value &”’ and 月=”& range(“”).value &” Group by列表名称1,列表名称2,…….列表名称n5、交叉汇总Transform sum() select 列名称1,……列名称n from[表$区域] group by 列名称1,…..列名称n pivot 交叉事项6、连接Select 列名称1表$区域] unionall Select 列名称1n from[表$区域] order by 列名称 desc十四、报表(有层次)连接Transform sum(指标数),pivot 股按单位、类、款进行汇总按单位、类进行汇总按单位进行汇总连接以上四个表的内容,并按单位、类、款、项进行排序,其中单位按降序排序1、整体写代码Sub 报表()Application.ScreenUpdating = FalseDim i As IntegerDim strsql1 As StringDim cnn1 As New ADODB.ConnectionDim rst1 As New ADODB.Recordsetcnn1.Open"Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Hdr=Yes';Data Source=" & ThisWorkbook.FullNamestrsql1 = " SELECT 股,月,归口,单位,类,款,项,sum(指标数) as 指标数 from[专业$a3:h10000] group by 股,月,归口,单位,类,款,项 union all SELECT 股,月,归口,单位,类,款,项,sum(指标数) as 指标数 from[预算$a3:l10000] group by 股,月,归口,单位,类,款,项 order by 股 desc"rst1.Open strsql1, cnn1For i = 1 To rst1.Fields.CountSheets("报表").Cells(3, i + 9) = rst1.Fields(i - 1).NameNext iSheets("报表").Range("j4").CopyFromRecordset rst1rst1.Closecnn1.CloseSet rst1 = NothingSet cnn1 = NothingDim strsql2 As StringDim cnn2 As New ADODB.ConnectionDim rst2 As New ADODB.Recordsetcnn2.Open"Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Hdr=Yes';Data Source=" & ThisWorkbook.FullNamestrsql2 = "transform sum(指标数) SELECT 单位,类,款,项 from[报表$j3:q10000] where 归口='" & Range("g2") _.Value & "' and 月<=" & Range("h2").Value & "group by 单位,类,款,项 order by 单位 desc pivot 股 "rst2.Open strsql2, cnn2For i = 1 To rst2.Fields.CountSheets("报表").Cells(3, i + 19) = rst2.Fields(i - 1).NameNext iSheets("报表").Range("t4").CopyFromRecordset rst2rst2.Closecnn2.CloseSet rst2 = NothingSet cnn2 = NothingDim strsql3 As StringDim cnn3 As New ADODB.ConnectionDim rst3 As New ADODB.Recordsetcnn3.Open"Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Hdr=Yes';Data Source=" & ThisWorkbook.FullNamestrsql3 = "SELECT 单位,类,款,sum(专业股) as 专业股,sum(预算股) as 预算股 from[报表$t3:y10000] group by 单位,类,款 order by 单位 desc"rst3.Open strsql3, cnn3For i = 1 To rst3.Fields.CountSheets("报表").Cells(3, i + 26) = rst3.Fields(i - 1).NameNext iSheets("报表").Range("aa4").CopyFromRecordset rst3rst3.Closecnn3.CloseSet rst3 = NothingSet cnn3 = NothingDim strsql4 As StringDim cnn4 As New ADODB.ConnectionDim rst4 As New ADODB.Recordsetcnn4.Open"Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Hdr=Yes';Data Source=" & ThisWorkbook.FullNamestrsql4 = "SELECT 单位,类,sum(专业股) as 专业group by 单位,类 order by 单位 desc"rst4.Open strsql4, cnn4For i = 1 To rst4.Fields.CountSheets("报表").Cells(3, i + 32) = rst4.Fields(i - 1).NameNext iSheets("报表").Range("ag4").CopyFromRecordset rst4rst4.Closecnn4.CloseSet rst4 = NothingSet cnn4 = NothingDim strsql5 As StringDim cnn5 As New ADODB.ConnectionDim rst5 As New ADODB.Recordsetcnn5.Open"Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Hdr=Yes';Data Source=" & ThisWorkbook.FullNamestrsql5 = "SELECT 单位,sum(专业股) as 专业group by 单位 order by 单位 desc"rst5.Open strsql5, cnn5For i = 1 To rst5.Fields.CountSheets("报表").Cells(3, i + 37) = rst5.Fields(i - 1).NameNext iSheets("报表").Range("al4").CopyFromRecordset rst5rst5.Closecnn5.CloseSet rst5 = NothingSet cnn5 = NothingColumns("AD:AD").SelectSelection.Insert Shift:=xlToRightRange("ad3") = "项"Columns("Aj:Ak").SelectSelection.Insert Shift:=xlToRightRange("aj3") = "款"Range("ak3") = "项"Columns("Ap:Ar").SelectSelection.Insert Shift:=xlToRightRange("ap3") = "类"Range("aq3") = "款"Range("ar3") = "项"Dim strsql6 As StringDim cnn6 As New ADODB.ConnectionDim rst6 As New ADODB.Recordsetcnn6.Open"Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Hdr=Yes';Data Source=" & ThisWorkbook.FullNamestrsql6 = " SELECT 单位,类,款,项,专业股,预算股from [报表$t3:y10000] union all SELECT 单位,类,款,项,专业股,预算股 from [报表$aa3:af10000] union all SELECT 单位,类,款,项,专业股,预算股from [报表$ah3:am10000] union all SELECT 单位,类,款,项,专业股,预算股 from [报表$ao3:at10000] order by 单位 desc,类,款,项 "rst6.Open strsql6, cnn6For i = 1 To rst6.Fields.CountSheets("报表").Cells(3, i) = rst6.Fields(i - 1).NameNext iSheets("报表").Range("a4").CopyFromRecordset rst6rst6.Closecnn6.CloseSet rst6 = NothingSet cnn6 = NothingRange("j1:au10000").ClearContentsDim p As LongDim prow As Longprow = Range("a3").End(xlDown).RowFor p = 4 To prowRange("g3") = "金额"Cells(p, 7) = VBA.Round(Cells(p, 6) - Cells(p, 5), 2)Next pApplication.ScreenUpdating = TrueEnd Sub2、分开写代码:Sub 连接()Application.ScreenUpdating = FalseDim i As IntegerDim strsql As StringDim cnn As New ADODB.ConnectionDim rst As New ADODB.Recordsetcnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Hdr=Yes';Data Source=" & ThisWorkbook.FullNamestrsql = " SELECT 月,归口,股,单位,类,款,项,sum(指标数) as 指标数 from[专业$a3:h10000] group by 月,归口,股,单位,类,款,项 union all SELECT 月, 归口,股,单位,类,款,项,sum(指标数) as 指标数 from[预算$a3:l10000] group by 月, 归口,股,单位,类,款,项 order by 股 desc"rst.Open strsql, cnnFor i = 1 To rst.Fields.CountSheets("报表").Cells(3, i + 9) = rst.Fields(i - 1).NameNext iSheets("报表").Range("j4").CopyFromRecordset rstrst.Closecnn.CloseSet rst = NothingSet cnn = NothingApplication.ScreenUpdating = TrueEnd SubSub 项()Application.ScreenUpdating = FalseCall 连接Dim i As IntegerDim strsql As StringDim cnn As New ADODB.ConnectionDim rst As New ADODB.Recordsetcnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Hdr=Yes';Data Source=" & ThisWorkbook.FullNamestrsql = "transform sum(指标数) SELECT 单位,类,款,项 from [报表$j3:q10000] where 归口= '" &Range("g2").Value & "' and 月<=" & Range("h2").Value & " group by 单位,类,款,项pivot 股"rst.Open strsql, cnnFor i = 1 To rst.Fields.CountSheets("报表").Cells(3, i + 19) = rst.Fields(i - 1).NameNext iSheets("报表").Range("t4").CopyFromRecordset rstrst.Closecnn.CloseSet rst = NothingSet cnn = NothingApplication.ScreenUpdating = TrueEnd SubSub 款()Application.ScreenUpdating = FalseCall 项Dim i As IntegerDim strsql As StringDim cnn As New ADODB.ConnectionDim rst As New ADODB.Recordsetcnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Hdr=Yes';Data Source=" & ThisWorkbook.FullNamestrsql = " SELECT 单位,类,款, sum(专业股) as 专业股, sum(预算股) as 预算股from [报表$t3:y10000] group by 单位,类,款 "rst.Open strsql, cnnFor i = 1 To rst.Fields.CountSheets("报表").Cells(3, i + 26) = rst.Fields(i - 1).NameNext iSheets("报表").Range("aa4").CopyFromRecordset rstrst.Closecnn.CloseSet rst = NothingSet cnn = NothingColumns("AD:AD").SelectSelection.Insert Shift:=xlToRightCells(3, 30) = "项"Application.ScreenUpdating = TrueEnd SubSub 类()Application.ScreenUpdating = FalseCall 款Dim i As IntegerDim strsql As StringDim cnn As New ADODB.ConnectionDim rst As New ADODB.Recordsetcnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Hdr=Yes';Data Source=" & ThisWorkbook.FullNamestrsql = " SELECT 单位,类, sum(专业股) as 专业股, sum(预算股) as 预算股from [报表$aa3:af10000] group by 单位,类 "rst.Open strsql, cnnFor i = 1 To rst.Fields.CountSheets("报表").Cells(3, i + 33) = rst.Fields(i - 1).NameNext iSheets("报表").Range("ah4").CopyFromRecordset rstrst.Closecnn.CloseSet rst = NothingSet cnn = NothingColumns("AJ:AJ").SelectSelection.Insert Shift:=xlToRightColumns("AK:AK").SelectSelection.Insert Shift:=xlToRightRange("AJ3").SelectActiveCell.FormulaR1C1 = "款"Range("AK3").SelectActiveCell.FormulaR1C1 = "项"Application.ScreenUpdating = TrueEnd SubSub 单位()Application.ScreenUpdating = FalseCall 类Dim i As Integer。
VBA 函数大全
Abs 函数返回参数的绝对值,其类型和参数相同。
语法Abs(number)必要的number参数是任何有效的数值表达式,如果number 包含 Null,则返回Null,如果number 是未初始化的变量,则返回 0。
说明一个数的绝对值是将正负号去掉以后的值。
例如,ABS(-1)和ABS(1)都返回1。
Array 函数返回一个包含数组的 Variant。
语法Array(arglist)所需的arglist参数是一个用逗号隔开的值表,这些值用于给Variant所包含的数组的各元素赋值。
如果不提供参数,则创建一个长度为 0 的数组。
说明用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。
在下面的示例中,第一条语句创建一个Variant 的变量A。
第二条语句将一个数组赋给变量A。
最后一条语句将该数组的第二个元素的值赋给另一个变量。
Dim A As VariantA = Array(10,20,30)B = A(2)使用Array函数创建的数组的下界受Option Base语句指定的下界的决定, 除非Array是由类型库(例如VBA.Array )名称限定。
如果是由类型库名称限定,则Array不受Option Base的影响。
注意没有作为数组声明的Variant 也可以表示数组。
除了长度固定的字符串以及用户定义类型之外,Variant 变量可以表示任何类型的数组。
尽管一个包含数组的Variant 和一个元素为Variant 类型的数组在概念上有所不同,但对数组元素的访问方式是相同的。
Asc 函数返回一个 Integer,代表字符串中首字母的字符代码。
语法Asc(string)必要的string 参数可以是任何有效的字符串表达式。
如果string中没有包含任何字符,则会产生运行时错误。
说明在非 DBCS 系统下,返回值范围为 0 –255 。
在 DBCS 系统下,则为 -32768 –32767。
VBA中常见的函数与方法速查手册
VBA中常见的函数与方法速查手册VBA(Visual Basic for Applications)是一种用于编写Microsoft Office套件中宏和自定义函数的编程语言。
作为Microsoft Office产品的一部分,VBA具有强大的功能和灵活性,可以帮助用户自动化处理数据、生成报表、操作图形等。
在VBA中,函数和方法是最基础且最常用的工具。
本文将为您提供VBA中常见的函数与方法速查手册,以便您熟练运用VBA进行自动化编程。
一、常见的函数1. Msgbox函数Msgbox函数用于在窗口中显示一条消息,并返回一个按键值。
语法:Msgbox(prompt[, buttons] [, title] [, helpfile, context])示例:Msgbox "Hello, World!",vbInformation+vbOKCancel,"提示"2. InputBox函数InputBox函数用于在窗口中显示一个对话框,提示用户输入一个值。
语法:InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])示例:Value = Inputbox("请输入一个数字:")3. Len函数Len函数用于返回字符串的长度。
语法:Len(string)示例:Len("Hello, World!") ' 返回结果为134. Left函数Left函数用于返回字符串左边指定个数的字符。
语法:Left(string, length)示例:Left("Hello, World!", 5) ' 返回结果为"Hello"5. Right函数Right函数用于返回字符串右边指定个数的字符。
语法:Right(string, length)示例:Right("Hello, World!", 6) ' 返回结果为"World!"6. Mid函数Mid函数用于返回字符串中指定位置的字符。
VBA中的函数库及其使用技巧
VBA中的函数库及其使用技巧VBA(Visual Basic for Applications)是一种基于Microsoft的Visual Basic编程语言,用于在MicrosoftOffice应用程序中自定义功能和自动化任务。
VBA不仅提供了一些内置函数,还可以使用函数库来扩展其能力。
在本文中,我们将介绍一些常用的VBA函数库及其使用技巧,以帮助您更高效地编写VBA代码。
一、VBA内置函数VBA内置了许多函数,可以用于处理字符串、日期、数字等各种数据类型。
以下是一些常用的VBA内置函数及其使用技巧:1. 字符串函数:VBA提供了丰富的字符串函数,如Len、Left、Right、Mid等,能够帮助您处理字符串的长度、截取、替换等操作。
2. 数学函数:VBA中的数学函数包括Abs、Max、Min、Round等,可以用于执行数学运算和处理数值数据。
3. 日期和时间函数:VBA提供了一系列日期和时间函数,如Date、Time、Now、Format等,可以用于处理日期和时间类型的数据。
4. 逻辑函数:VBA中的逻辑函数包括If、And、Or、Not等,可以用于执行条件判断和逻辑运算。
5. 数组函数:VBA中的数组函数包括Array、Split、Join等,可以用于创建、拆分和连接数组。
二、常用的VBA函数库除了VBA内置的函数,您还可以使用一些第三方开发的函数库来增强VBA的功能。
以下是一些常用的VBA函数库及其使用技巧:1. Microsoft Excel对象库:VBA与Excel紧密结合,可以使用Excel对象库中的函数和方法来操作Excel工作簿、工作表和单元格。
例如,使用Range函数可以选择某个单元格范围,使用Cells函数可以引用某个单元格。
2. Microsoft Word对象库:如果您需要在VBA中处理Word文档,可以使用Word对象库中的函数和方法。
例如,使用Document对象可以访问文档属性和内容,使用Range对象可以选择文本范围。
vba常用代码大全
前言我们平时在工作表单元格的公式中常常使用函数,Excel自带的常用的函数多达300多个,功能强大,丰富多彩,但是在VBA中不能直接应用,必须在函数名前面加上对象,比如:Application.WorksheetFunction.Sum(arg1,arg2,arg3)。
而能在VBA中直接应用的函数也有几十个,下面将逐一详细介绍常用的40个VBA函数,以供大家学习参考。
第1.1例ASC函数一、题目:要求编写一段代码,运行后得到字符串”Excel”的首字母和”e”的ASCII值。
二、代码:Sub 示例_1_01()Dim myNum1%, myNum2%myNum1 = Asc("Excel") '返回69myNum2 = Asc("e") '返回101[a1] = "myNum1= ": [b1] = myNum1[a2] = "myNum2= ": [b2] = myNum2End Sub三、代码详解1、Sub 示例_1_01():宏程序的开始语句。
2、Dim myNum1%, myNum2%:变量myNum1和myNum2声明为整型变量。
也可以写为Dim myNum1 As Integer 。
Integer 变量存储为16位(2 个字节)的数值形式,其范围为-32,768 到32,767 之间。
Integer 的类型声明字符是百分比符号(%)。
3、myNum1 = Asc("Excel"):把Asc函数的值赋给变量myNum1。
Asc函数返回一个Integer,代表字符串中首字母的字符的ASCII代码。
语法Asc(string)必要的string(字符串)参数可以是任何有效的字符串表达式。
如果string 中没有包含任何字符,则会产生运行时错误。
4、myNum2 = Asc("e"):把Asc函数的值赋给变量myNum2。
VBA函数大全(自己整理的)
Abs函数返回参数的绝对值,其类型和参数相同。
Array函数返回一个包含数组的Variant。
Asc函数返回一个Integer,代表字符串中首字母的字符代码。
Atn函数返回一个Double,指定一个数的反正切值。
CallByName函数执行一个对象的方法,或者设置或返回一个对象的属性。
Choose函数从参数列表中选择并返回一个值。
Chr函数返回String,其中包含有与指定的字符代码相关的字符。
Cos函数返回一个Double,指定一个角的余弦值。
CreateObject函数创建并返回一个对ActiveX对象的引用。
CurDir函数返回一个Variant(String),用来代表当前的路径。
CVErr函数返回Error子类型的Variant,其中包含指定的错误号。
Date函数返回包含系统日期的Variant(Date)。
DateAdd函数返回包含一个日期的Variant(Date),这一日期还加上了一段时间间隔。
DateDiff函数返回Variant(Long)的值,表示两个指定日期间的时间间隔数目。
DatePart函数返回一个包含已知日期的指定时间部分的Variant(Integer)。
DateSerial函数返回包含指定的年、月、日的Variant(Date)。
DateValue函数返回一个Variant(Date)。
Day函数返回一个Variant(Integer),其值为1到31之间的整数,表示一个月中的某一日。
DDB函数返回一个Double,指定一笔资产在一特定期间内的折旧。
可使用双下落收复平衡方法或其它指定的方法进行计算。
Dir函数返回一个String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。
DoEvents函数转让控制权,以便让操作系统处理其它的事件。
Environ函数返回String,它关连于一个操作系统环境变量。
在Macintosh中不可用EOF函数返回一个Integer,它包含Boolean值True,表明已经到达为Random或顺序Input 打开的文件的结尾。
vb常用函数大全和公式
vb常用函数大全和公式以下是一些VBA常用的函数和公式:## 函数### 整型函数- Asc() - 将一个整数转换为字符长整数- Chr() - 将一个字符长整数转换为字符整数- Conv() - 将一个浮点数转换为字符长整数- Dis() - 将一个字符串分解成子字符串- Len() - 返回一个字符串的长度- Num() - 返回一个整数值### 浮点型函数- Asc() - 将一个浮点数转换为字符长整数- Chr() - 将一个浮点数转换为字符整数- Conv() - 将一个浮点数转换为字符长整数- Dis() - 将一个浮点数转换为字符串- Len() - 返回一个浮点数字符串的长度- Num() - 返回一个浮点数的数值### 布尔型函数- IsTrue() - 返回一个布尔值的真假- IsFalse() - 返回一个布尔值的真假- And() - 将两个布尔值合并为一个新的布尔值- Or() - 将两个布尔值合并为一个新的布尔值,如果它们均为假则返回False- Not() - 返回一个布尔值的真假## 公式### 代数公式- + 表示两个数相加- - 表示两个数相减- * 表示两个数相乘- / 表示两个数相除- % 表示两个数的取模### 几何公式- + 表示两个向量相加- - 表示两个向量相减- * 表示两个向量相乘- / 表示两个向量相除- *x 表示向量x乘以另一个向量x- /x 表示向量x除以另一个向量x- sin(angle) 表示向量x在坐标系中沿着方向angle的sin函数值- cos(angle) 表示向量x在坐标系中沿着方向angle的cos函数值- tan(angle) 表示向量x在坐标系中沿着方向angle的tan函数值### 三角函数公式- sin(angle) 表示向量x在坐标系中沿着方向angle的sin函数值- cos(angle) 表示向量x在坐标系中沿着方向angle的cos函数值- tan(angle) 表示向量x在坐标系中沿着方向angle的tan函数值- asin(x) 表示x在实数范围内取sin函数值- acos(x) 表示x在实数范围内取cos函数值- ceil(x) - 向上取整,返回x的最小值-floor(x) - 向下取整,返回x的最大值- log10(x) 表示将x乘以10的指数幂,返回其百分数### 统计学公式- 方差(Standard Deviation) 表示一组数值的平均平方和与标准差的差值- 标准差(Standard Error) 表示一组数值的标准差。
vba统计函数
vba统计函数VBA (Visual Basic for Applications)是一种编程语言,可以在Microsoft Office产品中使用。
VBA可以用于Excel中的公式和函数,允许用户自定义和编写自己的函数,以便更有效地处理数据。
这篇文章将介绍Excel中的一些最常用的VBA函数,以及如何使用这些函数。
1. SUM函数SUM函数是Excel中最基本的函数之一,它用于计算所选单元格的总和。
VBA版本的SUM函数不仅可以计算一列或多列中所有单元格的总和,还可以根据指定条件筛选单元格并计算总和。
以下是VBA的SUM函数语句:Dim sumValue As IntegersumValue =Application.WorksheetFunction.Sum(Range("A1:A100")) 在这个例子中,函数将计算A1到A100单元格的总和并将结果保存在sumValue变量中。
2. COUNT函数COUNT函数是计算所选单元格包含值的数量的函数。
VBA版本的COUNT函数也可以根据特定条件计数单元格。
以下是VBA的COUNT函数语句:Dim countValue As IntegercountValue =Application.WorksheetFunction.CountIf(Range("A1:A100"), "apple")在这个例子中,函数将计算A1到A100单元格中内容为“apple”的单元格数量,并将结果保存在countValue变量中。
3. AVERAGE函数AVERAGE函数用于计算所选单元格的平均值。
VBA版本的AVERAGE 函数也可以根据指定条件计算平均值。
以下是VBA的AVERAGE函数语句:Dim averageValue As IntegeraverageValue =Application.WorksheetFunction.Average(Range("A1:A100")) 在这个例子中,函数将计算A1到A100单元格的平均值并将结果保存在averageValue变量中。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
Abs函数返回参数的绝对值,其类型和参数相同。
Array函数返回一个包含数组的Variant。
Asc函数返回一个Integer,代表字符串中首字母的字符代码。
Atn函数返回一个Double,指定一个数的反正切值。
CallByName函数执行一个对象的方法,或者设置或返回一个对象的属性。
Choose函数从参数列表中选择并返回一个值。
Chr函数返回String,其中包含有与指定的字符代码相关的字符。
Cos函数返回一个Double,指定一个角的余弦值。
CreateObject函数创建并返回一个对ActiveX对象的引用。
CurDir函数返回一个Variant(String),用来代表当前的路径。
CVErr函数返回Error子类型的Variant,其中包含指定的错误号。
Date函数返回包含系统日期的Variant(Date)。
DateAdd函数返回包含一个日期的Variant(Date),这一日期还加上了一段时间间隔。
DateDiff函数返回Variant(Long)的值,表示两个指定日期间的时间间隔数目。
DatePart函数返回一个包含已知日期的指定时间部分的Variant(Integer)。
DateSerial函数返回包含指定的年、月、日的Variant(Date)。
DateValue函数返回一个Variant(Date)。
Day函数返回一个Variant(Integer),其值为1到31之间的整数,表示一个月中的某一日。
DDB函数返回一个Double,指定一笔资产在一特定期间内的折旧。
可使用双下落收复平衡方法或其它指定的方法进行计算。
Dir函数返回一个String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。
DoEvents函数转让控制权,以便让操作系统处理其它的事件。
Environ函数返回String,它关连于一个操作系统环境变量。
在Macintosh中不可用EOF函数返回一个Integer,它包含Boolean值True,表明已经到达为Random或顺序Input打开的文件的结尾。
Error函数返回对应于已知错误号的错误信息。
Exp函数返回Double,指定e(自然对数的底)的某次方。
FileAttr函数返回一个Long,表示使用Open语句所打开文件的文件方FileDateTime函数返回一个Variant(Date),此为一个文件被创建或最后修改后的日期和时间。
Filter函数描述返回一个下标从零开始的数组,该数组包含基于指定筛选条件的一个字符串数组的子集。
FormatCurrency函数描述返回一个货币值格式的表达式,它使用系统控制面板中定义的货币符号FormatDateTime函数描述返回一个日期或时间格式的表达式。
FormatNumber函数描述返回一个数字格式的表达式。
语法FormatPercent函数描述返回一个百分比格式(乘以100)的表达式,后面有%符号。
FreeFile函数返回一个Integer,代表下一个可供Open语句使用的文件号。
FV函数返回一个Double,指定未来的定期定额支付且利率固定的年金。
GetAllSettings函数从Windows注册表或(Macintosh中)应用程序初始化文件中的信息中返回应用程序项目的所有注册表项设置及其相应值(开始是由SaveSetting产生)。
GetAttr函数返回一个Integer,此为一个文件、目录、或文件夹的属性。
GetObject函数返回文件中的ActiveX对象的引用。
Hex函数返回代表十六进制数值的String。
Hour函数返回一个Variant(Integer),其值为0到23之间的整数,表示一天之中的某一钟点。
IIf函数根据表达式的值,来返回两部分中的其中一个。
IMEStatus函数返回一个Integer,用来指定当前MicrosoftWindows的输入法(IME)方式;只对东亚区版本有效。
Input函数返回String,它包含以Input或Binary方式打开的文件中的字符。
InputBox函数在一对话框来中显示提示,等待用户输入正文或按下按钮,并返回包含文本框内容的String。
InStr函数返回Variant(Long),指定一字符串在另一字符串中最先出现的位置。
InStrRev函数描述返回一个字符串在另一个字符串中出现的位置,从字符串的末尾算起。
Int、Fix函数返回参数的整数部分。
IPmt函数返回一个Double,指定在一段时间内对定期定额支付且利率固定的年金所支付的利息值。
IRR函数返回一个Double,指定一系列周期性现金流(支出或收入)的内部利率。
IsArray函数返回Boolean值,指出变量是否为一个数组。
IsDate函数返回Boolean值,指出一个表达式是否可以转换成日期。
IsEmpty函数返回Boolean值,指出变量是否已经初始化。
IsError函数返回Boolean值,指出表达式是否为一个错误值。
IsMissing函数返回Boolean值,指出一个可选的Variant参数是否已经传递给过程。
IsNull函数返回Boolean值,指出表达式是否不包含任何有效数据(Null)。
IsNumeric函数返回Boolean值,指出表达式的运算结果是否为数。
IsObject函数返回Boolean值,指出标识符是否表示对象变量。
LCase函数返回转成小写的String。
Left函数返回Variant(String),其中包含字符串中从左边算起指定数量的字Len函数返回Long,其中包含字符串内字符的数目,或是存储一变量所需的字节数。
Loc函数返回一个Long,在已打开的文件中指定当前读/写位置。
LOF函数返回一个Long,表示用Open语句打开的文件的大小,该大小以字节为单位。
Log函数返回一个Double,指定参数的自然对数值。
LTrim、RTrim与Trim函数返回Variant(String),其中包含指定字符串的拷贝,没有前导空白(LTrim)、尾随空白(RTrim)或前导和尾随空白(Trim)。
MacID函数此函数用在Macintosh上,将长为4个字符的常量转换成被Dir,Kill,Shell,和AppActivate.使用的值。
MacScript函数执行一个脚本并返回由此脚本返回的值,如果脚本有返回值的话Mid函数返回Variant(String),其中包含字符串中指定数量的字符。
Minute函数返回一个Variant(Integer),其值为0到59之间的整数,表示一小时中的某分钟。
MIRR函数返回一个Double,指定一系列修改过的周期性现金流(支出或收入)的内部利率。
Month函数返回一个Variant(Integer),其值为1到12之间的整数,表示一年中的某月。
MonthName函数描述返回一个表示指定月份的字符串。
MsgBox函数在对话框中显示消息,等待用户单击按钮,并返回一个Integer告诉用户单击哪一个按钮。
Now函数返回一个Variant(Date),根据计算机系统设置的日期和时间来指定日期和时间。
语法NPer函数返回一个Double,指定定期定额支付且利率固定的总期数。
NPV函数返回一个Double,指定根据一系列定期的现金流(支付和收入)和贴现率而定的投资净现值。
Oct函数返回Variant(String),代表一数值的八进制值。
Partition函数返回一个Variant(String),指定一个范围,在一系列计算的范围中指定的数字出现在这个范围内。
Pmt函数返回一个Double,指定根据定期定额支付且利率固定的年金支付额。
PPmt函数返回一个Double,指定在定期定额支付且利率固定的年金的指定期间内的本金偿付额。
PV函数返回一个Double指定在未来定期、定额支付且利率固定的年金现值。
QBColor函数返回一个Long,用来表示所对应颜色值的RGB颜色码。
Rate函数返回一个Double,指定每一期的年金利率。
Replace函数描述返回一个字符串,该字符串中指定的子字符串已被替换成另一子字符串,并且替换发生的次数也是指定的。
RGB函数返回一个Long整数,用来表示一个RGB颜色值。
Right函数返回Variant(String),其中包含从字符串右边取出的指定数量的字符。
Rnd函数返回一个包含随机数值的Single。
语法Round函数描述返回一个数值,该数值是按照指定的小数位数进行四舍五入运算的结果。
LTrim、RTrim与Trim函数返回Variant(String),其中包含指定字符串的拷贝,没有前导空白(LTrim)、尾随空白(RTrim)或前导和尾随空白(Trim)。
Second函数返回一个Variant(Integer),其值为0到59之间的整数,表示一分钟之中的某个秒。
Seek函数返回一个Long,在Open语句打开的文件中指定当前的读/写位置。
Sgn函数返回一个Variant(Integer),指出参数的正负号。
Shell函数执行一个可执行文件,返回一个Variant(Double),如果成功的话,代表这个程序的任务ID,若不成功,则会返回0。
Sin函数返回一Double,指定参数的sine(正弦)值。
SLN函数返回一个Double,在一期里指定一项资产的直线折旧。
Sqr函数返回一个Double,指定参数的平方根。
语法Space函数返回特定数目空格的Variant(String)。
Spc函数与Print#语句或Print方法一起使用,对输出进行定位。
Str函数返回代表一数值的Variant(String)。
StrComp函数返回Variant(Integer),为字符串比较的结果。
StrConv函数返回按指定类型转换的Variant(String)。
StrReverse函数描述返回一个字符串,其中一个指定子字符串的字符顺序是反向的。
String函数返回Variant(String),其中包含指定长度重复字符的字符Switch函数计算一组表达式列表的值,然后返回与表达式列表中最先为True的表达式所相关的Variant数值或表达式。
SYD函数返回一个Double,指定某项资产在一指定期间用年数总计法计算的折旧。
Tab函数与Print#语句或Print方法一起使用,对输出进行定位。
Tan函数返回一个Double的值,指定一个角的正切值。
Time函数返回一个指明当前系统时间的Variant(Date)。
Timer函数返回一个Single,代表从午夜开始到现在经过的秒数。
TimeSerial函数返回一个Variant(Date),包含具有具体时、分、秒的时间。