vba - 其他语句混淆

Question

If trigger = "Reconcile" Then
    If InStr(XXlist, checkmi) > 0 Then
          If checkmi = "XX1000" Then
            a = a + 1
            Call XX1000Check(location, a, checkmi)
          End If
          If checkmi = "XX1001" Then
            Call XX1001Check(location, checkmi)
          End If
          Else: Call SenseCheck(location, location2, location7, checkmi)
    End If
End If

我希望我的代码检查 Checkmi等于硬编码代码之一(XX1000，XX1001)，然后调用适当的 VBA 代码。但是，如果该特定代码没有特定的 VBA 模块，我希望它调用通用 SenseCheck .目前它执行SenseChec k 如果初始条件 If InStr(XXlist, checkmi) > 0错了，这不是我想要的。而且我不完全确定如何解决这个问题。

Answer 1

这可能是 SELECT...CASE 语法的好地方

      SELECT CASE checkmi 
         CASE "XX1000" 
               a = a + 1
               Call XX1000Check(location, a, checkmi)
         CASE "XX1001" 
               Call XX1001Check(location, checkmi)
         CASE ELSE
               SenseCheck(location, location2, location7, checkmi)
      END SELECT