求教：如何单元格中根据公式设置红绿灯

Noah$$$

求教：如何单元格中根据公式设置红绿灯

砂海

条件格式 > 图标集

爱疯

INaga2018

爱疯 发表于 2020-1-14 17:04

版主，他这个要求不增加辅助列的，有没有办法实现？

爱疯

INaga2018 发表于 2020-1-14 17:13
版主，他这个要求不增加辅助列的，有没有办法实现？

个人建议在数据区外，建辅助区，再用照相机引用辅助区。
如果不用辅助区，就没法使用这种条件格式。

爱疯

求教：如何单元格中根据公式设置红绿灯2.rar (22.04 KB, 下载次数: 3)

2020-1-15 10:04 上传

点击文件名下载附件

E7=978，为测试改为1047







Sub test()
    Dim A, i, j
    ActiveSheet.DrawingObjects.Delete
    A = Range("a1:u" & Range("b65536").End(xlUp).Row)

    For i = 5 To UBound(A)
        For j = 4 To UBound(A, 2) Step 3
            If Cells(i, j) <> "" Then
                Call test2(i, j, A(i, j + 1) / A(i, j))
            End If
        Next j
    Next i
End Sub


'test2(行, 列, 已传/总数)
Sub test2(i, j, x)
    Dim l, t, w, h

    '1）图形的颜色
    If x >= 0.98 Then
        x = RGB(0, 176, 80)     '绿
    ElseIf x >= 0.95 Then
        x = RGB(255, 255, 0)    '黄
    ElseIf x >= 0.9 Then
        x = RGB(237, 145, 89)   '橙
    Else
        x = RGB(255, 0, 0)      '红
    End If

    '2）创建自选图形
    With Cells(i, j + 1)
        w = 13.5
        h = w
        l = .Left - w
        t = .Top
    End With

    ActiveSheet.Shapes.AddShape(msoShapeOval, l, t, w, h).Fill.ForeColor.RGB = x
End Sub

INaga2018

爱疯 发表于 2020-1-15 10:07
E7=978，为测试改为1047

666，VBA的方式也不错，学习！

根据资料尝试了一下以下方法可以实现：
1.先设置单个单元格格式
2.再通过双击格式刷逐个刷需要设置格式的单元格

爱疯

INaga2018 发表于 2020-1-15 10:21
666，VBA的方式也不错，学习！

根据资料尝试了一下以下方法可以实现：

条件格式是可以刷
本题需有对应的单元格区域（的值）才能体现结果，即一个辅助单元格是不够用的啊。

hcm19522

(一红灯)=LOOKUP(H5/G5,{0,0.9,0.95,0.98},{1,2,3,4})=1
(二橙灯)=LOOKUP(H5/G5,{0,0.9,0.95,0.98},{1,2,3,4})=2
(三黄灯)=LOOKUP(H5/G5,{0,0.9,0.95,0.98},{1,2,3,4})=3
(四绿灯)=LOOKUP(H5/G5,{0,0.9,0.95,0.98},{1,2,3,4})=4