多条件单元格变色

懒懒熊

请求大神帮忙，我自己写了一个代码，但是不好用。请大神帮忙看看哪里出了问题

急！在线等哈

懒懒熊

大侠们帮帮忙

onlycxb

1. Sub test()
   
2. 
   
3. Dim m, n
   
4.   m = [D65535].End(xlUp).Row
   
5.   For n = 4 To m
   
6.     With Range("D" & n)
   
7.       If .Value <> "" Then
   
8.       
   
9.        Rem 大于红上,或者小于红下,红底白字
   
10.         If .Value > Cells(n, "F") Or .Value < Cells(n, "J") Then
    
11.                 .Interior.Color = vbRed
    
12.                 .Font.Color = vbWhite
    
13.         End If
    
14.       
    
15.        Rem 以下略
    
16.       
    
17.       
    
18.    
    
19.       End If
    
20.     End With
    
21. Next
    
22. End Sub
    
23. 
    

复制代码

lsdongjh

1. Sub Test2()
   
2.     Dim lngRows As Long
   
3.     Dim arr As Variant, dblVal As Double
   
4.     Dim dblRedMax As Double, dblRedMin As Double, dblYelMax As Double, dblYelMin As Double
   
5.     Dim varFontColor As Variant, varBackColor As Variant
   
6.    
   
7.     lngRows = Sheet1.Range("D" & Rows.Count).End(xlUp).Row
   
8.     arr = Sheet1.Range("D4:M" & lngRows)
   
9.    
   
10.     For lngRows = LBound(arr) To UBound(arr)
    
11.         dblRedMax = arr(lngRows, 3)
    
12.         dblYelMax = arr(lngRows, 4)
    
13.         dblYelMin = arr(lngRows, 5)
    
14.         dblRedMin = arr(lngRows, 6)
    
15.         
    
16.         dblVal = arr(lngRows, 1)
    
17.         
    
18.         Select Case dblVal
    
19.             Case Is > dblRedMax '大于红上
    
20.                 varBackColor = vbRed
    
21.                 varFontColor = vbWhite
    
22.             Case Is >= dblYelMax '大于等于黄上，小于等于红上
    
23.                 varBackColor = vbYellow
    
24.                 varFontColor = vbBlack
    
25.             Case Is >= dblYelMin '大于等于黄下，小于黄上
    
26.                 varBackColor = vbGreen
    
27.                 varFontColor = vbWhite
    
28.             Case Is >= dblRedMin '大于等于红下，小于黄下
    
29.                 varBackColor = vbYellow
    
30.                 varFontColor = vbBlack
    
31.              Case Is < dblRedMin '小于红下
    
32.                 varBackColor = vbRed
    
33.                 varFontColor = vbWhite
    
34.         End Select
    
35.         
    
36.         With Sheet1.Range("D" & lngRows + 3)
    
37.             .Font.Color = varFontColor
    
38.             .Interior.Color = varBackColor
    
39.         End With
    
40.     Next
    
41.    
    
42. End Sub

复制代码

lsdongjh

lsdongjh

更简明的逻辑方式：