luhpro

¦^´_ 10# ÂŤÑÄR¦À
³o¸Ì´£¨Ñ¥t¥~¤@­Ó¤èªk¨Ó¹ê²{ :

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.   Application.EnableEvents = False
   
3.    
   
4.   With Target
   
5.     If .Row < 50001 Then
   
6.       Select Case .Column
   
7.       Case 5 To 7
   
8.         .Parent.Cells(.Row, 8) = .Offset(0, -1) + .Offset(0, -2)
   
9.       End Select
   
10.     End If
    
11.   End With
    
12.   
    
13.   Application.EnableEvents = True
    
14. End Sub

½Æ»s¥N½X