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

¨Ï¥Î TODAY() ¨ú±o¨t²Î¤é´Á µM«á©T©w¤£ÅÜ «ç¼Ò°µ©O

«OÅ@«á´N¨S¿ìªk ¿é¤J
§Ú¬O¥s§A¿é¤J¤é´Á«á¦A«OÅ@¡A¤S¤£¬O¥s§A¥ý«OÅ@¦A¿é¤J¤é´Á¡C
¥Îvba«Ü²³æ¡A¥u¦³´X­Ó¦r¡G[a1]=date §Y¥i¦ba1²£¥Í·í¤Ñ¤é´Á¡A¤£¹L§A¤£«OÅ@¸ÓÀx¦s®æÁÙ¬O¤£¯à¹w¨¾³Q­×§ï¡C

TOP

§Ú¼g³o¬O¤½¥q ²{ª÷±b
§Úµ¹¤½¥q·|­p  ¿é¤J  
§Ú¤£µ¹¥L¿é¤J  «D¤µ¤é ±b¥Ø
©Ò¥H §Ú¥ý«OÅ@«á  µ¹¥L¿é¤J
¦]¦¹ ¥u¯à¥Î§ì¨t²Î¤é´Á
ÁÂÁ¤j®a  §Ú¬ã¨s ¬ã¨s
³o°ÝÃD ¤£®e©ö  
¦n¹³¥u¯à¥Î VBA ¸Ñ¨M
HI

TOP

¥»©«³Ì«á¥Ñ mycmyc ©ó 2010-10-18 17:50 ½s¿è

a1 ¤W¸ê®Æ«á b1 ¦Û°Ê¥X¤µ¤Ñ¤é´Á.rar (5.68 KB)
³oVBA  ¦n¹³OK
¦ý¤£ª¾«ç»ò ½Æ»s¨ì
A2
A3
.
.
.
.
.
HI

TOP

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Or Target.Column > 1 Then Exit Sub
    If Target <> "" Then Cells(Target.Row, 2) = Date
End Sub

TOP

¦^´_ 34# oobird
  ÁÂÁÂ¥i¥H¤F
HI

TOP

°¨¤W¨Ó¸Õ¸Õ¬Ý
²Â²ÂªºBAA¥u·|¥Î¤â°Ê¤H¤u¿é¤J.....
·PÁ¤À¨É

TOP

µ¹mycmyc«Øij:¥H¤U¤º®e¸òvbaµLÃö,·|­p¦ó®É¿é¤J¶Ç²¼,¦pªG¬O·í¤é¥²¶·§¹¦¨,¨º¥u¦³ºÝ¿à¨î«×¨ÓºÊ·þ,¦pªG,¦b¿é¤J«e§Ú¥ý§â¨t²Î¤é´Á²§°Ê,½Õ¾ã¦¨±ý¿é¤J¤é´Á,¿é¤J«á,¦A§â¤é´Á§ï¬°¤µ¤é,¤j¤j¦p¦ó¨¾¤î

TOP

¦^´_ 37# aa7551
³o­Ó®É­ÔÀ³¸Ó­n°w¹ï¹q¸£ªºÅv­­°µ±±ºÞ¤F§a
¨S¨Æ´N¨Ó³}³}

TOP

°¨¤W¨Ó¸Õ¸Õ¬Ý
·PÁ¤À¨É
hango

TOP

«z
¯uªºok¤F©O
°ª¤â¹ê¦b§Q®`°Ú
ÁÂÁÂÅo
jeason

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD