GBKEE

¦^´_ 5# hugh0620

1. Private Sub CommandButton1_Click()  '¶×¥X¸ê®Æ
   
2.     Dim Ed As Range, B As Range, S As Integer
   
3.     Set Ed = Sheet2.Range("B3")
   
4.     Set B = Sheet1.Range("C3:C34").Find(Ed)
   
5.     If B Is Nothing Then MsgBox "§ä¤£¨ì " & Ed: Exit Sub
   
6.     B.Offset(0, 1) = Ed.Offset(0, 1)
   
7.     For Each C In Sheet1.Range("C3", B)
   
8.         C.Offset(, 3) = S + C.Offset(, 1)
   
9.         S = S + C.Offset(, 1)
   
10.     Next
    
11. End Sub

½Æ»s¥N½X