按条件比较数值大小，并添加字体和背景颜色

jackyava

凌空一羽 发表于 2017-5-13 11:37
有等于的情况啊，请看看

第二组的参照，应该是海尔，而不是三星
老师的代码有问题

凌空一羽

jackyava 发表于 2017-5-13 11:41
第二组的参照，应该是海尔，而不是三星
老师的代码有问题

不是取aw:ay 里最小的那个而对应的商品吗？

jackyava

凌空一羽 发表于 2017-5-13 11:51
不是取aw:ay 里最小的那个而对应的商品吗？

是取唯一的大于1的值或者唯一的小于1的值最为参照点

jackyava

蓝桥玄霜 发表于 2017-5-13 10:41
请见代码。

老师，您的代码出错了，请查证，谢谢
http://club.excelhome.net/thread-1345668-1-1.html

凌空一羽

jackyava 发表于 2017-5-13 12:39
老师，您的代码出错了，请查证，谢谢
http://club.excelhome.net/thread-1345668-1-1.html

哦，明白了，谢谢，改代码，等下发上来

凌空一羽

jackyava 发表于 2017-5-13 12:39
老师，您的代码出错了，请查证，谢谢
http://club.excelhome.net/thread-1345668-1-1.html

1. Sub 凌空一羽()
   
2. For i = 3 To 16
   
3.     If (i - 3) Mod 4 < 2 Then
   
4.         gi = Int((i + 1) / 4) * 4 - 1
   
5.         If Application.CountIf(Cells(gi, "aw").Resize(1, 3), "<1") = 1 Then
   
6.             gmin = Application.Min(Cells(gi, "aw").Resize(1, 3))
   
7.             gmc = Application.Match(gmin, Cells(gi, "aw").Resize(1, 3), 0)
   
8.         Else
   
9.             gmax = Application.Max(Cells(gi, "aw").Resize(1, 3))
   
10.             gmc = Application.Match(gmax, Cells(gi, "aw").Resize(1, 3), 0)
    
11.         End If
    
12.         For j = 1 To 6
    
13.             If j > 3 Then
    
14.                 gb = Cells(i, "BG").Offset(0, gmc)
    
15.                 If Cells(i, j + 56) = gb Then
    
16.                     Cells(i, j + 42) = "等于参照": Cells(i, j + 42).Interior.ColorIndex = 8
    
17.                 ElseIf Cells(i, j + 56) > gb Then
    
18.                     Cells(i, j + 42) = "大于参照": Cells(i, j + 42).Interior.ColorIndex = 35
    
19.                 Else
    
20.                     Cells(i, j + 42) = "小于参照": Cells(i, j + 42).Interior.ColorIndex = 17
    
21.                 End If
    
22.                 If j - 3 = gmc Then Cells(i, j + 42) = "参照": Cells(i, j + 42).Interior.ColorIndex = 6
    
23.             Else
    
24.                 ga = Cells(i, "BB").Offset(0, gmc)
    
25.                 If Cells(i, j + 54) = ga Then
    
26.                     Cells(i, j + 42) = "等于参照": Cells(i, j + 42).Interior.ColorIndex = 8
    
27.                 ElseIf Cells(i, j + 54) > ga Then
    
28.                     Cells(i, j + 42) = "大于参照": Cells(i, j + 42).Interior.ColorIndex = 35
    
29.                 Else
    
30.                     Cells(i, j + 42) = "小于参照": Cells(i, j + 42).Interior.ColorIndex = 17
    
31.                 End If
    
32.                 If j = gmc Then Cells(i, j + 42) = "参照": Cells(i, j + 42).Interior.ColorIndex = 6
    
33.             End If
    
34.         Next
    
35.     End If
    
36. Next
    
37. End Sub
    

复制代码

jackyava

凌空一羽 发表于 2017-5-13 13:23

统一把字体颜色改成黄，应该怎么改？请老师指点，谢谢

凌空一羽

jackyava 发表于 2017-5-13 14:13
统一把字体颜色改成黄，应该怎么改？请老师指点，谢谢

'这样即可……

'Sub 凌空一羽()
Sub lkyy()
For i = 3 To 16
    If (i - 3) Mod 4 < 2 Then
        gi = Int((i + 1) / 4) * 4 - 1
        If Application.CountIf(Cells(gi, "aw").Resize(1, 3), "<1") = 1 Then
            gmin = Application.Min(Cells(gi, "aw").Resize(1, 3))
            gmc = Application.Match(gmin, Cells(gi, "aw").Resize(1, 3), 0)
        Else
            gmax = Application.Max(Cells(gi, "aw").Resize(1, 3))
            gmc = Application.Match(gmax, Cells(gi, "aw").Resize(1, 3), 0)
        End If
        For j = 1 To 6
            If j > 3 Then
                gb = Cells(i, "BG").Offset(0, gmc)
                If Cells(i, j + 56) = gb Then
                    Cells(i, j + 42) = "等于参照": Cells(i, j + 42).Interior.ColorIndex = 8: Cells(i, j + 42).Font.ColorIndex = 6
                ElseIf Cells(i, j + 56) > gb Then
                    Cells(i, j + 42) = "大于参照": Cells(i, j + 42).Interior.ColorIndex = 35: Cells(i, j + 42).Font.ColorIndex = 6
                Else
                    Cells(i, j + 42) = "小于参照": Cells(i, j + 42).Interior.ColorIndex = 17: Cells(i, j + 42).Font.ColorIndex = 6
                End If
                If j - 3 = gmc Then Cells(i, j + 42) = "参照": Cells(i, j + 42).Interior.ColorIndex = 6: Cells(i, j + 42).Font.ColorIndex = 6
            Else
                ga = Cells(i, "BB").Offset(0, gmc)
                If Cells(i, j + 54) = ga Then
                    Cells(i, j + 42) = "等于参照": Cells(i, j + 42).Interior.ColorIndex = 8: Cells(i, j + 42).Font.ColorIndex = 6
                ElseIf Cells(i, j + 54) > ga Then
                    Cells(i, j + 42) = "大于参照": Cells(i, j + 42).Interior.ColorIndex = 35: Cells(i, j + 42).Font.ColorIndex = 6
                Else
                    Cells(i, j + 42) = "小于参照": Cells(i, j + 42).Interior.ColorIndex = 17: Cells(i, j + 42).Font.ColorIndex = 6
                End If
                If j = gmc Then Cells(i, j + 42) = "参照": Cells(i, j + 42).Interior.ColorIndex = 6: Cells(i, j + 42).Font.ColorIndex = 6
            End If
        Next
    End If
Next
End Sub

jackyava

凌空一羽 发表于 2017-5-13 13:23

能不能把苹果，三星，海尔，手机，电视，冰箱这几个标题也逐行加上啊

凌空一羽

jackyava 发表于 2017-5-13 14:21
能不能把苹果，三星，海尔，手机，电视，冰箱这几个标题也逐行加上啊

字体颜色已回复，标题的怎么弄？原表格不是有的吗？是标题加上颜色吗？