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

[µo°Ý] ·Q¤£©ú¥Õ¬°¦óµ{¦¡·|¶i¤JµL½u°j°é

¦ÒÃD¨Ó¤F !!

¥¿±`¤UÀ³¸Ó¦p(1) ¤@¼Ë³´¤JµL½a¦^°é
¦³¨S¦³¤Hª¾¹D¬°¦ó (2) «o¤£·|³´¤JµL½a¦^°é

(1)
Private Sub Worksheet_Change(ByVal Target As Range)
  For w = 1 To 2
  [A1] = Val([A1]) + 1
  Next
End Sub

(2)
Private Sub Worksheet_Change(ByVal Target As Range)
  For w = 1 To 1
  [A1] = Val([A1]) + 1
  Next
End Sub

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD