ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

¦Û­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
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD