Instr Funktion nicht zu finden Substring

Question

Ich habe den folgenden VBA-Code, die "0" für die InStr-Funktion gibt:

If InStr("ICD-10 & CPT OPC NHSN", "JCMC ICD-10 & CPT OPC NHSN Sep-17 new.xlsx") > 0 Then 
    'Do something 
End If 

jedoch den folgenden Code, die WorksheetFunction.Find Funktion verwendet, wird findet den Teil bei Position 6:

If Application.WorksheetFunction.Find("ICD-10 & CPT OPC NHSN", "JCMC ICD-10 & CPT OPC NHSN Sep-17 new.xlsx") > 0 Then 
    'Do something 
End If 

Warum gibt die WorksheetFunction 6 zurück, während die InStr-Funktion den Teilstring nicht findet?

Answer 1

Wenn Sie the documentation for the InStr function betrachten, sehen Sie, dass der erste der beiden obligatorischen Parameter die zu durchsuchende Zeichenfolge und der zweite Parameter die gesuchte Zeichenfolge ist.

string1 Erforderlich. String-Ausdruck wird gesucht.
string2 Erforderlich. String-Ausdruck gesucht.

So Ihr Code muss

If InStr("JCMC ICD-10 & CPT OPC NHSN Sep-17 new.xlsx", "ICD-10 & CPT OPC NHSN") > 0 Then 
    'Do something 
End If