Как найти, если ячейка содержит подстроку Excel

Question

У меня есть следующая функция VBA

Function ..... 
.......... 
If (IsNumeric(x) And ((x = "*9999999*") = False)) Then 
....... 
Else 
........... 
End If 
End Function 

мне нужно знать, если строка содержит подстроку «9999999». Как я могу это сделать?

Answer 1

If Instr(x, "9999999") > 0 Then ... должен это сделать.

Answer 2

Вы можете использовать Оператор Like.

Sub test() 

Dim str1 As String 
Dim str2 As String 

str1 = "dhfjd9999999dfda" 
str2 = "ddsss999dfdfsfd" 


MsgBox str1 Like "*9999999*" 
MsgBox str2 Like "*9999999*" 

End Sub