¦p¦ó¨ú¥Î·í«e¹q¸£®É¶¡ªº­È¯Z(¤£­n¦Û°Ê§ó·s)

wwh126

­Y§Ú·Q¦bC3,C4,C5,.....¿é¤J¤@¨Ç¼Æ­ÈB3,B4,B5,.....®æ·|¦Û°Ê±N·í«eªº¤é´Á®É¶¡Åã¥Ü, ¦ý¤£­n§ó·s.
À³«ç»ò¼g©O????

GBKEE

¦^´_ 1# wwh126
·|¦Û°Ê±N·í«eªº¤é´Á®É¶¡Åã¥Ü, ¦ý¤£­n§ó·s.
²q¤£¥X¨Ó,½Ð¸Ô²Ó»¡©ú¥Õ.

wwh126

§Ú´¿¸Õ«YB2 ¥´¤½¦¡=IF(C3>0,NOW(),"")·|Åã¥Ü¤é´Á®É¶¡,
¦ý·|¤£°±§ó·s, ¦³¤°»ò¤èªk¥i¥H¤£§ó·s

wwh126

¦^´_ 2# GBKEE


    ·í§Ú¦b¯S©w¤@®æ¨Ò¦pC3 ¥´¤W¤@¨Ç¼Æ­È¡AB3·|§Y®ÉÅã¥Ü·í«eªº¤é´Á¦P®É¶¡¡A¦ý¥Î¤½¦¡NOW()·|¤£°±§ó·s·í«eªº®É¶¡¡A§Ú¤£·Q¤£°±§ó·s

GBKEE

¦^´_ 4# wwh126

¤U¸ü (46.62 KB)

2013-7-26 13:21

wwh126

¦^´_ 5# GBKEE


    ¦ý¿ï¤F¤â°Ê«á¡A§Ú¦b©¹¤Uªº®æ¥´¼Æ¦r´N¤£¯àÅã¥Ü§Y®É®É¶¡¡I

handsometrowa

¦^´_ 5# GBKEE


   ª©¤j¡A

§@ªÌªº·N«ä À³¸Ó¬O¡A°²³]AÄæ¬O¥´¥d¦WºÙ¡A¼g§¹½Ö¤§«á¡ABÄæ´N·|¦Û°Ê°O¿ý¥L¼g¤Wªº®É¶¡

µM«á¤£·|­«½Æ

¥i¯à¥L·Q­n¥ÎEXCEL °µ¥´¥dÄÁ§a

°²³]
AÄæ        BÄæ
ªL¤j¦W  13:54:23

·¨¤j²Õ  13:55:01  

....³o¼Ë¤l¤U¥h  «e­±¦W¦r¦Û¤v¥´¡A«á­±®É¶¡¦Û°Ê²£¥Í

wwh126

¤j·§¬O³o¼Ë

GBKEE

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

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, Range("C2:C50")) Is Nothing And T <> "" Then   'T ¦b C2:C50(«ü©w­×§ï½d³ò),½d³ò¤º.
   
7.         T.Offset(, -1) = Time            'Offset(, -1) ¥ª²¾¤@Äæ(BÄæ)
   
8.     End If
   
9.     Application.EnableEvents = True
   
10. End Sub

½Æ»s¥N½X

adam2010

¸Õ¸Õ¬Ý~

¤U¸ü (57.92 KB)

2013-7-29 21:36