vb中array函数用法

第1篇：vb中array函数用法

EXCEL 中一些函数的用法

一：巧用IF函数，实现Excel表格的条件充填

Excel提供了丰富的函数用于数据处理。除一些常用函数外，IF函数也是一个比较实用的函数。本文以几个应用实例介绍IF函数的使用方法。

一、IF函数的格式及功能说明

1. 函数格式

IF(logical_test，value_if_true，value_if_false) 2. 功能说明

logical_test：叫“逻辑表达式”，是用比较运算符(=，>,<,>=,<=,<>)连接起来的式子。

例如，A10=100就是一个逻辑表达式。其功能描述为：如果单元格A10中的值等于100，则表达式的值为true(逻辑“真”)，否则为false(逻辑“假”)。

value_if_true：是“当为真时的值”。即当“逻辑表达式”的值为“真”时，本函数的结果。

value_if_false：是“当为假时的值”。即是当“逻辑表达式”的值为“假”时，本函数的结果。

例如，函数IF(A10=100，”满分”，”不是满分”)的返回值是：当A10单元格的值等于100，为“满分”;当A10单元格的值不等于100时，为“不是满分”。

显然，对于执行真假值判断，根据逻辑测试的真假值，在某些单元格填写不同的结果的操作，可以使用IF函数。

二、应用实例一

1. 问题

有图1所示登记学生数学成绩的Excel工作表，请根据“数学”成绩，在“是否补考”一栏填写“补考”或“不补考”字样。

图1 数学成绩登记表

2. 操作方法

(1) 选中D2单元格;

(2) 在编辑栏中直接输入

=IF(C2<60,"补考","不补考") 然后按编辑栏中的“√”即可。注意，式中圆括号、小于号、逗号及引号等须使用半角字符。

(3) 对于其它单元格的充填，先选中D2单元格，用鼠标拖动单元格右下角的自动充填句柄向下拖动即可。如图2所示。

图2 自动充填其它单元格

3. 说明

在Excel中输入函数，也可以使用如下方法：

(1) 选中D2单元格;

(2) 点击“常用”工具栏中的粘贴函数按钮“fx”，在弹出的“粘贴函数”对话框中选择IF函数，点击“确定”，弹出图3所示的IF函数功能对话框;

(3) 在对话框的“Logical_test”栏输入“C2<60”，在“value_if_true”栏输入“补考”，在“value_if_false”栏输入“不补考”，然后单击“确定”按钮即可。 图3 IF函数对话框

4.技巧

在本例中，如果在“value_if_false”栏中输入“-”(一个空格)，则不需要补考的同学本单元格将什么都不充填，让人看起来更一目了然。

三、应用实例二

IF函数可以嵌套使用，最多可套七层。即，在value_if_false及value_if_true参数中还可以构造复杂的检测条件。请参阅下面最后下面这个例子。

1. 问题

如图1所示的数学考试成绩登记表，要求按“数学”成绩，在“成绩等级”一栏填写“优秀”、“良好”、“中等”、“及格”或“不及格”字样。即：数学成绩≥90，优秀;≥80，良好;≥70，中等;≥60，及格;否则，不及格。

2. 操作方法

(1) 选中E2单元格;

(2) 在编辑栏中直接输入

=IF(C2>=90,"优秀",IF(C2>=80,"良好",IF(C2>=70,"中等",IF(C2>=60,"及格","不及格")))) 然后按编辑栏中的“√”即可。

(3) 对于其它单元格的充填，再选中D2单元格，用鼠标拖动单元格右下角的自动充填句柄向下拖动即可。如图4所示。

图4 自动充填成绩等级

3. 说明

(1) 在编辑栏中输入多重圆括号时，以不同颜色显示不同层的圆括号，以便于识别。

(2) 在选中D2单元格后，也可以在编辑栏中输入

=IF(C2<60,"不及格",IF(C2<70,"及格",IF(C2<80,"中等",IF(C2<90,"良好","优秀"))))，

然后按编辑栏中的“√”按钮。

此处IF函数应用实例是在value_if_false中嵌入IF函数子句，也可以在value_if_true中嵌入IF函数子句，例如上述函数可改成：

=IF(C2>=60,IF(C2>=70,IF(C2>=80,IF(C2>=90,"优秀","良好"),"中等"),"及格"),"不及格") 其结果是一样的。

四、应用实例三

