|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
这次代码应该没错吧……
请看看
- Sub 凌空一羽()
- 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
- ElseIf Cells(i, j + 56) > gb Then
- Cells(i, j + 42) = "大于参照": Cells(i, j + 42).Interior.ColorIndex = 35
- Else
- Cells(i, j + 42) = "小于参照": Cells(i, j + 42).Interior.ColorIndex = 17
- End If
- If j - 3 = gmc Then Cells(i, j + 42) = "参照": Cells(i, j + 42).Interior.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
- ElseIf Cells(i, j + 54) > ga Then
- Cells(i, j + 42) = "大于参照": Cells(i, j + 42).Interior.ColorIndex = 35
- Else
- Cells(i, j + 42) = "小于参照": Cells(i, j + 42).Interior.ColorIndex = 17
- End If
- If j = gmc Then Cells(i, j + 42) = "参照": Cells(i, j + 42).Interior.ColorIndex = 6
- End If
- Next
- End If
- Next
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|