求多行、多列的和并进行判断

15108356258

当行号为白色单元格所在的行时（即2-4行、6-11行、13-15行），判断B列是否等于C+D+E列，如果是，在F列输出是，否则输出否。
当列号为白色单元格所在的列时（即I-J列、L-M列、O-P列），判断第5行是否等于1+2+3+4行，如果是，在第6行输出是，否则输出否。
如果行号为黄色行列或者其他行列，则不参与判断与输出

15108356258

求助以上判断的VBA代码该如何写

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   With Worksheets("sheet1")
   
4.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.     For i = 1 To r
   
6.       If .Cells(i, 6).Interior.ColorIndex <> 6 Then
   
7.         If .Cells(i, 2).Value = Application.Sum(.Cells(i, 3).Resize(1, 3)) Then
   
8.           .Cells(i, 6) = "是"
   
9.         Else
   
10.           .Cells(i, 6) = "否"
    
11.         End If
    
12.       End If
    
13.     Next
    
14.     c = .Cells(1, .Columns.Count).End(xlToLeft).Column
    
15.     For j = 9 To c
    
16.       If .Cells(1, j).Interior.ColorIndex <> 6 Then
    
17.         If .Cells(5, j).Value = Application.Sum(.Cells(1, j).Resize(4, 1)) Then
    
18.           .Cells(6, j) = "是"
    
19.         Else
    
20.           .Cells(6, j) = "否"
    
21.         End If
    
22.       End If
    
23.     Next
    
24.   End With
    
25. End Sub
    

复制代码

chxw68

详见附件。

15108356258

chxw68 发表于 2020-2-13 16:46
详见附件。

  感谢感谢！！！！！！！！！我是新人，不知道怎么送花~

15108356258

chxw68 发表于 2020-2-13 16:46
详见附件。

我刚刚看了，您的回帖是通过判断单元格颜色来达到效果的。如果不是按照颜色，怎么样跳选 2-4行、6-11行、13-15行呢

15108356258

chxw68 发表于 2020-2-13 16:46
详见附件。

我想做个这个循环判断，红色的部分一直报错，我不知道怎么写，您能帮我优化一下吗。

chxw68

15108356258 发表于 2020-2-13 18:11
我想做个这个循环判断，红色的部分一直报错，我不知道怎么写，您能帮我优化一下吗。

看看基础知识吧！写代码不是想当然的。

15108356258

chxw68 发表于 2020-2-13 18:27
看看基础知识吧！写代码不是想当然的。

谢谢~有机会我慢慢学习~~~