VBA 中是否有等价的 MySQL %（近似值）？

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") 替换为您自己的范围参考。

VBA 中是否有等价的 MySQL %（近似值）？

Is there a MySQL % (approximation) equivalent in VBA?

mysql

search

vba

if-statement

approximate