vba - 在 Select Case 中使用 InStr 函数

Question

这似乎不起作用。有没有办法做我在这里想做的事情？如果该值在给定的字符串中，我无法选择一个案例:

Select Case gTTD.Cells(r, 4)

     Case InStr(gTTD.Cells(r, 4), "MASTER LOG")
         resp = "MM LOG"
      Case InStr(gTTD.Cells(r, 4), "MASTER MET")
         resp = "MM MET"
     Case "PIR"
         gTTD.Cells(r, 7) = "Martin Trépanier"
         resp = "Martin Trépanier"

 End Select

我明白为什么这行不通，但是有办法让它工作吗？谢谢

谢谢

Answer 1

这是我使用的一个小技巧，select语句只是想找到相同的结果。这是一个简单的例子:

    Select Case True
        Case (1 = 2)
            Stop
        Case (2 = 3)
            Stop
        Case (4 = 4)
            Stop
        Case Else
            Stop
    End Select

这将属于 4=4 的情况。在您的示例中，这可能是简单的答案:

Select Case True

     Case (InStr(gTTD.Cells(r, 4), "MASTER LOG") > 0)
         resp = "MM LOG"
      Case (InStr(gTTD.Cells(r, 4), "MASTER MET") > 0)
         resp = "MM MET"
     Case else
         gTTD.Cells(r, 7) = "Martin Trépanier"
         resp = "Martin Trépanier"
 End Select