条件格式 - 数字存储为文本

Question

我尝试使用 VBA 为列添加条件格式，以便当单元格值不等于参考值时，用黄色填充单元格。

' c represent the column number, lRow represent the last row
' RefVal is a string variable read from reference spreadsheet

Range(Cells(2, c), Cells(lRow, c)).FormatConditions. _
    Add(xlCellValue, xlNotEqual, RefVal).Interior.ColorIndex = 6

运行代码后，条件规则如下：

我真正想要的是下面（注意183957 周围的引号）：

这是因为我正在处理的单元格是“数字存储为文本”。如果我使用第一个条件规则，它将始终为“真”。只有第二条规则才能进行真正的比较。

我该如何解决这个问题？我无法控制电子表格的内容。我该如何比较“文本到文本”与“文本到数字”？还是有更简单的解决方案？

Answer 1

您可以完全在 VBA 中做到这一点：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False

    Dim lastRow As Long, i As Long, RefVal As String 'maybe other appropriate datatype
    RefVal = Worksheets("ReferenceSheetNameHere!").Cells(1, 1).Value 'in Cells, specify coordinates of a cell with reference value!
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row

    For i = 1 To lastRow
        If Cells(i, 1).Value <> RefVal Then
            Cells(i, 1).Interior.ColorIndex = 6
        Else
            Cells(i, 1).Interior.ColorIndex = 0
        End If
    Next

    Application.EnableEvents = True
End Sub

请注意（如代码中的 cmets 所述）您必须指定参考值所在的位置。

具有此签名的此方法处理包括单元格更改在内的工作表更改事件，因此它模仿自动过滤器，但功能更强大。

为了让它工作，这个代码应该粘贴到你要处理的工作表对应的VBA文件中，即当你打开VBA编辑器时，你应该在树的左侧选择工作表。