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

niko88819

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

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

niko88819

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

lpk187

¦^´_ 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

niko88819

¦Ñ®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¤é´Á¸ò®É¶¡

radys

¥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

Hsieh

¦^´_ 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. 
   
6. Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   
7. If k < Sheets.Count Then [H7] = Now
   
8. k = Sheets.Count
   
9. End Sub

½Æ»s¥N½X

¤U¸ü (61.54 KB)

2015-5-18 11:26

niko88819

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