按动态条件比较数值大小关系

jackyava

AF:AH列与AK：AM列为两位员工的工资奖金补助。数据量多，用函数体积变大，故求助VBA






另外添加下字体和背景颜色（详见附件）
附件 按动态条件比较数值大小关系.rar (2.93 KB, 下载次数: 15)

2017-5-20 20:12 上传

点击文件名下载附件

jackyava

哪位大神帮下忙，谢谢

bjladyfirst

工资定的好低，能很好的避税。

jackyava

bjladyfirst 发表于 2017-5-21 18:47
工资定的好低，能很好的避税。

老师能帮忙做一下吗

bjladyfirst

jackyava 发表于 2017-5-21 19:54
老师能帮忙做一下吗

我也是在学习阶段，没法上车。。。
一起努力吧。

lsc900707

帖子沉的好快，先帮顶一下。

lsc900707

1. Sub lqt()
   
2.     tms = Timer
   
3.     r = Cells(Rows.Count, 32).End(3).Row
   
4.     Range("w1:ac" & r).Clear
   
5.     arr = Range("af1:ah" & r)
   
6.     brr = Range("ak1:am" & r)
   
7.     crr = Range("w1:y" & r)
   
8.     drr = Range("aa1:ac" & r)
   
9.     Application.ScreenUpdating = False
   
10.     For i = 3 To r Step 4
    
11.         For j = 1 To 3
    
12.             If arr(i, j) <> "" And brr(i, j) <> "" Then
    
13.                 crr(i - 1, j) = arr(i - 1, j): drr(i - 1, j) = brr(i - 1, j)
    
14.                 If arr(i, 1) = brr(i, 1) Then
    
15.                      crr(i, 1) = "参照"
    
16.                      If arr(i, 2) > arr(i, 1) Then
    
17.                          crr(i, 2) = "大于参照"
    
18.                      ElseIf arr(i, 2) < arr(i, 1) Then
    
19.                          crr(i, 2) = "小于参照"
    
20.                      End If
    
21.                      If arr(i, 3) > arr(i, 1) Then
    
22.                         crr(i, 3) = "大于参照"
    
23.                      ElseIf arr(i, 3) < arr(i, 1) Then
    
24.                         crr(i, 3) = "小于参照"
    
25.                      End If
    
26.                 End If
    
27.                 If arr(i, 2) = brr(i, 2) Then
    
28.                      crr(i, 2) = "参照"
    
29.                      If arr(i, 2) < arr(i, 1) Then
    
30.                          crr(i, 1) = "大于参照"
    
31.                      ElseIf arr(i, 2) > arr(i, 1) Then
    
32.                          crr(i, 1) = "小于参照"
    
33.                      End If
    
34.                      If arr(i, 3) > arr(i, 2) Then
    
35.                          crr(i, 3) = "大于参照"
    
36.                      ElseIf arr(i, 3) < arr(i, 2) Then
    
37.                          crr(i, 3) = "小于参照"
    
38.                      End If
    
39.                 End If
    
40.                 If arr(i, 3) = brr(i, 3) Then
    
41.                      crr(i, 3) = "参照"
    
42.                      If arr(i, 1) < arr(i, 3) Then
    
43.                          crr(i, 1) = "小于参照"
    
44.                      ElseIf arr(i, 1) > arr(i, 3) Then
    
45.                          crr(i, 1) = "大于参照"
    
46.                      End If
    
47.                      If arr(i, 3) < arr(i, 2) Then
    
48.                         crr(i, 2) = "大于参照"
    
49.                      ElseIf arr(i, 3) > arr(i, 2) Then
    
50.                         crr(i, 2) = "小于参照"
    
51.                     End If
    
52.                 End If
    
53.                 If arr(i + 1, 1) = brr(i + 1, 1) Then
    
54.                      crr(i + 1, 1) = "参照"
    
55.                      If arr(i + 1, 2) > arr(i + 1, 1) Then
    
56.                          crr(i + 1, 2) = "大于参照"
    
57.                      ElseIf arr(i + 1, 2) < arr(i + 1, 1) Then
    
58.                          crr(i + 1, 2) = "小于参照"
    
59.                      End If
    
60.                      If arr(i + 1, 3) > arr(i + 1, 1) Then
    
61.                         crr(i + 1, 3) = "大于参照"
    
62.                      ElseIf arr(i + 1, 3) < arr(i + 1, 1) Then
    
63.                         crr(i + 1, 3) = "小于参照"
    
64.                      End If
    
65.                 End If
    
