Использование функции 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 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 

Answer 2

попробовать этот

dim r as integer 
for r = 1 to 'number of rows 
    if Instr(gTTD.Cells(r, 4), "MASTER LOG") <> 0 then 
     resp = "MM LOG" 
    elseif Instr(gTTD.Cells(r, 4), "MASTER MET") <> 0 then 
     resp = "MM MET" 
    else 
     gTTD.Cells(r, 7) = "Martin Trépanier" 
     resp = "Martin Trépanier" 
    end if 
next r