根据部分文字更改样式

时间:2019-09-23 19:45:29

标签: vba

我正在更新大型资产列表,我想根据部分文本匹配来更改行的样式。如果G列单元格中的文本包含所出售单词的任何变体,那么我希望整行都应用.Style =“ Bad”。

Sub SoldMachines()
Dim c As Long

For c = 1 To Rows.Count
    If Cells(i, 7).Value = "*Sold*" Then
        Cells(i, 7).Style = "Bad"
    End If
Next c

End Sub

0 个答案:

没有答案