前面的章节中我们讲过条件判断语句,IF ELSE 语句,在工作表中遇到条件判断的时候,我们也经常用到if函数,今天看下在VBA中条件判断的一个函数,iff,比工作表中的函数if多了一个f。 还是前面章节中的例子: 如果D3单元格中的数字大于等于60,B4单元格中显示及格,否则显示不及格。 用IF ELSE写,代码如下: Sub 判断() If Range('D3') >= 60 Then Range('D4').Value = '及格' Else Range('D4').Value = '不及格' End If End Sub 如果用VBA中的函数IFF来写的话如下: Sub 条件判断() Range('D4') = VBA.IIf(Range('D3') >= 60, '及格', '不及格') End Sub 多条件的判断 举例: 如果A1单元格中的数字大于等于85,B1单元格中显示优秀,若大于等于60,B1中显示良好,小于60,显示差。 IF ELSE语句: Sub 多重判断1() If Range('A1') >= 85 Then Range('b1').Value = '优秀' ElseIf Range('A1') >= 60 Then Range('b1').Value = '良好' ElseIf Range('A1') < 60 Then Range('b1').Value = '差' End If End Sub 用VBA函数IFF来写: Sub 多条件判断() Range('D4') = IIf(Range('D3') >= 85, '优秀', IIf(Range('D3') >= 60, '良好', '差')) End Sub 相比较而言,如果熟悉VBA中的函数的话,某些情况下的判断用函数还是更加简单。另外在书写VBA 函数时如果已经清楚这个函数了,函数前面可以不用在写“VBA.“了。 今天的分享就到这里。祝大家元旦快了,2018年能有更多的收获! 视频教程正在陆续录制中,需要的同学可以加我微信号:527240310,付费的,非诚勿扰! |
|
来自: L罗乐 > 《VBA基础入门教程》