使用通配符和解析對象參考的VBA Excel

Question

我試圖讓輸入框中輸入的搜索字符串與*通配符一起使用，以搜索所選範圍內字符串的實例。

Sub color() 
Dim myRange As Range, value As String, wild As Icon 

value = InputBox("Search String:") 
If value = vbNullString Then Exit Sub 
Range("A1").Select 
Range(Selection, Selection.End(xlToRight)).Select 
Range(Selection, Selection.End(xlDown)).Select 
For Each myRange In Selection 
    If myRange.value = "*" & value & "*" Then 
    myRange.Interior.ColorIndex = 3 
    End If 
Next myRange 
End Sub 

Answer 1

另一種可能性： 爲什麼要使用通配符？已經有一個VBA函數來測試子字符串。嘗試：

If InStr(myRange.value,value) > 0 Then 

Answer 2

而不是通配符：

Sub color() 
    Dim myRange As Range, valuee As String 
    valuee = InputBox("Search String:") 
    If valuee = vbNullString Then Exit Sub 
    Range("A1").Select 
    Range(Selection, Selection.End(xlToRight)).Select 
    Range(Selection, Selection.End(xlDown)).Select 

    For Each myRange In Selection 
     If InStr(myRange.value, valuee) > 0 Then 
     myRange.Interior.ColorIndex = 3 
     End If 
    Next myRange 
End Sub 

我們也可以使用.Find方法。

編輯＃1：

下面是使用.Find和.FindNext版本：

Sub color2() 
    Dim myRange As Range, valuee As String 
    valuee = InputBox("Search String:") 
    If valuee = vbNullString Then Exit Sub 

    Range("A1").Select 
    Range(Selection, Selection.End(xlToRight)).Select 
    Range(Selection, Selection.End(xlDown)).Select 

    Set myRange = Selection.Find(what:=valuee, after:=Selection(1)) 
    If myRange Is Nothing Then 
     MsgBox "no value" 
     Exit Sub 
    End If 
    myRange.Interior.ColorIndex = 3 
    st = myRange.Address(0, 0) 

    Do Until myRange Is Nothing 
     Set myRange = Selection.FindNext(after:=myRange) 
     If myRange.Address(0, 0) = st Then Exit Do 
     myRange.Interior.ColorIndex = 3 
    Loop 
End Sub