66.                 If arr(i + 1, 2) = brr(i + 1, 2) Then
    
67.                      crr(i + 1, 2) = "参照"
    
68.                      If arr(i + 1, 2) < arr(i + 1, 1) Then
    
69.                          crr(i + 1, 1) = "大于参照"
    
70.                      ElseIf arr(i + 1, 2) > arr(i + 1, 1) Then
    
71.                          crr(i + 1, 1) = "小于参照"
    
72.                      End If
    
73.                      If arr(i + 1, 3) > arr(i + 1, 2) Then
    
74.                          crr(i + 1, 3) = "大于参照"
    
75.                      ElseIf arr(i + 1, 3) < arr(i + 1, 2) Then
    
76.                          crr(i + 1, 3) = "小于参照"
    
77.                      End If
    
78.                 End If
    
79.                 If arr(i + 1, 3) = brr(i + 1, 3) Then
    
80.                      crr(i + 1, 3) = "参照"
    
81.                      If arr(i + 1, 1) < arr(i + 1, 3) Then
    
82.                          crr(i + 1, 1) = "小于参照":
    
83.                      ElseIf arr(i + 1, 1) > arr(i + 1, 3) Then
    
84.                          crr(i + 1, 1) = "大于参照"
    
85.                      End If
    
86.                      If arr(i + 1, 3) < arr(i + 1, 2) Then
    
87.                         crr(i + 1, 2) = "大于参照"
    
88.                      ElseIf arr(i + 1, 3) > arr(i + 1, 2) Then
    
89.                         crr(i + 1, 2) = "小于参照"
    
90.                     End If
    
91.                 End If
    
92.                 If arr(i, 1) = brr(i, 1) Then
    
93.                       drr(i, 1) = "参照"
    
94.                      If brr(i, 2) > brr(i, 1) Then
    
95.                           drr(i, 2) = "大于参照"
    
96.                      ElseIf brr(i, 2) < brr(i, 1) Then
    
97.                           drr(i, 2) = "小于参照"
    
98.                      End If
    
99.                      If brr(i, 3) > brr(i, 1) Then
    
100.                          drr(i, 3) = "大于参照"
     
101.                      ElseIf brr(i, 3) < brr(i, 1) Then
     
102.                         drr(i, 3) = "小于参照"
     
103.                      End If
     
104.                 End If
     
105.                 If arr(i, 2) = brr(i, 2) Then
     
106.                       drr(i, 2) = "参照"
     
107.                      If brr(i, 2) < brr(i, 1) Then
     
108.                           drr(i, 1) = "大于参照"
     
109.                      ElseIf brr(i, 2) > brr(i, 1) Then
     
110.                           drr(i, 1) = "小于参照"
     
111.                      End If
     
112.                      If brr(i, 3) > brr(i, 2) Then
     
113.                           drr(i, 3) = "大于参照"
     
114.                      ElseIf brr(i, 3) < brr(i, 2) Then
     
115.                           drr(i, 3) = "小于参照"
     
116.                      End If
     
117.                 End If
     
118.                 If arr(i, 3) = brr(i, 3) Then
     
119.                       drr(i, 3) = "参照"
     
120.                      If brr(i, 1) < brr(i, 3) Then
     
121.                           drr(i, 1) = "小于参照"
     
122.                      ElseIf brr(i, 1) > brr(i, 3) Then
     
123.                           drr(i, 1) = "大于参照"
     
124.                      End If
     
125.                      If brr(i, 3) < brr(i, 2) Then
     
126.                          drr(i, 2) = "大于参照"
     
127.                      ElseIf brr(i, 3) > brr(i, 2) Then
     
128.                          drr(i, 2) = "小于参照"
     
129.                     End If
     
130.                 End If
     
131.                 If arr(i + 1, 1) = brr(i + 1, 1) Then
     
132.                       drr(i + 1, 1) = "参照"
     
133.                      If brr(i + 1, 2) > brr(i + 1, 1) Then
     
134.                          drr(i + 1, 2) = "大于参照"
     
135.                      ElseIf brr(i + 1, 2) < brr(i + 1, 1) Then
     
136.                           drr(i + 1, 2) = "小于参照"
     
137.                      End If
     
138.                      If brr(i + 1, 3) > brr(i + 1, 1) Then
     
139.                          drr(i + 1, 3) = "大于参照"
     
140.                      ElseIf brr(i + 1, 3) < brr(i + 1, 1) Then
     
141.                          drr(i + 1, 3) = "小于参照"
     
142.                      End If
     
143.                 End If
     
