GBKEE

¦^´_ 10# ÂŤÑÄR¦À

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     Application.EnableEvents = False
   
4.     If Not Intersect(Target, [E1:E50000]) Is Nothing Or Not Intersect(Target, [G1:G50000]) Is Nothing Then
   
5.       ' Range("H" & Target.Row).Formula = "=RC[-1]+RC[-2]"
   
6.          With Range("H" & Target.Row)
   
7.             ' .Formula = "=RC[-1]+RC[-2]" ' =>  .Value = "=RC[-1]+RC[-2]"
   
8.             .Value = .Offset(0, -1) + .Offset(0, -2)
   
9.             'RC[-1] => .Offset(0, -1)
   
10.             'RC[-2] => .Offset(0, -2)
    
11.         End With
    
12.     End If
    
13.     Application.EnableEvents = True
    
14. End Sub

½Æ»s¥N½X

ÂŤÑÄR¦À

¦^´_ 11# GBKEE


    G¤j¡A©êºp¤p§Ì¤~²¨¾Ç²L¡A¥i¥H½ÐG¤j»¡©ú¤@¤U¶Ü??
    «°¥«¸Ì­±¤Ó¦h³o­Ó'¡A§Ú¤£ª¾¹D­n«ç»ò¬Ý¡A­þ¨Ç¬O­nªº­þ¨Ç¬O¤£»Ý­nªº??

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

GBKEE

¦^´_ 12# ÂŤÑÄR¦À
¤Ó¦h³o­Ó'

³o¬OVBAªºª`¸Ñ²Å¸¹

ÂŤÑÄR¦À

¦^´_ 13# luhpro


    ·PÁ¤j¤j§Úª¾¹D¤F