如何简化vba代码中对多个判断条件的判断语句？

作者：绿色风分类：时间：2022-08-17 浏览：90

楼主 kevinchengcw	Q: 如何简化vba代码中对多个判断条件的判断语句？ A: 对于判断类似于A1单元格的值是否是1，2，3，7，8，9之中的任意一个，代码示例如下： Sub test() If InStr(",1,2,3,7,8,9,", "," & [a1].Text & ",") > 0 Then Debug.Print "OK" End Sub Instr来判断，代码较短，不受单元格内容长短限制，但需注意分隔字符不能在字符串中出现。 Sub test2() Select Case [a1].Value Case 1, 2, 3, 7, 8, 9 Debug.Print "OK" Case Else End Select End Sub Select Case对于多个数值格式处理最佳，但语句较长。 Sub test3() If [a1].Text Like "[123789]" Then Debug.Print "OK" End Sub Like判断，对单个字符集较好，无规律的多个字符集不适用。
2楼 yizhbi	学习了，谢谢
3楼替伏影子	学习了，谢谢
4楼 bluecat2000	学习了，谢谢
5楼 bluecat2000	学习了，谢谢

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表