VBA常用函数

Access

VBA中常用函数（认真对待）

（1）表达式中的函数—数值函数

注意区别int 、fix、cint 对数字处理的结果

（2）表达式中的函数—字符函数

Access

函数符举例说明：

1、SPACE(4)=” ”四个空格

2、STRING(4,”abcd”)=”aaaa”

3、LEFT(2,”abcd”)=”ab”、RIGHT(2,”abcd”)=”cd”、MID(”abcd”,2,2)=”bc”

4、LEN(”abcd”)=4、LEN(””)=0、LEN(null)=null

5、LTRIM(“ ab ”)= “ab ”、RTRIM(“ ab ”)= “ ab”、TRIM(“ ab ”)= “ab”

6、Chr(65)=A，Chr(97)=a

7、Asc("A")=65，Asc("Apple")=65

8、Str(459)=" 459"在459 前面有一个空格，

Str(-459.65)="-459.65"

（4）日期时间函数

Access

函数符举例说明：

1、DAY(#2010-3-9#)=9、MONTH(#2010-3-9#)=3、YEAR(#2010-3-9#)=2010

2、WEE

常用VBA函数精选

By 蓝桥玄霜

目录

前言

第1.1例 ASC函数 第1.2例 Chr函数 第1.3例 Choose函数 第1.4例 Cos函数 第1.5例 Date函数 第1.6例 DateAdd函数 第1.7例 DateDiff函数 第1.8例 DatePart函数 第1.9例 DateSerial函数 第1.10例 DateValue函数 第1.11例 Day函数 第1.12例 Dir函数 第1.13例 Fix函数 第1.14例 Format函数 第1.15例 Hour函数 第1.16例 IIF函数

第1.17例 InputBox函数 第1.18例 Instr函数 第1.19例 InstrRev函数 第1.20例 IsArray函数 第1.21例 IsNumeric函数 第1.22例 Join函数

第1.23例 LBound 和UBound 函数 第1.24例 LCase和UCase 函数 第1.25例 Left 和 Right 函数 第1.26例 Len 函数

第1.27例 LTrim、RTrim与 Trim 函数 第1.28例 Mid 函数

第1.29例 Month 和 MonthName函数 第1.30例 MsgBox 函数

VBA常用技巧代码解析

VBA常用技巧

目录

VBA常用技巧 ................................................................................................................................... 1

第9章 函数的使用 ........................................................................................................... 2

技巧1 调用工作表函数求和 ....................................................................................... 2 技巧2 查找最大、最小值 ........................................................................................... 2 技

Excel VBA之CreateObject 函数 先看一下下面的句子，体会一哈：

Set d = CreateObject(\建立字典对象变量d Set xlApp = CreateObject(\建立Excel对象变量xlApp Set fso = CreateObject(\建立文件系统对象变量fso

CreateObject 函数创建并返回一个对 ActiveX 对象的引用。 语法

CreateObject(class,[servername]) CreateObject函数的语法有如下部分：

部分 描述 必需的；Variant（字符串）。提供该对象的应用程序名。 必需的；Variant（字符串）。待创建对象的类型或类。 appname objecttype class参数使用 appname.objecttype这种语法，包括以下部分：

部分 描述 必需的；Variant（字符串）。提供该对象的应用程序名。 必需的；Variant（字符串）。待创建对象的类型或类。 appname objecttype 说明

每个支持自动化的应用程序都至少提供一种对象类型。例如，一个字处理应用程序能会提供 Application对象，Documen

前言

我们平时在工作表单元格的公式中常常使用函数，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") '返回69

myNum2 = Asc("e") '返回101

[a1] = "myNum1= ": [b1] = myNum1

[a2] = "myNum2= ": [b2] = myNum2

End Sub

三、代码详解

1、Sub 示例_1_01()：宏程序的开始语句。

2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。

14

也可以写为 Dim myNum1 As Integer 。Integer 变量存储为 16位（

Excel VBA编程 数组函数

在程序中，根据实际情况，需要判断某个变量是否为数组，或者数组的下标范围，可以使用系统提供的函数来进行这些操作。下面分别介绍这些函数。 1．检测数组下标

利用Lbound与Ubound函数，可以返回指定数组中的最小或最大下标，即数组中的最小值和最大值。

格式：Lbound/Ubound(<数组名>[,<数组维序号>]) 函数值为数组某维的下界(Lbound)或上界(Ubound)，类型为Long，其中数组维序号为可选项，表示数组的指定维号，默认为1。

例如，显示数组中的数组元素，如图5-14所示。

显示

图5-14 显示的结果 其代码如下： Sub 显示数组()

Dim A(-1 To 50, 10 To 30, -13 To 4, -5 To 15)

'显示最小下标

Debug.Print \第一维数组最小下标：\ Debug.Print \第二维数组最小下标：\ Debug.Print \第三维数组最小下标：\ Debug.Print \第四维数组最小下标：\ '显示最大下标

Debug.Print \第一维数组最大下标：\ Debug.Print \第二维数组最大下标：\

Excel VBA之CreateObject 函数 先看一下下面的句子，体会一哈：

Set d = CreateObject(\建立字典对象变量d Set xlApp = CreateObject(\建立Excel对象变量xlApp Set fso = CreateObject(\建立文件系统对象变量fso

CreateObject 函数创建并返回一个对 ActiveX 对象的引用。 语法

CreateObject(class,[servername]) CreateObject函数的语法有如下部分：

部分 描述 必需的；Variant（字符串）。提供该对象的应用程序名。 必需的；Variant（字符串）。待创建对象的类型或类。 appname objecttype class参数使用 appname.objecttype这种语法，包括以下部分：

部分 描述 必需的；Variant（字符串）。提供该对象的应用程序名。 必需的；Variant（字符串）。待创建对象的类型或类。 appname objecttype 说明

每个支持自动化的应用程序都至少提供一种对象类型。例如，一个字处理应用程序能会提供 Application对象，Documen

Excel VBA之CreateObject 函数 先看一下下面的句子，体会一哈：

Set d = CreateObject(\建立字典对象变量d Set xlApp = CreateObject(\建立Excel对象变量xlApp Set fso = CreateObject(\建立文件系统对象变量fso

CreateObject 函数创建并返回一个对 ActiveX 对象的引用。 语法

CreateObject(class,[servername]) CreateObject函数的语法有如下部分：

部分 描述 必需的；Variant（字符串）。提供该对象的应用程序名。 必需的；Variant（字符串）。待创建对象的类型或类。 appname objecttype class参数使用 appname.objecttype这种语法，包括以下部分：

部分 描述 必需的；Variant（字符串）。提供该对象的应用程序名。 必需的；Variant（字符串）。待创建对象的类型或类。 appname objecttype 说明

每个支持自动化的应用程序都至少提供一种对象类型。例如，一个字处理应用程序能会提供 Application对象，Documen

1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13.

删除重复行 ....................................................................................................................................................... 1 ActiveX控件的相关操作 ................................................................................................................................. 2 单元格内容匹配 ............................................................................................................................................... 2 单元格填充公式 ................

用过VB的人都应该知道如何声明变量，在VBA中声明变量和VB中是完全一样的！

使用Dim语句

Dim a as integer '声明a为整型变量 Dim a '声明a为变体变量

Dim a as string '声明a为字符串变量

Dim a as currency ,b as currency ,c as currency '声明a,b,c为货币变量 ......

声 明变量可以是：Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（当前不支持）、 Date、String（只限变长字符串）、String * length（定长字符串）、Object、Variant、用户定义类型或对象类型。

强制声明变量 Option Explicit

说明：该语句必在任何过程之前出现在模块中。

声明常数 用来代替文字值。 Const

' 常数的默认状态是 Private。 Const My = 456

' 声明 Public 常数。

Public Const MyString = \

' 声明 Private Integer 常数。 Private Const MyInt As Integer