½Ð°Ý¦Û­q®æ¦¡°ÝÃD

danny001

¦pA1:A500®æ¤º§Ú·Q¿é¤J50¦Û°Ê´î20­n¦p¦ó°µ£z
¦Û­qÀx¦s®æ¦n¹³°µ¤£¨ì³o­Ó¥\¯à³á!!
½Ð°Ý¦³§Oªº¿ìªk£z¡A¥Ø«e§Ú¬O¨Ï¥Î¦bB2Äæ¦ì¼g=20-A1

kimbal

¦Û­q®æ¦¡¤£¯à§ï°Ê­È,
¦pªGı±o¤½¦¡¤£¤è«K, ¥i¥H¦Ò¼{¤@¤U¥Î¥N½X:

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3.     For Each c In Target
   
4.         If c.Column = 1 And (c.Row >= 1) And (c.Row <= 500) Then
   
5.                 c.Value = c.Value - 20
   
6.         End If
   
7.     Next
   
8.     Application.EnableEvents = True
   
9. End Sub

½Æ»s¥N½X