- ©«¤l
- 127
- ¥DÃD
- 28
- ºëµØ
- 0
- ¿n¤À
- 160
- ÂI¦W
- 0
- §@·~¨t²Î
- W7
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-11-1
- ³Ì«áµn¿ý
- 2017-5-20
|
[µo°Ý] °}¦C¤Î¥t¤@Ó¤p°ÝÃD(¤w¸Ñ¨M)
¥»©«³Ì«á¥Ñ icestormer ©ó 2012-5-3 09:33 ½s¿è
쥻·Qªk¬O ·ín³]©w®æ¦¡®É¥ý©I¥s ¸ê®Æ®æ¦¡§PÂ_ °Æµ{¦¡ §Ë¦¨°}¦C«á ¦^¶Ç
µM«á®Ú¾Ú°}¦C¤ºªº(¥Ñ0 -3)¤£¦P¼Æ¦r¨Ó¹ï¸ê®Æ¾ãÄæ¶i¦æ¤£¦Pªº®æ¦¡¤Æ
-------------------------------------------------------------------------------
§Ú¬O·Q»¡ ¥i¤£¥i¥H§â ¸ê®Æ®æ¦¡§PÂ_ ³oӰƵ{¦¡ ¥Ñ private sub workbook_open() ¦b¥´¶}EXCEL®É´N¥ý°µ¦n
µM«á ·í §PÂ_¸ê®Æ®æ¦¡_1()»Ýn¥Îmydata()¤ºªº¸ê®Æ®É´N®³¨Ó¨Ï¥Î
¦Ó¤£¥În¶]¤@¦¸®É´N¥h°õ¦æ¤@¦¸¸ê®Æ®æ¦¡§PÂ_?
¤£ª¾¹D¯à¤£¯à·Ó§Ú»¡ªº³o¼Ë§ï©OÁÙ¬O¤@©wnn¥Î®É´N±o¥h°õ¦æ¤@¦¸¨ú±o°}¦CªºÈ¨Ã¦^¶Ç ÁÂÁÂÀ°¦£
¥t¥~°Ý¤p¤p°ÝÃD. §Ú·Q§Q¥Î¥H¤Uµ{¦¡½XÃö±¼EXCEL(¾ãÓÃö±¼)
¤£ºÞ§Ú¬O±Ä¥ÎThisWorkbook.Close ©Î¬OApplication.Quit©Î¬O ActiveWindow.Close ÁÙ¬O¤TÓ¤@°_¥Î..³£¨Sªk¾ãÓÃö³¬EXCEL
Application.DisplayAlerts = False
ThisWorkbook.Close
Application.Quit
ActiveWindow.Close
Application.DisplayAlerts = true

³o¬O¹Ï¤ù³sµ²,¤Wz«ü¥O¥u·|ÃöÃöactiveworkbook¦Ó¤w,³o¬O¬°¤°»ò©O?§Ú¬O·Qn§â¥¦§¹§¹¾ã¾ãªºÃö³¬ ´N¦n¹³§A¨S¦³¥´¶}EXCEL¤@¼Ë
®æ¦¡³]©w.rar (8.95 KB)
|
|