首页 > 上网技巧 > 电脑小技巧 > excel多重判断vba代码 switch函数

excel多重判断vba代码 switch函数

时间:2015-06-04 12:08 作者:QQ地带 我要评论

使用方法:

1、先声明函数

按Alt+F11进入VBA

然后点击插入,选择模块

 
然后把下面的代码复制进去:
 
  1. Function Switch2(Test1 As String, Result1 As String, _ 
  2. Optional Test2 As StringOptional Result2 As String, _ 
  3. Optional Test3 As StringOptional Result3 As String, _ 
  4. Optional Test4 As StringOptional Result4 As String, _ 
  5. Optional Test5 As StringOptional Result5 As String, _ 
  6. Optional Test6 As StringOptional Result6 As String, _ 
  7. Optional Test7 As StringOptional Result7 As String, _ 
  8. Optional Test8 As StringOptional Result8 As String, _ 
  9. Optional Test9 As StringOptional Result9 As String, _ 
  10. Optional Test10 As StringOptional Result10 As String, _ 
  11. Optional Test11 As StringOptional Result11 As String, _ 
  12. Optional Test12 As StringOptional Result12 As String, _ 
  13. Optional Test13 As StringOptional Result13 As String, _ 
  14. Optional Test14 As StringOptional Result14 As String
  15. Switch2 = Switch(Test1, Result1, _ 
  16. Test2, Result2, _ 
  17. Test3, Result3, _ 
  18. Test4, Result4, _ 
  19. Test5, Result5, _ 
  20. Test6, Result6, _ 
  21. Test7, Result7, _ 
  22. Test8, Result8, _ 
  23. Test9, Result9, _ 
  24. Test10, Result10, _ 
  25. Test11, Result11, _ 
  26. Test12, Result12, _ 
  27. Test13, Result13, _ 
  28. Test14, Result14) 
  29. End Function 
 
然后按Ctrl+S保存。
 
2、在表格里使用,输入;
 
  1. =Switch2(A1<1000,"D",A1<5000,"C",A1<10000,"B",TRUE,"A") 
 
总之,目前代码最多支持14个条件判断,大家可以任意扩充。
 
 
 

标签: excel
顶一下
(0)
0%
踩一下
(0)
0%

Google提供的广告