想用VBA累加判断

zcyang668

不好意思，之前描述有误，因为正数不能参与计算，有影响，所以我先进行了清理，把正数全部清零，然后根据大神们的代码写了个循环，只用同一行负数依次累加作比较然后填充颜色，大神能不能简化一下

更新：
这次调用了sum函数
Sub 数据()
Dim i%
Dim rng As Range
For Each rng In Range("B2:L50")
If rng.Value > 0 Then
rng.Value = 0
End If
Next
For i = 2 To [a65536].End(3).Row
If (Range("b" & i) < 0 And Range("b" & i) + Range("Q" & i) > 0) Then
    Range("b" & i).FormatConditions.Delete
    Range("b" & i).Interior.ColorIndex = 10
End If
If (Range("C" & i) < 0 And Application.Sum(Range("b" & i & ": C" & i)) + Range("Q" & i) > 0) Then
    Range("c" & i).FormatConditions.Delete
    Range("c" & i).Interior.ColorIndex = 10
End If
If (Range("D" & i) < 0 And Application.Sum(Range("b" & i & ": D" & i)) + Range("Q" & i) > 0) Then
    Range("D" & i).FormatConditions.Delete
    Range("D" & i).Interior.ColorIndex = 10
End If
If (Range("E" & i) < 0 And Application.Sum(Range("b" & i & ": E" & i)) + Range("Q" & i) > 0) Then
    Range("E" & i).FormatConditions.Delete
    Range("E" & i).Interior.ColorIndex = 10
End If
If (Range("F" & i) < 0 And Application.Sum(Range("b" & i & ": F" & i)) + Range("Q" & i) > 0) Then
    Range("F" & i).FormatConditions.Delete
    Range("F" & i).Interior.ColorIndex = 10
End If
If (Range("G" & i) < 0 And Application.Sum(Range("b" & i & ": G" & i)) + Range("Q" & i) > 0) Then
    Range("G" & i).FormatConditions.Delete
    Range("G" & i).Interior.ColorIndex = 10
End If
If (Range("H" & i) < 0 And Application.Sum(Range("b" & i & ": H" & i)) + Range("Q" & i) > 0) Then
    Range("H" & i).FormatConditions.Delete
    Range("H" & i).Interior.ColorIndex = 10
End If
If (Range("I" & i) < 0 And Application.Sum(Range("b" & i & ": I" & i)) + Range("Q" & i) > 0) Then
    Range("I" & i).FormatConditions.Delete
    Range("I" & i).Interior.ColorIndex = 10
End If
If (Range("J" & i) < 0 And Application.Sum(Range("b" & i & ": J" & i)) + Range("Q" & i) > 0) Then
    Range("J" & i).FormatConditions.Delete
    Range("J" & i).Interior.ColorIndex = 10
End If
If (Range("K" & i) < 0 And Application.Sum(Range("b" & i & ": K" & i)) + Range("Q" & i) > 0) Then
    Range("K" & i).FormatConditions.Delete
    Range("K" & i).Interior.ColorIndex = 10
End If
If (-Range("l" & i) < Range("Q" & i)) Then
    Range("l" & i).FormatConditions.Delete
    Range("l" & i).Interior.ColorIndex = 10
End If
Next
End Sub

qingc0221

没看表格,感觉在一个for循环里面对条件一一判断就好了

719404338

1. '表格中的数据如果B2<0且-B2<L2则B2填充绿色
   
2. ' 如果 -(B2 + C2) < L2
   
3. ' 则C2也填充绿色
   
4. ' 如果 -(B2 + C2 + D2) < L2
   
5. ' 则D2也填充绿色
   
6. Sub t()
   
7. Dim i%
   
8. For i = 2 To [a65536].End(3).Row
   
9. If (Range("b" & i) < 0 And Range("b" & i) + Range("l" & i) > 0) Then
   
10. Range("b" & i).Interior.ColorIndex = 10
    
11. End If
    
12. If Range("b" & i) + Range("c" & i) > -Range("l" & i) Then
    
13. Range("c" & i).Interior.ColorIndex = 10
    
14. End If
    
15. If (Range("b" & i) + Range("c" & i) + Range("d" & i) > -Range("l" & i)) Then
    
16. Range("d" & i).Interior.ColorIndex = 10
    
17. End If
    
18. Next
    
19. End Sub
    

复制代码

chis3

Sub test()
    Dim arr
    Dim i As Integer
    arr = [a1].CurrentRegion
    For i = 2 To UBound(arr)
        If arr(i, 12) > arr(i, 2) And arr(i, 12) > (arr(i, 2) + arr(i, 3)) And arr(i, 12) > (arr(i, 2) + arr(i, 3) + arr(i, 4)) Then
            Cells(i, 2).Resize(1, 3).Interior.Color = vbGreen
        End If
    Next i
End Sub

chis3

你的代碼語法錯漏百出啊
string 也用來循環,建議先學好基礎啊

MOY838840554

表格中的数据如果B2<0且-B2<L2则B2填充绿色
这描述没问题么，那你模拟的数据没有符合的

hzruziniu

Private Sub CommandButton1_Click()
    Dim r&, i&
    r = Range("a65536").End(3).Row
    For i = 2 To r
    If Cells(i, 2) + Cells(i, 3) < Cells(i, 12) Then
        Cells(i, 3).Interior.ColorIndex = 38
    End If
    If Cells(i, 2) + Cells(i, 3) + Cells(i, 4) < Cells(i, 12) Then
        Cells(i, 4).Interior.ColorIndex = 38
    End If
    Next
End Sub

MOY838840554

基础语法都不对，B和L是字母怎么循环，ST是变量就不能加双引号

zcyang668

MOY838840554 发表于 2019-1-19 17:42
基础语法都不对，B和L是字母怎么循环，ST是变量就不能加双引号

额 里边写的那个不是 写到崩的副产物

zcyang668

chis3 发表于 2019-1-19 17:08
你的代碼語法錯漏百出啊
string 也用來循環,建議先學好基礎啊

不是不是 剩下的是瞎写的