在IF函数中，value_if_false及value_if_true参数也可以是数学表达式。

1. 问题

为鼓励购买，某商场规定：凡一次性购买商品超过100元的，超出部分优惠30%;超过200元的，超出部分优惠40%;超过300元的，超出部分优惠50%。

现有顾客购买商品情况如图5所示，要求计算实际应付金额。

图5 顾客购买商品情况登记表

2. 操作方法

(1) 选中D2单元格;

(2) 在编辑栏中直接输入

=IF(C2<=100,C2,IF(C2<=200,100+(C2-100)*0.7,IF(C2<=300,170+(C2-200)*0.6,230+(C2-300)*50%))) 然后按编辑栏中的“√”即可。

(3) 对于其它单元格的充填，再选中D2单元格，用鼠标拖动单元格右下角的自动充填句柄向下拖动即可。如图6所示。

图6 自动充填实际应付金额

五、结束语

EXCEL 2000含有许多功能丰富的函数。利用好这些函数会给我们的日常事务处理带来极大的方便。本文介绍的IF函数，适应于：

(1) 根据某单元格中的数据，在其它单元格中有选择地填写不同结果的“字符”数据;

(2) 根据某单元格中的数据，选择不同的计算公式，并把计算结果填写到指定单元格中;

无论是选择字符，还是选择公式，IF函数都能在value_if_false及value_if_true中再构造IF子句，最多可嵌套7层。

这样，对于类似于“符合甲条件，则按甲公式计算;符合乙条件，则按乙公式计算;符合丙条件，则按丙公式计算;……”的问题，用IF函数能很好地解决。

二：VLOOKUP的用法举例

问题：如下图，已知表sheet1中的数据如下，如何在数据表二 sheet2 中如下引用：当学号随机出现的时候，如何在B列显示其对应的物理成绩?

首先我们介绍下使用的函数 vlookup 的几个参数，vlookup是判断引用数据的函数，它总共有四个参数，依次是：

1、判断的条件

2、跟踪数据的区域

3、返回第几列的数据

4、是否精确匹配 根据问题的需求，这个公式应该是：

=vlookup(a2,sheet1!$a$2:$f$100,6,true) 详细说明一下在此vlookup函数例子中各个参数的使用说明：

1、a2 是判断的掉条件，也就是说如果sheet2表中a列对应的数据和sheet1表中的数据相同方能引用;

2、sheet1!$a$2:$f$100 是数据跟踪的区域，因为需要引用的数据在f列，所以跟踪的区域至少在f列，$是绝对引用

3、6 这是返回什么数的列数，如上图的物理是第6列，所以应该是6，如果要求英语的数值，那么此处应该是5

4、是否绝对引用，如果是就输入 true 如果是近似即可满足条件 那么输入false (近似值主要用于带小数点的财务、运算等)

5、vlookup是垂直方向的判断，如果是水平方向的判断可使用Hlookup函数 结果如下图：

三：如何使用Excel 进行 专业图表制作

首先做图表，必须得有数据，创建你获得的数据，或者导入数据是你制作表格的第一步

例如：1.首先创建这样一个表格数据2.通过 “插入 来选择你需要的是柱形图 还是 饼图 或者其他图形

3.然后 右击 出现的空白地区，出现下拉列表，“选择数据”。在出现浮窗的时候 再图表数据区域会是空的

这个时候在excel里面框出你需要的数据源就可以了 它自动会生成你的图形和数据 如果需要修改也可以通过右击 改变坐标格式 来实现横竖坐标的数据，文字等信息的自我设定。 4.对于你已经绘制后的图形，你不满意，想不改变数据 变成其他的图形图 可以通过“设计”-》“更改图表类型”来实现更改。 结果很简单：

5，如果还需要加入附和的变化信息： 例如：

财季 Q1 Q2 Q3 Q4 利润 ￥323,300.00 ￥456,600.00 ￥428,790.00 ￥453,910.00

折扣率 21.56% 15.88% 17.23% 13.16% 前面操作如上， 到绘制后你会发现 折扣率在下方是个小矩形 选中矩形地方右击 选择“设置数据系列格式”勾中次坐标轴下方会变为红色矩阵覆盖，也不好看，继续右击选择“更改图标类型” 选择个 折线图 就看起来很美观 也能体现变化了。

二、 实现比较矩形图

