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

[µo°Ý] °}¦C¤Î¥t¤@­Ó¤p°ÝÃD(¤w¸Ñ¨M)

[µ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¤@©w­n­n¥Î®É´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µ²,¤W­z«ü¥O¥u·|ÃöÃöactiveworkbook¦Ó¤w,³o¬O¬°¤°»ò©O?§Ú¬O·Q­n§â¥¦§¹§¹¾ã¾ãªºÃö³¬ ´N¦n¹³§A¨S¦³¥´¶}EXCEL¤@¼Ë

                              ®æ¦¡³]©w.rar (8.95 KB)

¦^´_ 3# c_c_lai


    ¦p¦PGBKEE¤j¸Ñ»¡¤@¼Ë

¥Î¦b°}¦Cªø«×¥i¯à·|Åܰʪº±¡ªp¤U ³o¼gªk «Ü¤è«K^^

TOP

¥»©«³Ì«á¥Ñ icestormer ©ó 2012-4-22 20:56 ½s¿è

¦^´_ 5# register313
·PÁ§AªºÀ°¦£ ¨Ó¸Õ¬Ý¬Ý^^

½Ð°Ý §Ú¥Î¤Fapplication.quit ¬O¥i¥Hª½±µÃö±¼EXCEL¦ýÃö¤§荝ÁÙ¬O·|°Ý§Ú­n¤£­n¦sÀÉ   
¨Ï¥Î application.displayalerts=false  «ç·|¨S¦³§@¥Î©O?(¤£·Q³Q°Ý¨ì¦³¨S¦³­n¦sÀÉ´N©y±µÃö³¬EXCEL)

application.displayalerts=false

  application.quit
application.displayalerts=true

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD