[已解决]请帅老师进来解释代码？

hahada

cs = cs + 1和 hj = hj + Cells(i, 2) 是怎么循环的，详细解释下？
Sub 统计2()
    row1 = [A65536].End(xlUp).Row
        For i = 5 To row1
        If Cells(i, 3) = "aa" Or Cells(i, 3) = "bb" Or Cells(i, 3) = "dd" Then
            cs = cs + 1
            hj = hj + Cells(i, 2)
        End If
    Next i
    [a2] = cs
    [b2] = hj
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-25 20:53

cs = cs + 1
hj = hj + Cells(i, 2)

这两个是做计数和累计求和用的。

跳转到最佳答案楼层

hwc2ycy

cs = cs + 1
hj = hj + Cells(i, 2)

这两个是做计数和累计求和用的。

hwc2ycy

If Cells(i, 3) = "aa" Or Cells(i, 3) = "bb" Or Cells(i, 3) = "dd"
如果I行3列的内容为aa,bb,dd时就进行计数，累加操作。

hwc2ycy

1. Sub 统计2()
   
2.     row1 = [A65536].End(xlUp).Row
   
3.     For i = 5 To row1
   
4.         If Cells(i, 3) = "aa" Or Cells(i, 3) = "bb" Or Cells(i, 3) = "dd" Then
   
5.             cs = cs + 1
   
6.             hj = hj + Cells(i, 2)
   
7.             Debug.Print "cs:" & cs, "hj:" & hj
   
8.         End If
   
9.     Next i
   
10.     [a2] = cs
    
11.     [b2] = hj
    
12. End Sub

复制代码

你看看立即窗体的输出。

hahada

hwc2ycy 发表于 2013-5-25 21:03
你看看立即窗体的输出。

打开立即窗口怎么用？

hwc2ycy

代码运行后，直接看上面的显示。
Debug.Print "cs:" & cs, "hj:" & hj
这行代码会把当前的CS值和HJ的值输出在立即窗口的。