项目 通信费 交际费 交通费 办公费 水电费 培训费 上期 181 156 143 151 101 181 本期 122 121 143 185 166 127 1. 先把数据表格重新整理下 形成对比数据的表格

然后重复1-4步骤。这时只需要选中 增加/减少/本期当中 当中的1个“更改图形类型”为指定的就可以实现对比图形了，另外如果你需要这些对比的数据能在图上明显的表示出来 请直接右击-》添加数据标签 就可以实现了

先这么多吧，还有很多收集完了，再补充~嘿嘿

第2篇：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。

Description 属性 返回或者设置说明某个错误的字符串。 Dictionary 对象 存储数据键、项目对的对象。 Dim 语句 声明变量并分配存储空间。

除法运算符 (/) 两数相除并以浮点数格式返回商。

Do...Loop 语句 当条件为 True 或者当条件变为 True 时，重复一语句块。 Empty 表示尚未初始化的变量值。 Eqv 运算符 使两个表达式相等。

Erase 语句 重新初始化固定数组的元素并重新分配动态数组的存储空间。 Err 对象 含有关于运行时错误的信息。 Eval 函数 计算并返回表达式的值。

Execute 方法 根据指定的字符串，执行正则表达式的搜索。 Execute 语句 执行单个或更多的指定语句。

Exit 语句 退出 Do...Loop、For...Next、 Function 或 Sub 代码块。

Exp 函数 返回 e (自然对数的底)的多少次方。 自乘运算符 (^) 指数函数，幂为自变量。 False 关键字，其值为零。 FileSystemObject 对象 提供对计算机文件系统的访问。

Filter 函数 根据指定的筛选条件,返回含有字符串数组子集的、下限为 0 的数组。 FirstIndex 属性 返回字符串匹配的位置。 Fix 函数 返回数的整数部分。

For...Next 语句 以指定的次数重复一组语句。

For Each...Next 语句 对于数组或集合中的每一个元素，重复一组语句。

FormatCurrency 函数 返回的表达式为货币值格式，其货币符号采用系统控制面板中定义的。 FormatDateTime 函数 返回格式化为日期或时间的表达式。 FormatNumber 函数 返回格式化为数的表达式。

FormatPercent 函数 返回格式化为百分比(乘以 100)的表达式，以 % 符号结尾。 Function 语句 声明形成 Function 过程体的名称、参数和代码。 GetObject 函数 从文件返回对“自动”对象的访问。 GetRef 函数 返回对可以绑定到事件的过程的引用。 Global 属性 设置或返回 Boolean 值。

Hex 函数 返回表示数的十六进制值的字符串。

HelpContext 属性 设置或返回帮助文件中某主题的上下文 ID。 HelpFile 属性 设置或返回帮助文件的全路径。 Hour 函数 返回小时数，取值范围为 0 至 23。

If...Then...Else 语句 根据表达式的值，有条件地执行一组语句。

IgnoreCase 属性 设置或返回 Boolean 值，指示模式搜索是否区分大小写。 Imp 运算符 执行两个表达式的逻辑隐含。 初始化事件

发生在创建相关类的实例时。

InputBox 函数 在对话框中显示提示，等待用户输入文本或者单击按钮，并返回文本框的内容。 InStr 函数 返回一个字符串在另一个字符串中第一次出现的位置。

InStrRev 函数 返回一个字符串在另一个字符串中出现的位置，是从字符串的末尾算起。 Int 函数 返回数的整数部分。

整数除法运算符() 两数相除，返回的商取其整数部分。 Is 运算符 比较两个对象引用变量。

IsArray 函数 返回 Boolean 值，表示变量是否为数组。

IsDate 函数 返回 Boolean 值，表示表达式是否可以转换为日期。 IsEmpty 函数 返回 Boolean 值，表示变量是否已被初始化。

IsNull 函数 返回 Boolean 值，表示表达式是否含有无效数据 (Null)。

IsNumeric 函数 返回 Boolean 值，表示表达式能否当作一个数，用来计算。 IsObject 函数 返回 Boolean 值，表示表达式是否引用了有效的“自动”对象。 Join 函数 返回连接许多包含在一个数组中的子串而创建的字符串。 LBound 函数 对于指示的数组维数，返回最小的可用下标。 LCase 函数 返回已被转换为小写字母的字符串。 Left 函数 返回字符串最左边的指定数量的字符。

Len 函数 返回字符串中的字符数量，或者存储变量所需的字节数。 Length 属性 返回在搜索字符串中匹配的长度。

LoadPicture 函数 返回图片对象。仅用于 32 位平台。 Log 函数 返回数的自然对数。

LTrim 函数 返回去掉前导空格的字符串副本。

Match 对象 提供访问匹配正则表达式的只读属性。 Matches 集合 正则表达式匹配对象的集合。 Mid 函数 从字符串中返回指定数量的字符。

Minute 函数 返回小时内的分钟数，取值范围为 0 至 59。 杂项常数 不能纳入任何其他类的常数列表。 Mod 运算符 两数相除，只返回余数。

Month 函数 返回月份，取值范围为 1 至 12。 MonthName 函数 返回表示月份的字符串。

MsgBox 常数 与MsgBox 函数一起使用的常数列表。

MsgBox 函数在对话框中显示消息，等待用户单击按钮，并返回表示用户所击按钮的数值。

乘法运算符 (*) 两数相乘。

取反运算符 (-) 表示数值表达式的相反数。 Not 运算符执行表达式的逻辑“非”运算。

Now 函数 返回当前计算机的系统日期和时间。

Nothing 使对象变量与所有实际的对象没有任何关联。 Null 表示变量含有无效的数据。

Number 属性 返回或设置代表某个错误的数值。 Oct 函数 返回表示一数的八进制值的字符串。 On Error 语句 启用错误处理。

运算符的优先级 表示各种 VBScript 运算符的优先顺序的列表。 Option Explicit 语句 强制显式声明脚本中的所有变量。 Or 运算符 执行两个表达式的逻辑“或”运算。

Pattern 属性 设置或返回正被搜索的正则表达式的模式。 Private 语句 声明私有变量并分配存储空间。

PropertyGet 语句 声明在窗体属性过程中获取(返回)属性值的名称，参数和代码。 PropertyLet 语句 声明在窗体属性过程中指定属性值的名称，参数和代码。 PropertySet 语句 声明在窗体属性过程中设置引用到对象的名称，参数和代码。 Public 语句 声明公有变量并分配存储空间。 Raise 方法 产生运行时错误。

Randomize 语句 初始化随机数发生器。

ReDim 语句 声明动态数组变量，并分配或重新分配过程级的存储空间。 RegExp 对象 提供简单正则表达式的支持。 Rem 语句 包含程序中的注释。

Replace 函数 返回一个字符串，其中某个指定的子串被另一个子串替换，替换的次数也有规定。 Replace 方法 替换在正则表达式搜索中已发现的正文。 RGB 函数 返回表示 RGB 颜色值的数。

Right 函数 返回字符串最右边的指定数量的字符。 Rnd 函数 返回一随机数。

Round 函数 返回指定位数、四舍五入的数。 RTrim 函数 返回去掉尾部空格的字符串副本。

ScriptEngine 函数 返回表示正在使用中的脚本语言的字符串。

ScriptEngineBuildVersion 函数 返回使用中的脚本引擎的编译版本号。 ScriptEngineMajorVersion 函数 返回使用中的脚本引擎的主版本号。 ScriptEngineMinorVersion 函数返回使用中的脚本引擎的次版本号。

Second 函数 返回时间的秒数，取值范围为 0 至 59。

Select Case 语句 根据表达式的值，在若干组语句中选择一组执行。 Set 语句 将对象引用赋予变量或属性。 Sgn 函数 返回表示数的符号的整数。 Sin 函数 返回角度的正弦值。

Source 属性 返回最早出错的对象或应用程序的名称。 Space 函数 返回由指定数量的空格组成的字符串。

Split 函数 返回下限为 0 的、由指定数量的子串组成的一维数组。 Sqr 函数 返回数的平方根。

StrComp 函数 返回反映字符串比较结果的值。 字符串常数 字符串常数的列表。

String 函数 返回重复的字符串，达到指定的长度。

StrReverse 函数 返回一字符串，其中字符的顺序与指定的字符串中的顺序相反。 Sub 语句 声明形成 Sub 过程体的名称、参数和代码。

减法运算符 (-) 求两数之差，或表示某数值表达式的相反数。 Tan 函数 返回角度的正切值。 终结事件

发生在相关类的实例终结之时。

Test 方法 根据指定的字符串，执行正则表达式的搜索。 Time 函数 返回反映当前系统时间的日期子类型的变体。 Timer 函数 返回时经子夜 12:00 AM 后的秒数。

