wwh126

¦^´_ 9# GBKEE


  ¹B¦æ§_¨ì.

AÄæ                      B Äæ
·í«e®É¶¡           ¤j©ó¹sªº¼Æ¦r
·í«e®É¶¡           ¤j©ó¹sªº¼Æ¦r
·í«e®É¶¡           ¤j©ó¹sªº¼Æ¦r
·í«e®É¶¡           ¤j©ó¹sªº¼Æ¦r
·í«e®É¶¡           ¤j©ó¹sªº¼Æ¦r
·í«e®É¶¡           ¤j©ó¹sªº¼Æ¦r

§Ú·Q¬O©óB Ä楴¤W¼Æ¦r®É¡AA Äæ¥ß§Y¥X²{·í«e®É¶¡!
¦ý¤§«á°µ¨ä¥L¨BÆJ®É¤£·|§ó·s!

wwh126

¦^´_ 10# adam2010


    ·|¥X²{´`Àô°ÝÃD¡AEXCEL ¤£°±¼u¥X´`Àô°ÝÃD¡A¥Ñ©ó§Úªºªí®æ­nSHARE , ­n¦b¦U³¡¹q¸£¤W±N¤ÏÂйBºâ³Ì¤j­È³]¬°1 ¡C

adam2010

¦^´_ 12# wwh126


    ¹ï§r!³o¼Ëªº³]©wÀ³¸Ó¤]¤£·|¼vÅT¨ì¤@¯ëªºÀÉ®×

luhpro

¦^´_ 11# wwh126

1. Private Sub Worksheet_Change(ByVal Target As Range) '¤u§@ªíªºÄ²°Ê¨Æ¥ó  (Àx¦s®æ¦³­×§ï®Éªº¨Æ¥ó)
   
2.                                                     'Target(°Ñ¼Æ): Àx¦s®æ(­×§ïªº½d³ò)
   
3.     Dim T As Range
   
4.     Set T = Target.Cells(1)                          'Target(°Ñ¼Æ)ªº²Ä¤@­Ó Cells(Àx¦s®æ)
   
5.     Application.EnableEvents = False                 'EnableEvents ÄÝ©Ê: «ü©wª«¥ó¯àIJµo¨Æ¥ó¡A«h¥»Äݩʬ° True¡CŪ/¼g Boolean¡C
   
6.                      If Not Intersect(T, Columns("B:B")) Is Nothing And T > 0 Then  'T ¦b BÄæ(«ü©w­×§ï½d³ò),½d³ò¤º.
   
7.         T.Offset(, -1) = Time            'Offset(, -1) ¥ª²¾¤@Äæ(BÄæ)
   
8.     End If
   
9.     Application.EnableEvents = True
   
10. End Sub

½Æ»s¥N½X

sunnyso

¦^´_ 1# wwh126

like this?

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column = 2 Then
   
3.         Target.Offset(, 1).Value = Now()
   
4.     End If
   
5. End Sub

½Æ»s¥N½X

97forum

¦^´_  handsometrowa
¥´¤½¦¡=IF(C3>0,NOW(),"")°µ¤£¨ìªº.
³o¤u§@ªí¼Ò²Õªºµ{¦¡½X
GBKEE µoªí©ó 2013-7-29 16:38

    GBKEE ª©¥Dµ{¦¡ªº¸ÑÄÀÅý§Ú³o­Ó§¹¥þ¤£À´ªº¤H³£¥i¥HºCºC¥h¤F¸Ñ¾ã­Ó»yªkªº§@¥Î¡A¯uªº¬O¨ü¯q¨}¦h¡C
ÁÂÁ±z¦p¦¹¥Î¤ßªº¸Ñ»¡¡C