按规则对单元格内容进行分析判断并上色

天地一相

感谢帮助！详见截图附件。

cidanji

规则上色.zip (14.4 KB, 下载次数: 13)

2024-1-5 17:31 上传

点击文件名下载附件

过客fppt

Sub a()
    Dim rng As Range
    Dim i&, j&, k#, x%
    k = 0.8
    x = 3
    Range("N4:S4").Interior.ColorIndex = 0
    For Each rng In Range("N4:S4")
        i = Left(rng.Value, x)
        j = Right(rng.Value, Len(rng.Value) - x)
        If i * k < j Then
            rng.Interior.ColorIndex = 3
        End If
    Next
End Sub

天地一相

cidanji 发表于 2024-1-5 17:32

谢谢。请教，为什么是M小于13退出（包括后面的减去13），我数了下N列是14呀。

cidanji

天地一相 发表于 2024-1-5 18:20
谢谢。请教，为什么是M小于13退出（包括后面的减去13），我数了下N列是14呀。

第一个写错，改成<=13，目的是防止无数据情况
第二个，m-13 代表 rg 区域的总宽度，也就是 rg 为数据区

天地一相

cidanji 发表于 2024-1-5 18:24
第一个写错，改成

好的，谢谢你。那小于14即可

cidanji

天地一相 发表于 2024-1-5 18:26
好的，谢谢你。那小于14即可

可以

天地一相

cidanji 发表于 2024-1-5 17:32

请教下，你代码中定义了Dim c as Range. 针对 For each 句型中的这个变量，我咨询过AI，回答说在这样的情况下不需要专门定义，然后一些说明理由。我测试过，定义与否对速度没丝毫影响。

cidanji

可以不定义变量，变量是否定义，在数据量大时在速度上才有体现