VBA函数精选之十六（IIF 函数）

蓝桥玄霜

第1.16例 IIF函数
一、题目：
　　要求编写一段代码，运用IIF函数根据判断条件返回结果。
二、代码：
     Sub 示例_1_16()
         Dim Cheshi As String, dx As Integer
         dx = 560
         Cheshi = IIF(dx > 1000, "大", "小")
         MsgBox dx & " 比1000要" & Cheshi & " " & Abs(1000 - dx)
     End Sub
三、代码详解
1、Sub 示例_1_16()：宏程序的开始语句。宏名为示例_1_16。
2、Dim Cheshi As String, dx As Integer    ：变量Cheshi声明为字符串数据类型，dx声明为整型。
3、dx= 560  ：把数字560赋给变量dx。
4、Cheshi = IIF(dx > 1000, "大", "小")  ：
根据变量dx是否大于1000的条件来判断，并且把返回的结果赋给变量Cheshi。
5、MsgBox  dx & " 比1000要" & Cheshi & " " & Abs(1000 - dx) ：
利用MsgBox函数显示最后的结果。其中Abs函数是取表达式的绝对值函数。

IIF 函数
根据表达式的值，来返回两部分中的其中一个。
IIF(expr, truepart, falsepart)
IIF 函数的语法含有下面这些命名参数：
expr        必要参数。用来判断真伪的表达式。
truepart        必要参数。如果 expr 为 True，则返回这部分的值或表达式。
falsepart        必要参数。如果 expr 为 False，则返回这部分的值或表达式。


VBA函数精选之十五（Hour 函数）：http://club.excelhome.net/viewth ... e%3D1&frombbs=1

龙城飞将III

赞蓝神，第16个函数学习完毕，mark一下！

zongyj

学习，简单实用！！

sunny_8848

系统学习函数，多谢分享

gwjkkkkk

学习了。。。

tony_rico

大赞蓝老师的精选函数教材, 获益良多, 感谢好人一生平安 !