[已解决]求教【B列数据累计和大于等于100；A列日期行标记为红色】

eikok

B列数据累计和大于等于100；A列日期行标记为红色.rar (6.47 KB, 下载次数: 11)

2017-7-8 09:11 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

chart888

2017-7-8 09:20

1. Sub test()
   
2. Dim Arr, i
   
3. Arr = ActiveSheet.Range("A1:B" & ActiveSheet.Cells(Rows.Count, 2).End(3).Row)
   
4. For i = 1 To UBound(Arr)
   
5.     s = s + Arr(i, 2)
   
6.     If s > 100 Then
   
7.         ActiveSheet.Rows(i).Interior.ColorIndex = 3
   
8.         Exit For
   
9.     End If
   
10. Next
    
11. End Sub

复制代码

跳转到最佳答案楼层

chart888

1. Sub test()
   
2. Dim Arr, i
   
3. Arr = ActiveSheet.Range("A1:B" & ActiveSheet.Cells(Rows.Count, 2).End(3).Row)
   
4. For i = 1 To UBound(Arr)
   
5.     s = s + Arr(i, 2)
   
6.     If s > 100 Then
   
7.         ActiveSheet.Rows(i).Interior.ColorIndex = 3
   
8.         Exit For
   
9.     End If
   
10. Next
    
11. End Sub

复制代码

eikok

chart888 发表于 2017-7-8 09:20

B列数据累计和大于等于100；A列日期行标记为红色【求修改】.rar (15.18 KB, 下载次数: 4)

2017-8-6 10:06 上传

点击文件名下载附件

Banieliang

Sub test()
Dim Arr, i
Arr = ActiveSheet.Range("A1:B" & ActiveSheet.Cells(Rows.Count, 2).End(3).Row)
For i = 1 To UBound(Arr)
    s = s + Arr(i, 2)
    If s > 100 Then
        ActiveSheet.Range("A" & i).Interior.ColorIndex = 3
        Exit For
    End If
Next
End Sub

chart888

eikok 发表于 2017-8-6 10:06

1. Sub dy100()
   
2. Dim Arr, i
   
3. Arr = ActiveSheet.Range("A1:B" & ActiveSheet.Cells(Rows.Count, 2).End(3).Row)
   
4. For i = 2 To UBound(Arr)
   
5.     s = s + Arr(i, 2)
   
6.     If s > 100 Then
   
7.         ActiveSheet.Rows(i).Interior.ColorIndex = 3
   
8.         Exit For
   
9.     End If
   
10. Next
    
11. End Sub

复制代码