Sub select多条件判断()
Select Case Sheet1.[b1].Value
Case Is > 0
MsgBox "大于0"
Case Else
MsgBox "小于或等于0"
End Select
End Sub
Select Case Sheet1.[b1].Value
Case Is > 0
MsgBox "大于0"
Case Else
MsgBox "小于或等于0"
End Select
End Sub
Sub select多条件判断2()
Select Case Sheet1.[b1].Value
Case "12"
Sheet1.[a1] = "你输入的值为12"
Case Else
Sheet1.[a1] = "你输入的值不是12"
End Select
End Sub
Select Case Sheet1.[b1].Value
Case "12"
Sheet1.[a1] = "你输入的值为12"
Case Else
Sheet1.[a1] = "你输入的值不是12"
End Select
End Sub
转载请注明作者与出处：http://blog.csdn.net/u013511642 王小涛_同
波比源码 – 精品源码模版分享 | www.bobi11.com
1. 本站所有资源来源于用户上传和网络，如有侵权请邮件联系站长！
2. 分享目的仅供大家学习和交流，您必须在下载后24小时内删除！
3. 不得使用于非法商业用途，不得违反国家法律。否则后果自负！
4. 本站提供的源码、模板、插件等等其他资源，都不包含技术服务请大家谅解！
5. 如有链接无法下载、失效或广告，请联系管理员处理！
6. 本站资源售价只是赞助，收取费用仅维持本站的日常运营所需！
7. 本站源码并不保证全部能正常使用，仅供有技术基础的人学习研究，请谨慎下载
8. 如遇到加密压缩包，请使用WINRAR解压,如遇到无法解压的请联系管理员！
波比源码 » VBA第五课 select多条件判断
波比源码 » VBA第五课 select多条件判断