TimeSerial 函数 返回含有指定时分秒时间的日期子类型的变体。 TimeValue 函数 返回含有时间的日期子类型的变体。 Trim 函数 返回去掉前导空格或末尾空格的字符串副本。 三态常数 在代码中使用，以便表示每个显示的值。 True 其值为 -1 的关键字。

TypeName 函数 返回一字符串，它提供了关于变量的变体子类型信息。 UBound 函数 返回指定维数数组的最大有效下标。 UCase 函数 返回的字符串已经被转换为大写字母。

Value 属性 返回在搜索字符串中已发现匹配的值或正文。 VarType 常数 定义变体子类型的常数列表。 VarType 函数 返回标识变体子类型的数值。

VBScript 常数 在 VBScript 中提供不同种类的常数。 Weekday 函数 返回表示星期几的数值。

WeekdayName 函数 返回表示星期几的字符串。

While...Wend 语句 只要给定的条件为 True，便执行一串语句。 With 语句 对单个的对象执行一串语句。

Xor 运算符 执行两个表达式的逻辑“异或”运算。 Year 函数返回表示年份的数值。

VB中整除运算符 与取整函数 INT 性质不同。一个是运算符，一个是函数。 整除，顾名思义，有除法在里面，而取整只是删除零头而已。 但它们在某种情况下可以相互替换，如： 32=Int(3/2) Int(10.11)=10.111

第3篇：VB循环语句的用法

1.While...Wend 语句

只要指定的条件为 True，则会重复执行一系列的语句。 语法

While condition [statements] .. Wend 2.Do...Loop 2.1 第一种用法

用 Do 循环重复执行一语句块，且重复次数不定。Do...Loop 语句有几种演变形式，但每种都计算数值条件以决定是否继续执行。如同 If...Then condition 必须是一个数值或者值为 True(非零)或 False(零)的表达式。

在下面的 Do...Loop 循环中，只要 condition 为 True 就执行 statements。

Do While condition statements .. Loop 2.2 第二种用法

Do...Loop 语句的另一种演变形式是先执行语句，然后在每次执行后测试 condition。这种形式保证 statements 至少执行一次：

Do statements Loop While condition 注:其它两种演变形式类似于前两个，所不同的是，只要 condition 为 False 而不是 True，它们就执行循环。 循环零次或多次

Do Until condition statements Loop

至少循环一次

Do statements Loop Until condition 3.For...Next 在不知道循环内需要执行多少次语句时，宜用 Do 循环。但是，在知道要执行多少次时，则最好使用 For...Next 循环。与 Do 循环不同， For 循环使用一个叫做计数器的变量，每重复一次循环之后，计数器变量的值就会增加或者减少。For 循环的语法如下：

For counter = start To end [Step increment] statements Next [counter] 参数 Counter、Start、end 和 increment 都是数值型的。

注意 increment 参数可正可负。如果 increment 为正，则 Start 必须小于等于 end，否则不能执行循环内的语句。如果 increment 为负，则 Start 必须大于等于 end，这样才能执行循环体。如果没有设置 Step，则 increment 缺省值为 1。 实例：

以下代码打印出所有有效的屏幕字体名：

Private Sub Form_Click () Dim I As Integer For i = 0 To Screen.FontCount

Print Screen.Fonts (i) Next End Sub 4.For Each...Next For Each...Next 循环与 For...Next 循环类似，但它对数组或对象集合中的每一个元素重复一组语句，而不是重复语句一定的次数。如果不知道一个集合有多少元素， For Each...Next 循环非常有用。

For Each...Next 循环的语法如下：

For Each element In group statements Next elementt 例如，下面的子过程打开 Biblio.mdb，把每一个表的名字加到列表框中。

Sub ListTableDefs () Dim objDb As Database

Dim MyTableDef as TableDef Set objDb = OpenDatabase("c:vbiblio.mdb", _ True, False) For Each MyTableDef In objDb.TableDefs ()

List1.AddItem MyTableDef.Name Next MyTableDef End Sub 请记住使用 For Each...Next 时的几点限制：

对集合，element 只能是 Variant 变量，或一般的 Object 变量，或“对象浏览器”中列出的对象。

对数组，element 只能是 Variant 变量。

For Each...Next 不能与用户自定义类型的数组一起使用，因为 Variant 不可能包含用户自定义类型。