案例选择逻辑

Question

我正试图让这个案例起作用而且它没有显示我希望的输出......

INPUT VALUE：

composer require faustuzas/theme-downloader

CODE

123456     DUPL

预期输出

Select Case Cells(i, 5).value Case InStr(Cells(i, 5).value, "DUPL") = True Debug.Print ediData.EDINumber & " = DUPL" End Select

修改

这个123456 = DUPL语句的正确用法是什么，以获得我正在寻找的正确输出

Answer 1

要使用Select case，必须在Select Case行中使用True。

Instr返回的数字不是布尔值，0表示未找到，＆gt; 0表示找到时字符串中的相对位置：

Select Case True
   Case InStr(Cells(i, 5).value, "DUPL") > 0
      Debug.Print ediData.EDINumber & " = DUPL"
End Select

这就像是：

If InStr(Cells(i, 5).value, "DUPL") > 0 Then
    Debug.Print ediData.EDINumber & " = DUPL"
End If

或者你可以这样做：

Select Case InStr(Cells(i, 5).value, "DUPL")
   Case Is > 0
      Debug.Print ediData.EDINumber & " = DUPL"
End Select