Hsieh

¦^´_ 1# ¤pyoyo
¸Õ¸Õ¬Ý¦b¸Ó¤u§@ªí¼Ò²Õ¤ºªºµ{¦¡½X

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. r = Target.Row: k = Target.Column
   
3. Do Until cnt >= 1000 Or Cells(r, k).Interior.ColorIndex = 3
   
4.    cnt = cnt + Cells(r, k)
   
5.    r = r - 1
   
6.    If r < 1 Then Exit Do
   
7. Loop
   
8. If Application.Sum(Range(Cells(r + 1, k), Target)) >= 1000 Then Target.Interior.ColorIndex = 3
   
9. End Sub

½Æ»s¥N½X