ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: 香川群子

[分享] If …… Then 条件判断语句 的科普帖

  [复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-8-19 09:33 | 显示全部楼层
本帖已被收录到知识树中,索引项:数据类型和基本语句
缔造者 发表于 2014-8-19 08:16
在“分解或等效”中请再举个And和Or并存的例子。谢谢!

好吧。

那就以a、b、c三个条件判断,然后分歧判断 Do1、Do2来举例说明:

…………

首先,a、b、c三个条件,加上And、Or 两种逻辑运算符,
一共有4类6种组合结果:
序号逻辑表达式习惯表达式
1If a + b + c ThenIf a Or b Or c Then
2If a * b * c ThenIf a And b And c Then
3If a + b * c ThenIf a Or b And c Then
3-1If a + (b * c) ThenIf a Or (b And c) Then
3-2If (a + b) * c ThenIf (a Or b) And c Then
4If a * b + c ThenIf a And b Or c Then
4-1If (a * b) + c ThenIf (a And b) Or c Then
4-2If a * (b + c) ThenIf a And (b Or c) Then

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-8-19 09:40 | 显示全部楼层
本帖最后由 香川群子 于 2014-8-19 09:50 编辑

下面分别进行分析:

  1. Sub test1()

  2.     '实际常用简化表达式        
  3.     If a Or b Or c Then Do1 Else Do2

  4.     '逻辑等效于
  5.     If a + b + c Then Do1 Else Do2

  6.    
  7.     'If 结构精确分解
  8.     If a Then
  9.         Do1
  10.     Else
  11.         If b Then
  12.             Do1
  13.         Else
  14.             If c Then
  15.                 Do1
  16.             Else
  17.                 Do2
  18.             End If
  19.         End If
  20.     End If
  21.             
  22.     '横式一句式写法
  23.     If a Then Do1 Else If b Then Do1 Else If c Then Do1 Else Do2
  24.    
  25. End Sub
复制代码
由于 or 相当于 + 运算,所以满足【加法交换律】
a、b、c 三个条件位置可以互换。(不需要使用括号强调优先顺序)


有心的朋友可以发现,
按此句式,得到Do1结果(整体True判断)的概率、要远远大于得到Do2结果(整体False判断)的概率。



TA的精华主题

TA的得分主题

 楼主| 发表于 2014-8-19 09:47 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 香川群子 于 2014-8-19 09:51 编辑
  1. Sub test2()

  2.     '实际常用简化表达式  
  3.     If a And b And c Then Do1 Else Do2

  4.     '逻辑等效于
  5.     If a * b * c Then Do1 Else Do2

  6.     'If 结构精确分解
  7.     If a Then
  8.         If b Then
  9.             If c Then
  10.                 Do1
  11.             Else
  12.                 Do2
  13.             End If
  14.         Else
  15.             Do2
  16.         End If
  17.     Else
  18.         Do2
  19.     End If
  20.    
  21.     '横式一句式写法        
  22.     If a Then If b Then If c Then Do1 Else Do2 Else Do2 Else Do2
  23.    
  24. End Sub
复制代码
由于 And 相当于 * 运算,所以满足【乘法交换律】
a、b、c 三个条件位置可以互换。(不需要使用括号强调优先顺序)


有心的朋友可以发现,
按此句式,得到Do1结果(整体True判断)的概率、要远远小于得到Do2结果(整体False判断)的概率。


和Or判断的比较:

a*b*c 【And乘法】一句式:  If a Then If b Then If c Then Do1 Else Do2 Else Do2 Else Do2
   
a+b+c 【Or加法】一句式:    If a Then Do1 Else If b Then Do1 Else If c Then Do1 Else Do2


看看其中Do1 和 Do2的出现概率就知道差异了耶。

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-8-19 10:03 | 显示全部楼层
本帖最后由 香川群子 于 2014-8-19 10:12 编辑
  1. Sub test3()

  2.     '3-1、实际常用简化表达式  
  3.     If a Or b And c Then Do1 Else Do2

  4.     '逻辑等效于
  5.     If a + b * c Then Do1 Else Do2
  6.   
  7.     '逻辑也等效于
  8.     If a + (b * c) Then Do1 Else Do2
  9.     '但因为And (*) 运算优先,括号可以省略


  10.     'If 结构精确分解
  11.     If a Then
  12.         Do1
  13.     Else
  14.         If b Then
  15.             If c Then
  16.                 Do1
  17.             Else
  18.                 Do2
  19.             End If
  20.         End If
  21.     End If
  22.    
  23.     '横式一句式写法
  24.     If a Then Do1 Else If b Then If c Then Do1 Else Do2
  25.    
  26.    
  27.     '3-2、实际常用简化表达式  
  28.     If (a Or b) And c Then Do1 Else Do2

  29.     '逻辑等效于
  30.     If (a + b) * c Then Do1 Else Do2
  31.     '因为括号中Or (+) 运算【不优先】,所以【括号不能省略】

  32.     'If 结构精确分解
  33.     If a Then
  34.         If c Then
  35.             Do1
  36.         Else
  37.             Do2
  38.         End If
  39.     Else
  40.         If b Then
  41.             If c Then
  42.                 Do1
  43.             Else
  44.                 Do2
  45.             End If
  46.         End If
  47.     End If
  48.    
  49.    
  50.     '横式一句式写法
  51.     If a Then If c Then Do1 Else Do2 Else If b Then If c Then Do1 Else Do2
  52.    
  53.    
  54. End Sub
复制代码
请注意,发生Or、And混合运算时,
由于And相当于*、Or相当于+
因此如果你需要让Or条件优先,则括号比不可少!

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-8-19 10:11 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
  1. Sub test4()

  2.     '4-1、实际常用简化表达式  
  3.     If a And b Or c Then Do1 Else Do2

  4.     '逻辑等效于
  5.     If a * b + c Then Do1 Else Do2
  6.     '逻辑也等效于
  7.     If (a * b) + c Then Do1 Else Do2
  8.     '但因为And (*) 运算优先,括号可以省略


  9.     'If 结构精确分解
  10.     If a Then
  11.         If b Then
  12.             Do1
  13.         Else
  14.             Do2
  15.         End If
  16.     Else
  17.         If c Then
  18.             Do1
  19.         Else
  20.             Do2
  21.         End If
  22.     End If
  23.    
  24.     '横式一句式写法
  25.     If a Then If b Then Do1 Else Do2 Else If c Then Do1 Else Do2
  26.    
  27.    
  28.     '4-2、实际常用简化表达式  
  29.     If a And (b Or c) Then Do1 Else Do2

  30.     '逻辑等效于
  31.     If a * (b + c) Then Do1 Else Do2
  32.     '因为括号中Or (+) 运算【不优先】,所以【括号不能省略】

  33.     'If 结构精确分解
  34.     If a Then
  35.         If b Then
  36.             Do1
  37.         Else
  38.             If c Then
  39.                 Do1
  40.             Else
  41.                 Do2
  42.             End If
  43.         End If
  44.     Else
  45.         Do2
  46.     End If   
  47.    
  48.     '横式一句式写法
  49.     If a Then If b Then Do1 Else If c Then Do1 Else Do2 Else Do2
  50.    
  51.    
  52. End Sub
复制代码
请注意,发生Or、And混合运算时,
由于And相当于*、Or相当于+
因此如果你需要让Or条件优先,则括号比不可少!

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-8-19 10:17 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
其实所有这一切都很简单。

只要记住以下基本型即可:
  1. Sub test()

  2.     'And (*) 逻辑运算判断
  3.     If a And b Then Do1 Else Do2
  4.     If a * b Then Do1 Else Do2
  5.    
  6.     If a Then
  7.         If b Then
  8.             Do1
  9.         Else
  10.             Do2
  11.         End If
  12.     Else
  13.         Do2
  14.     End If
  15.    
  16.    
  17.     If a Then If b Then Do1 Else Do2 Else Do2
  18.    
  19.    
  20.    
  21.     'Or (+) 逻辑运算判断
  22.     If a Or b Then Do1 Else Do2
  23.     If a + b Then Do1 Else Do2
  24.    
  25.     If a Then
  26.         Do1
  27.     Else
  28.         If b Then
  29.             Do1
  30.         Else
  31.             Do2
  32.         End If
  33.     End If
  34.    
  35.    
  36.     If a Then Do1 Else If b Then Do1 ElseDo2
  37.    
  38.    
  39. End Sub
复制代码

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-8-19 10:20 | 显示全部楼层
单项条件判断的基本型:

    If a Then Do1 Else Do2
   
    If a Then
        Do1
    Else
        Do2
    End If
   
   
单项条件判断的省略型(无分歧单项判断)

    If a Then Do1
   
    If a Then
        Do1
    End If
   

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-8-19 10:22 | 显示全部楼层
总之,就是由简到繁的学习、理解,以及最后可以由繁到简的自由阶段。


…………
而如果能够很快写出横式一句式判断语句的,就是功力深厚了……呵呵呵!



TA的精华主题

TA的得分主题

发表于 2014-8-19 11:14 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
每次回帖、谢谢!辛苦了。

TA的精华主题

TA的得分主题

发表于 2014-8-19 11:44 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
收藏学习,谢谢分享
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-18 20:15 , Processed in 0.032567 second(s), 7 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表