[µo°Ý] ¼ÆÀx¦s®æÃC¦â¼Æ¥Ø¡C

stephenlee

§Ú­n¦b AÄæ¦ÜJÄ椤¼Æ¦³ÃC¦âªºÀx¦s®æ¼Æ¥Ø¡C(¥u¦³¤@´Ú¶À¦â)
·í«ö¤U«ö¶s«á,«K·|´£¥Ü ¦³¦h¤Ö­Ó¼Æ¥Ø¡C
¦bºô¤W§ä¨ì¥H¤U¸ê®Æ,¦ý¬O©T©w¤F¦b²Ä¤GÄæ,½Ð°Ý¦p¦ó°µ¨ì ¥ÑAÄæ¦ÜJÄæ, §ä¨ì¦³ÃC¦âªºÀx¦s®æ«á,±N¼Æ¥Ø¥Îmsgbox ´£¥Ü¥X¨Ó¡CÁÂÁÂ


Sub test()
Dim sum As Long, Count As Long


sum = 0
Count = 0

For i = 1 To 10

If Cells(i, 2).Interior.ColorIndex = 6 Then

sum = sum + Cells(i, 2).Value

Count = Count + 1

End If

Next i


MsgBox Count & "  different Finds"

End sub

·L­·

1. Sub test()
   
2. Dim sum As Long, Count As Long
   
3. 
   
4. 
   
5. sum = 0
   
6. Count = 0
   
7. 
   
8. For i = 1 To 10
   
9. 
   
10. For j = 1 To 10
    
11. 
    
12. If Cells(i, j).Interior.ColorIndex = 6 Then
    
13. 
    
14. sum = sum + Cells(i, j).Value
    
15. 
    
16. Count = Count + 1
    
17. 
    
18. End If
    
19. 
    
20. Next j
    
21. 
    
22. Next i
    
23. 
    
24. 
    
25. MsgBox Count & "  different Finds"
    
26. 
    
27. End Sub

½Æ»s¥N½X

¦^´_ 1# stephenlee