如何将满足条件的行染色？？？

wwdfefgg

需要在excel顶部菜单栏做个小按钮，每次打开excel文件时，按钮都在，点击按钮时，实现以下操作：

第1步：找到A列为AAA.csv、BBB.csv、CCC.csv、DDD.csv、AAA.csv-2、BBB.csv-2、CCC.csv-2、DDD.csv-2所在行，对 对应的K列数值进行判断，如果对应的K列数值大于等于1.3，将该行染成红色；如果小于1.3，将改行染成绿色。

第2步：找到A列为不等于AAA.csv、BBB.csv、CCC.csv、DDD.csv、AAA.csv-2、BBB.csv-2、CCC.csv-2、DDD.csv-2的行，对 对应的K列数值进行判断，如果对应的K列数值大于等于1.3，将该行染成红色；如果小于1.3，不染色。

想要的结果：

TEST.rar (346 Bytes, 下载次数: 13)

2024-4-23 20:17 上传

点击文件名下载附件

wwdfefgg

顶起来。。。。。。。。。。。。

582766

请参考，是不是你要的效果

liulang0808

Sub 按钮1_Click()
    r = Cells(Rows.Count, 1).End(3).Row
    str1 = "、AAA.csv、BBB.csv、CCC.csv、DDD.csv、AAA.csv-2、BBB.csv-2、CCC.csv-2、DDD.csv-2、"
    arr = [a1].Resize(r, 11)
    For j = 2 To r
        If Len(arr(j, 1)) > 0 Then
            If Val(arr(j, 11)) >= 1.3 Then
                Rows(j).Interior.ColorIndex = 3
            Else
                If InStr(str1, "、" & arr(j, 1) & "、") > 0 Then
                    Rows(j).Interior.ColorIndex = 8
                End If
            End If
        End If
    Next
End Sub

liulang0808

颜色自己根据需求设置把

gwjkkkkk

Dim grxIRibbonUI As IRibbonUI
Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)
    Set grxIRibbonUI = ribbon
End Sub
Sub rxbtn1_Chick(control As IRibbonControl)
    Dim ar, i&, strJoin$
    strJoin = "、AAA.csv、BBB.csv、CCC.csv、DDD.csv、AAA.csv-2、BBB.csv-2、CCC.csv-2、DDD.csv-2、"
    With ActiveSheet.UsedRange
        ar = .Value
        .Interior.Color = xlNone
        For i = 2 To UBound(ar)
            If Len(ar(i, 1)) Then
                If ar(i, 11) >= 1.3 Then
                    .Rows(i).Interior.Color = vbRed
                Else
                     If InStr(strJoin, "、" & ar(i, 1) & "、") Then .Rows(i).Interior.Color = vbGreen
                End If
            End If
        Next i
    End With
End Sub

gwjkkkkk

请参考。。。

那时雨

参与一下……

wwdfefgg

582766 发表于 2024-4-23 22:35
请参考，是不是你要的效果

非常感谢，我想实现打开一个空的excel文件，在顶部菜单栏能有这个程序的链接，就像下图中的 “云服务”一样，怎样实现？？

wwdfefgg

liulang0808 发表于 2024-4-23 22:36
颜色自己根据需求设置把

非常感谢，我想实现打开一个空的excel文件，在顶部菜单栏能有这个程序的链接，就像下图中的 “云服务”一样，怎样实现？？