在查找INDEX和MATCH之后保留更改的填充颜色

如何解决在查找INDEX和MATCH之后保留更改的填充颜色

晚上好。

我已经很难在Google上找到问题了几个小时，但是我想很难解释我要查找的内容。反正...

我有一个清单中的序列号列表，我已经添加了功能和条件格式来搜索整个序列号列中的输入值。我的问题是，我想使突出显示匹配值的过程自动化，并使其保持突出显示，以实现更好的可视化目的。我的电子表格已经搜索了库存中的值，并向我返回了匹配值所在的行号以及找到的物料的描述，但是，我希望库存中的物料突出显示并保持突出显示。

我使用条件格式得到了类似的结果，但是，当我搜索下一个序列号后，样式从上一个单元格消失，然后转到下一个匹配项。相反，我希望它保持以前的填充颜色。

对于VBA或条件格式的任何帮助，将不胜感激。

我用于查找数据等的功能是...

要找到与序列号匹配的行： =MATCH(H2;F:F;0)

要获取找到的物品的描述，请执行以下操作： =INDEX(D:D;MATCH(H2;F:F;0))

要捕获是否在库存中找到了该项目，请执行以下操作： =IFERROR(IF(MATCH(H2;F:F;0);"FOUND !");"NOT FOUND !")

解决方法

条件格式将不起作用，因为它只会捕获当前的搜索项。您将需要VBA代码来实现所需的功能。检查以下代码（并进行适当的更改）。

应将其放置在VBA项目导航器的Sheet对象中。每次更新单元格时，它都会检查更改的单元格是否是您搜索项目的单元格。如果是这样，它将转到指示的行，并将该单元格的背景色更改为黄色。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Range("SEARCH CELL ADDRESS"),Range(Target.Address)) Is Nothing And Range("FOUND ROW ADDRESS") <> "NOT FOUND !" Then
        Cells(Range("FOUND ROW ADDRESS").Value,1).Color = 65535
    End If
End Sub