c_c_lai

¦^´_ 3# owen06
¥[¤W Dim i As Integer ´N OK ¤F¡I

1. Option Explicit
   
2. 'EnableEvents ÄÝ©Ê  ¦pªG«ü©wª«¥ó¯àIJµo¨Æ¥ó¡A«h¥»Äݩʬ° True¡CŪ/¼g Boolea
   
3. 'ª«¥ó¯àIJµo¨Æ¥ó ->  ±Ò°Êª«¥óªº¹w³]µ{§Ç
   
4. Private Sub Worksheet_Change(ByVal Target As Range)  'Worksheet_Change ¤u§@ªíÀx¦s®æ¦³­×§ïªº¹w³]µ{§Ç
   
5.     Dim i As Integer
   
6.     Application.EnableEvents = False                 '°±¤î: IJµo¨Æ¥ó
   
7.     For i = 1 To 10
   
8.         Cells(i, 3) = Cells(i, 2) + Cells(i, 1)
   
9.     Next
   
10.     Application.EnableEvents = True                    ''±Ò°Ê: IJµo¨Æ¥ó
    
11. End Sub

½Æ»s¥N½X