VBA

Question

我有一些 select-case 语句，它根据三个字母的首字母缩写词运行三个函数之一。有几十个可能的 acrynoms，代码变得非常重复（参见下面的抽象示例）。有没有办法缩短它，所以只有一种情况调用 function1 而只有一种情况调用 function2？

Select varAcronym
  Case "ABC"
    function1
  Case "DEF"
    function1
  Case "GHI"
    function1
  Case "JKL"
    function2
  Case "MNO"
    function2
  Case "PQR"
    function2
End Select

谢谢。

Answer 1

您可以在 case 行中有多个案例条件

Select varAcronym
  Case "ABC", "DEF", "GHI"
    function1
  Case "JKL", "MNO", "PQR"
    function2
End Select

Answer 2

一定要在"Select"

后面加上"Case"

Select Case varAcronym
  Case "ABC", "DEF", "GHI"
    function1
  Case "JKL", "MNO", "PQR"
    function2
End Select

VBA - 如何避免在 select-case 语句中复制粘贴代码？

VBA - How to avoid copy paste code in select-case statements?

case-statement