144.                 If arr(i + 1, 2) = brr(i + 1, 2) Then
     
145.                       drr(i + 1, 2) = "参照"
     
146.                      If brr(i + 1, 2) < brr(i + 1, 1) Then
     
147.                           drr(i + 1, 1) = "大于参照"
     
148.                      ElseIf brr(i + 1, 2) > brr(i + 1, 1) Then
     
149.                           drr(i + 1, 1) = "小于参照"
     
150.                      End If
     
151.                      If brr(i + 1, 3) > brr(i + 1, 2) Then
     
152.                           drr(i + 1, 3) = "大于参照"
     
153.                      ElseIf brr(i + 1, 3) < brr(i + 1, 2) Then
     
154.                           drr(i + 1, 3) = "小于参照"
     
155.                      End If
     
156.                 End If
     
157.                 If arr(i + 1, 3) = brr(i + 1, 3) Then
     
158.                       drr(i + 1, 3) = "参照"
     
159.                      If brr(i + 1, 1) < brr(i + 1, 3) Then
     
160.                           drr(i + 1, 1) = "小于参照"
     
161.                      ElseIf brr(i + 1, 1) > brr(i + 1, 3) Then
     
162.                           drr(i + 1, 1) = "大于参照"
     
163.                      End If
     
164.                      If brr(i + 1, 3) < brr(i + 1, 2) Then
     
165.                         drr(i + 1, 2) = "大于参照"
     
166.                      ElseIf brr(i + 1, 3) > brr(i + 1, 2) Then
     
167.                          drr(i + 1, 2) = "小于参照"
     
168.                     End If
     
169.                 End If
     
170.             End If
     
171.         Next
     
172.     Next
     
173.     Range("w1:y" & r) = crr
     
174.     Range("aa1:ac" & r) = drr
     
175.     With [w1].Resize(r, 3)
     
176.         For i = 3 To r Step 4
     
177.             .Cells(i, 1).Resize(2, 3).Font.Bold = True
     
178.             .Cells(i, 1).Resize(2, 3).HorizontalAlignment = xlCenter
     
179.         Next
     
180.         For i = 3 To r
     
181.             For j = 1 To 3
     
182.                 With .Cells(i, j)
     
183.                     If crr(i, j) = "大于参照" Then
     
184.                         .Font.ColorIndex = 6
     
185.                         .Interior.ColorIndex = 3
     
186.                     ElseIf crr(i, j) = "小于参照" Then
     
187.                         .Font.ColorIndex = 6
     
188.                         .Interior.ColorIndex = 7
     
189.                     ElseIf crr(i, j) = "参照" Or crr(i, j) = "等于参照" Then
     
190.                         .Font.ColorIndex = 1
     
191.                         .Interior.ColorIndex = 40
     
192.                     End If
     
193.                 End With
     
194.             Next
     
195.         Next
     
196.     End With
     
197.     With [aa1].Resize(r, 3)
     
198.         For i = 3 To r Step 4
     
199.             .Cells(i, 1).Resize(2, 3).Font.Bold = True
     
200.             .Cells(i, 1).Resize(2, 3).HorizontalAlignment = xlCenter
     
201.         Next
     
202.         For i = 3 To r
     
203.             For j = 1 To 3
     
204.                 With .Cells(i, j)
     
205.                     If drr(i, j) = "大于参照" Then
     
206.                         .Font.ColorIndex = 6
     
207.                         .Interior.ColorIndex = 3
     
208.                     ElseIf drr(i, j) = "小于参照" Then
     
209.                         .Font.ColorIndex = 6
     
210.                         .Interior.ColorIndex = 7
     
211.                     ElseIf drr(i, j) = "参照" Or crr(i, j) = "等于参照" Then
     
212.                         .Font.ColorIndex = 1
     
213.                         .Interior.ColorIndex = 40
     
214.                     End If
     
215.                 End With
     
216.             Next
     
217.         Next
     
218.     End With
     
219.     Application.ScreenUpdating = True
     
220.     MsgBox "比较完成！耗时：" & Timer - tms & "秒"
     
221. End Sub

复制代码

用个笨办法，终于勉强完成了：

lsc900707

可能有更简便的方法，我可能走了弯路，呵呵。

jackyava

lsc900707 发表于 2017-5-22 21:03
可能有更简便的方法，我可能走了弯路，呵呵。

老师的代码，有错误的地方

lsc900707

jackyava 发表于 2017-5-22 21:46
老师的代码，显示不出等于参照点

当时看附件没有，所以没加这个，确实疏忽了。