Question

是否可以编写VBA代码，以在列中标记超过55的值。这是我的简化示例：

我正在寻找可以检查给定表中值的代码，并且当连续记录 3个超过55个值 时，请更改“温度”。标题从红色变为绿色。

如果可能的话，还计算从记录第一个值> 55到温度回落到55以下的天数。对于左侧的表，这将是B5和B7之间的DateDiff。

我只需要帮助在IF语句中标记超过55个连续值。打开以获取其他建议。

感谢溢出家庭

Answer 1

手动或通过VBA应用条件格式设置规则。

Sub greenerPastures()
    With Worksheets("sheet12")
        With .Cells(1, "A")
            .FormatConditions.Delete
            With .FormatConditions.Add(Type:=xlExpression, _
                Formula1:="=COUNTIFS(A2:A9997, "">55"", A3:A9998, "">55"", A4:A9999, "">55"")")
                .Interior.Color = vbGreen
            End With
        End With
    End With
End Sub

在列中给定值上标记连续值。 VBA

1 个答案: