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

[µo°Ý] ¤u§@ªí²¾°Ê©Î¬O½Æ»s®É,·sªº¤u§@ªíH7Àx¦s®æ¦Û°Ê¶ñ¼g¤é´Á¸ò®É¶¡

[µo°Ý] ¤u§@ªí²¾°Ê©Î¬O½Æ»s®É,·sªº¤u§@ªíH7Àx¦s®æ¦Û°Ê¶ñ¼g¤é´Á¸ò®É¶¡

¤u§@ªí²¾°Ê©Î¬O½Æ»s®É,·sªº¤u§@ªíH7Àx¦s®æ¦Û°Ê¶ñ¼g¤é´Á¸ò®É¶¡

¦p¹Ï¤ù°é¬õ¦â³B©Òµø

copy.gif (138.78 KB)

copy.gif

Alton.rar (7.47 KB)

¨Dª©¥D¸ò¦Ñ®vÀ°¦£ ! ¥ýÁÂÁ¤F !

TOP

¦^´_ 1# niko88819

§Aªº°ÝÃD¤£¬O«Ü²M·¡¡A¬G¥u¦n·Ó§Ú·Qªk¥h´¢¼¯¡I
  1. Sub ¥¨¶°1()
  2.     Sheets("20140319").Copy After:=Sheets(1)
  3.     Sheets("20140319 (2)").Name = Format(Date & Time, "yyyymmddhhmmss")
  4.     Range("H7") = Format(Date & Time, "yyyymmdd hh:mm")
  5. End Sub
½Æ»s¥N½X

TOP

¦Ñ®v¬O³o¼Ëªº,20140319 ¥i¥H¥ô¦ó¤u§@ªí¦WºÙ
ÂI¿ï¥ô¦ó¤u§@ªí¦WºÙ®É,«ö¥k·Æ¹«Áä,¤Ä¿ï·Q­n¥ô·N¤u§@ªí¦WºÙ,¿ï²¾°Ê©Î¬O½Æ»s¿ï¶µ,¤Ä¿ï«Ø¥ß½Æ¥»«á«ö½T©w
·í²£¥Í¤u§@ªí½Æ¥»®É,¸Ó¤u§@ªí½Æ¥»H7¦Û°Ê¶ñ¼g¤é´Á¸ò®É¶¡

TOP

¥u·Q¨ì¦bThisWorkbook¸Ì­±³o¼Ë°µ¡A¦ý¬O¥u¦³¦b¡u·s¼W¡vªº®É­Ô·|±Ò°Êµ{¦¡½X¡A

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Range("H7") = Date & Time
End Sub


¦Ü©ó½Æ»sªº®É­Ô¦Û°Ê¥[¤W¤é´Á¤Î®É¶¡¡A¦b¤U¥u·Q¨ì¦b³Q½Æ»sªºªíH7¶ñ¤Jnowªº¨ç¼Æ¡A
¦ý³o¼Ë¤@¨Ó¨C±iªíªº®É¶¡³£·|­«·s­pºâ¡A¦ý­Y§â¹Bºâ§ï¤â°Ê¡A½Æ»s·sªíªº®É­Ô®É¶¡¤S¤£·|°Ê¡A

¥t¥~ÁöµM¥i¥H¦bActivate¸Ì­±³]©w­Y¦³½Æ»s¤u§@ªí®É    Range("H7") = Date & Time¡A
¦ý³o¼Ë¤@¨Ó®£©È·|¦]¬°¤@ª½°õ¦æ§PÂ_¦¡¦Ó¼vÅTExcelªº³B²z®Ä²v¡C

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2015-5-18 11:26 ½s¿è

¦^´_ 4# niko88819
¦]¬°²¾°Ê©Î½Æ»s¨ÃµL¥i¥Îªº¨Æ¥óµ{§Ç
©Ò¥H¥u¯à§Q¥Î¤u§@ªí¤Á´«®É­pºâ¤u§@ªí¼Æ¶q°µ¨Ì¾Ú¨Ó°õ¦æ¼g¤J®É¶¡¤é´Á
thisworkbook¼Ò²Õµ{¦¡½X
  1. Public k As Integer
  2. Private Sub Workbook_Open()
  3. k = Sheets.Count
  4. End Sub

  5. Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  6. If k < Sheets.Count Then [H7] = Now
  7. k = Sheets.Count
  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¶W¯Åª©¥D,±z¯u¬O¤Ó¼F®`¤F
·PÁ±zÀ°¦£ !
§¹¬ü¸Ñ¨M°ÝÃD¤F

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD