如何找到細胞是否含有子串的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