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

jackyava

AW:AY列的数值均大于零，为两个大于1的数和一个小于1的数；或者为两个小于1的数和一个大于1的数。
数值的位置不固定，没有全大于1或者全小于1的情况。

BC列与AW列对应，BD列与AX列对应，BE列与AY列对应。
同样，BH列与AW列对应，BI列与AX列对应，BJ列与AY列对应.

AW：AY中唯一的大于1的数或者唯一的小于1的数作为参照点，判断与之对应的BC:BE非参照点与参照点之间的大小关系，
以及判断BH:BJ非参照点与参照点的大小关系。将比较结果显示在AQ:AV列


附件中有详细说明，并附有公式说明。数据量太大，用公式的话，工作表运行很慢，故求助VBA。
附件
按条件比较数值大小.rar (7.16 KB, 下载次数: 15)

2017-5-13 06:49 上传

点击文件名下载附件

凌空一羽

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.         gmin = Application.Min(Cells(gi, "aw").Resize(1, 3))
   
6.         gminc = Application.Match(gmin, Cells(gi, "aw").Resize(1, 3), 0)
   
7.         For j = 1 To 6
   
8.             If j > 3 Then
   
9.                 gb = Cells(i, "BG").Offset(0, gminc)
   
10.                 If Cells(i, j + 56) = gb Then
    
11.                     Cells(i, j + 42) = "参照": Cells(i, j + 42).Interior.ColorIndex = 8
    
12.                 ElseIf Cells(i, j + 56) > gb Then
    
13.                     Cells(i, j + 42) = "大于参照": Cells(i, j + 42).Interior.ColorIndex = 35
    
14.                 Else
    
15.                     Cells(i, j + 42) = "小于参照": Cells(i, j + 42).Interior.ColorIndex = 17
    
16.                 End If
    
17.             Else
    
18.                 ga = Cells(i, "BB").Offset(0, gminc)
    
19.                 If Cells(i, j + 54) = ga Then
    
20.                     Cells(i, j + 42) = "参照": Cells(i, j + 42).Interior.ColorIndex = 8
    
21.                 ElseIf Cells(i, j + 54) > ga Then
    
22.                     Cells(i, j + 42) = "大于参照": Cells(i, j + 42).Interior.ColorIndex = 35
    
23.                 Else
    
24.                     Cells(i, j + 42) = "小于参照": Cells(i, j + 42).Interior.ColorIndex = 17
    
25.                 End If
    
26.             End If
    
27.         Next
    
28.     End If
    
29. Next
    
30. End Sub
    

复制代码

蓝桥玄霜

请见代码。

jackyava

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

老乔老师，请传下附件呗，谢谢

凌空一羽

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

版主，请问，你这是递归吗？晕，一直在学递归，就是差临门一脚……

jackyava

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

老师，你这个代码没考虑等于的情况

jackyava

凌空一羽 发表于 2017-5-13 10:50
版主，请问，你这是递归吗？晕，一直在学递归，就是差临门一脚……

老师您的代码好像没考虑等于的情况，能否修改一下，谢谢

凌空一羽

jackyava 发表于 2017-5-13 10:55
老师您的代码好像没考虑等于的情况，能否修改一下，谢谢

不好意思，做的时候，粗心了……
代码如下：

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.         gmin = Application.Min(Cells(gi, "aw").Resize(1, 3))
   
6.         gminc = Application.Match(gmin, Cells(gi, "aw").Resize(1, 3), 0)
   
7.         For j = 1 To 6
   
8.             If j > 3 Then
   
9.                 gb = Cells(i, "BG").Offset(0, gminc)
   
10.                
    
11.                 If Cells(i, j + 56) = gb Then
    
12.                     Cells(i, j + 42) = "等于参照": Cells(i, j + 42).Interior.ColorIndex = 8
    
13.                 ElseIf Cells(i, j + 56) > gb Then
    
14.                     Cells(i, j + 42) = "大于参照": Cells(i, j + 42).Interior.ColorIndex = 35
    
15.                 Else
    
16.                     Cells(i, j + 42) = "小于参照": Cells(i, j + 42).Interior.ColorIndex = 17
    
17.                 End If
    
18.                 If j - 3 = gminc Then Cells(i, j + 42) = "参照": Cells(i, j + 42).Interior.ColorIndex = 6
    
19.             Else
    
20.                 ga = Cells(i, "BB").Offset(0, gminc)
    
21.                
    
22.                 If Cells(i, j + 54) = ga Then
    
23.                     Cells(i, j + 42) = "等于参照": Cells(i, j + 42).Interior.ColorIndex = 8
    
24.                 ElseIf Cells(i, j + 54) > ga Then
    
25.                     Cells(i, j + 42) = "大于参照": Cells(i, j + 42).Interior.ColorIndex = 35
    
26.                 Else
    
27.                     Cells(i, j + 42) = "小于参照": Cells(i, j + 42).Interior.ColorIndex = 17
    
28.                 End If
    
29.                 If j = gminc Then Cells(i, j + 42) = "参照": Cells(i, j + 42).Interior.ColorIndex = 6
    
30.             End If
    
31.         Next
    
32.     End If
    
33. Next
    
34. End Sub

复制代码

jackyava

凌空一羽 发表于 2017-5-13 11:04
不好意思，做的时候，粗心了……
代码如下：

老师的代码还是显示不出来“等于”的情况，请测试一下，谢谢第二组，两个值都是1的时候，显示的是小于

凌空一羽

有等于的情况啊，请看看