Question

我有一些select-case语句，该语句根据三个字母的首字母缩写来运行三个功能之一。有了许多可能的Acrynom，代码变得非常重复（请参见下面的抽象示例）。有没有一种方法可以缩短这种情况，所以只有一种情况会调用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

请务必在“选择”之后添加“案例”

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

Answer 2

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

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

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

2 个答案: