条件格式应用于范围而不是单个单元格

Question

以下代码旨在格式化单元格

• 如果输入的值为否，

• 如果sshDevices数组中列出了同一行和之前的某些列中的单元格的值

   Function sshProblem(rng As Range) As Boolean Dim portStatus As String portStatus = rng.Value Dim deviceType As String deviceType = Cells(ActiveCell.Row, 3).Value Dim sshDevices As Variant sshDevices = Array("linux", "vmw", "docker", "unix") If StrComp(portStatus, "No") = 0 Then If StrComp(deviceType, sshDevices(1)) = 0 Then sshProblem = True End If End If End Function 

现在，我只是将deviceType的值与数组中的第二个元素进行比较。 如果设备类型匹配且内容为No，则格式化工作正常。问题是，当内容为No并且设备类型不匹配时，列中的所有单元格都将释放其格式。 例如：

我在第8行中输入“否”，并且该单元格的格式正确，并带有粉红色背景：

然后，对第9列和第10列进行相同的操作：

但是当我达到10时，我在单元格中输入了“否”，但是现在以前的单元格“ ubuntu”的值与数组位置1的值不匹配，因此我希望该单元格没有粉红色的背景，但是，当我输入“否”时，所有先前的单元格都会失去其背景：

条件格式设置如下所示（列字母为“ I”）：

我不知道我的问题是(rng As Range)还是设置条件格式设置规则的方式。 有想法吗？

Answer 1

如果sshProblem在常规模块中，则默认情况下，任何单元格/范围都将引用ActiveSheet，而不一定是您从中调用函数的工作表。

另外， ActiveCell在这里没有用-如果您要引用从中调用公式的单元格，请使用Application.Caller

最后，您可以使用Application.Match来测试数组中是否包含值。

Function sshProblem(rng As Range) As Boolean

    Dim portStatus As String, sht As WorkSheet
    Dim rw as Long

    Set sht = rng.WorkSheet
    portStatus = rng.Value

    Dim deviceType As String

    rw = Application.Caller.Row

    deviceType = sht.Cells(rw, 3).Value

    Dim sshDevices As Variant
    sshDevices = Array("linux", "vmw", "docker", "unix")

    If StrComp(portStatus, "No") = 0 Then
        sshProblem = Not IsError(Application.Match(deviceType, sshDevices, 0))
    End If

End Function