吾爱破解 - LCG - LSG |安卓破解|病毒分析|www.52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 1086|回复: 7
收起左侧

[经验求助] excel求助数据对比颜色显示

[复制链接]
keke0524 发表于 2023-3-8 15:03
25吾爱币
本帖最后由 keke0524 于 2023-3-8 15:38 编辑

   excel   三列对比对比B,G,L,最小的显示在q列让q列显示和前面列数值相同的列的颜色。

最佳答案

查看完整内容

D列 D2先用公式获取最小值: =MIN(A2:C2) D列 再用条件格式进行匹配颜色,使用公式 新建3个规则, 1、 =D2=A2 格式填充颜色选择和A列同颜色的; 2、=D2=B2 格式填充颜色选择和B列同颜色的;3、=D2=C2 格式填充颜色选择和C列同颜色的;

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

土鸡炖蘑菇 发表于 2023-3-8 15:03
D列     D2先用公式获取最小值: =MIN(A2:C2)   

D列     再用条件格式进行匹配颜色,使用公式 新建3个规则,  1、 =D2=A2  格式填充颜色选择和A列同颜色的;  2、=D2=B2 格式填充颜色选择和B列同颜色的;3、=D2=C2 格式填充颜色选择和C列同颜色的;
jyjjf 发表于 2023-3-8 15:10
分别用d列,对abc三列进行高级筛选,然后分别标色即可
winshaw 发表于 2023-3-8 15:18
 楼主| keke0524 发表于 2023-3-8 15:38
土鸡炖蘑菇 发表于 2023-3-8 15:23
D列     D2先用公式获取最小值: =MIN(A2:C2)   

D列     再用条件格式进行匹配颜色,使用公式 新建3个 ...

大佬再看下麻烦了
自学笔记 发表于 2023-3-8 16:01
鉴于A、B、C列每列的格式是一致的,可对D列利用类似公式设置多个条件格式达到目的。
(eg.  =AND($D2=MIN($A2:$C2),$D2=$B2), 格式设置与B列一致; =AND($D2=MIN($A2:$C2),$D2=$C2),格式设置与C列一致  等)
但如果每列格式不一致,A2与A3填充颜色不一样,可能要用VBA解决。
另,格式设定填充颜色时,可用RGB数值使颜色无误。
土鸡炖蘑菇 发表于 2023-3-8 16:30
keke0524 发表于 2023-3-8 15:38
大佬再看下麻烦了

Q2 输入     =min(B2,G2,L2)          【取最小值】

Q2再用条件格式进行匹配颜色,使用公式 新建3个规则,  1、 =Q2=B2  格式填充颜色选择和B列同颜色的;  2、=Q2=G2 格式填充颜色选择和G列同颜色的;3、=Q2=L2 格式填充颜色选择和L列同颜色的;


再用Q2 向下填充就好了。       不过有没有可能这三个的数值是一样的?  
JackLei 发表于 2023-3-8 16:31
本帖最后由 JackLei 于 2023-3-8 16:32 编辑

vba数组方法,随便用用吧,你后面提交的那个问题可以在里面改改,一样的原理,不管格式咋变,都通用
[Visual Basic] 纯文本查看 复制代码
Sub test()
Dim i, j, k, arr, brr

arr = Range("A1").CurrentRegion
 k = Cells(Rows.Count, "A").End(xlUp).Row
ReDim brr(1 To k, 1 To 1)

For i = 1 To k
If arr(i, 1) > arr(i, 2) And arr(i, 1) > arr(i, 3) Then
brr(i, 1) = arr(i, 1)
ElseIf arr(i, 2) > arr(i, 1) And arr(i, 2) > arr(i, 3) Then
brr(i, 1) = arr(i, 2)
Else
brr(i, 1) = arr(i, 3)
End If
Next
Range("D1").Resize(k, 1) = brr

j = 1
Do While Range("A" & j) <> ""
aa = Range("A" & j)
bb = Range("B" & j)
cc = Range("C" & j)
dd = Range("D" & j)
If dd = aa Then
Range("D" & j).Interior.Color = Range("a" & j).Interior.Color
ElseIf dd = bb Then
Range("D" & j).Interior.Color = Range("b" & j).Interior.Color
Else
Range("D" & j).Interior.Color = Range("c" & j).Interior.Color
End If
j = j + 1
Loop

End Sub

免费评分

参与人数 1吾爱币 +1 热心值 +1 收起 理由
keke0524 + 1 + 1 谢谢@Thanks!

查看全部评分

快速回复 收藏帖子 返回列表 搜索

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-6-2 23:36

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表