通过比较动态值的条件格式：Excel

Question

我的代码：

=IF(AND(B2="Lodavan-Boleropickup",C2<"30"),CELL("color",D2),"")

没用。

请参考以下table。我需要突出显示“里程”列下的单元格。

示例：

“Lodavan-Boleropickup”（目标里程为 30）我需要突出显示“里程”列中低于 44 的单元格。“Suzuki-Fabric”（目标里程为 50）我需要突出显示在“里程”栏低于55.

条件是要参考“车辆名称”栏，然后检查“里程”值，然后它必须与目标值进行比较，然后突出显示。任何可能的简单方法都可以。

要么比较预定义的 table 如：

我的要求：如果“车辆名称”列中的变量是“Loadvan-Boleropicup”，那么它必须将“里程列”中的值与我们需要定义的“目标”进行比较，然后它必须突出显示单元格。

Answer 1

这两个解决方案可能对您有帮助：

解决方案 1) 在第一个 table 中插入一个名为 selected_names 的列，并将此公式写入第一个单元格 init 并向下填充以复制。 =SetColor(IF(INDEX($C:$C;MATCH(F2;$B:$B;0))>G2;F2;"");IF(INDEX($C:$C;MATCH(F2;$B:$B;0))>G2;F2;""))

并且您需要在 VBA 编辑器中编写此函数：

    Option Explicit

    Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr
    Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr) As Long
    Declare PtrSafe Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA" (ByVal lpString As String) As Integer
    Declare PtrSafe Function GlobalGetAtomName Lib "kernel32" Alias "GlobalGetAtomNameA" (ByVal nAtom As Integer, ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Function SetColor(ByVal Value As Variant, ByVal BackGroundColor As String) As Variant
    SetTimer Application.hwnd, GlobalAddAtom(Application.Caller.Address(External:=True) & "*" & BackGroundColor), 0, AddressOf ChangeColor
    SetColor = Value
End Function

Sub ChangeColor(ByVal hwnd As Long, ByVal uMsg As Long, ByVal nIDEvent As Long, ByVal dwTimer As Long)
    Dim sBuffer As String, lRet As Long, lColorIndex As Long

    On Error Resume Next
    KillTimer hwnd, nIDEvent
    sBuffer = Space(256)
    lRet = GlobalGetAtomName(nIDEvent, sBuffer, Len(sBuffer))
    sBuffer = Left(sBuffer, lRet)
    Select Case LCase(Split(sBuffer, "*")(1))
        Case "name1"
            lColorIndex = 17
        Case "name2"
            lColorIndex = 18
        Case "name3"
            lColorIndex = 19
        Case "name4"
            lColorIndex = 20
        Case "name5"
            lColorIndex = 21
        Case "name6"
            lColorIndex = 22
        Case "name7"
            lColorIndex = 23
        Case "name8"
            lColorIndex = 24
        Case "name9"
            lColorIndex = 25
        Case "name10"
            lColorIndex = 26
        Case "name11"
            lColorIndex = 27
        Case ""
            lColorIndex = xlColorIndexNone
    End Select
    Range(Split(sBuffer, "*")(0)).Interior.colorIndex = lColorIndex
End Sub

参考 link 用于设置单元格颜色：https://www.mrexcel.com/board/threads/change-cell-color-inside-formula.1050178/

解决方案 2) 您可以插入列 selected_names 并在第一个单元格中使用此公式并向下填充以复制到所有单元格。 =IF(INDEX($C:$C;MATCH(F2;$B:$B;0))>G2;F2;"") 所有条件行都将被标记，然后您可以通过相似的名称过滤它们，并且不需要 VBA 函数来为匹配名称着色（我认为这种方式更好）。

通过比较动态值的条件格式：Excel

conditional formatting by comparing dynamic values : Excel

excel

excel-2007

excel-formula

excel-2010