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

[µo°Ý] ½Ð±ÐDtpicker§ïÅܪº°ÝÃD

[µo°Ý] ½Ð±ÐDtpicker§ïÅܪº°ÝÃD

·Q³Â·Ðª©¤W°ª¤â
±Ð±Ð§Ú³o­Ó¤Jªùªº·s¤â

¥i§_·íÂI¿ïsheet(1)®É¡ABOOK2ªºDTPICKER¤ºªºddÅܦ¨¿ï¨ú¤é´Á
·í¿ï¾Üsheet1®É¡ABook2 sheet1 DTPICKER¤é´Á¬°2010/11/01
·í¿ï¾Üsheet2®É¡ABook2 sheet1 DTPICKER¤é´Á¬°2010/11/02
¦~¤À¶Ç°e·í¦~ªº­È
¤ë¥÷¶Ç°eworkbookªº©R¦W"11"¤ë¥÷

³Â·Ð¤j®a¤F¡AÁÂÁ¡I

Q.rar (14.61 KB)

¦^´_ 1# axingpeace
¨Ï¥Î ThisWorkbookªº Workbook_SheetActivate  ¹w³]IJ°Ê¨Æ¥ó
  1. Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  2.     Workbooks("book2.xls").Sheets("sheet1").DTPicker2.Value = Year(Date) & "/" & Val(Me.Name) & "/" & Replace(Sh.Name, "sheet", "")
  3. End Sub
½Æ»s¥N½X

½Ð±Nµ{¦¡½X½Æ»s¨ì 11¤ë.XLS ªº ThisWorkbook¼Ò²Õ¤º

TOP

·PÁª©¥DGBKEE
°ÝÃD¤w¸Ñ¨M
³o¼Ë¤u§@¤W¥i¥H¤è«K³\¦h¤F

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD