Есть ли MySQL % (аппроксимация) эквивалент в VBA?

Question

Я хочу, чтобы VBA просматривал ячейку и определял, подходит ли слово XXX появляется в любом месте с помощью %, Если да, я хочу, чтобы VBA изменила всю ячейку на слово YYY,

Кто-нибудь может мне с этим помочь?

Answer 1

Если вам нужно изменить только значение 1 ячейки, используйте функцию InStr():

If InStr(1, Cells(1, 1).Value, "xxx")>0 Then Cells(1, 1).Value="xxx"

Очевидно, заменить Cells(1, 1).Value с вашей ссылкой на камеру.

Если вам нужно проверить несколько ячеек, используйте метод Range.Find:

Dim firstAddress As String
With Worksheets(1).Range("a1:a500") 
    Set c = .Find("xxx", lookin:=xlValues) 
    If Not c Is Nothing Then 
        firstAddress = c.Address 
        Do 
            c.Value = "xxx" 
            Set c = .FindNext(c) 
        Loop While Not c Is Nothing And c.Address <> firstAddress 
    End If 
End With

Снова замени Worksheets(1).Range("a1:a500") с вашей собственной ссылкой диапазона.