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

¦p¦ó³]©w10¬í¨S¦³¨Ï¥Î¦Û°ÊÃö³¬ÀÉ®×

¦p¦ó³]©w10¬í¨S¦³¨Ï¥Î¦Û°ÊÃö³¬ÀÉ®×

§Ú»s§@¤F­Óexcel ªí¡A§Æ±æ¦b¦P¨Æ«ö¤UexcelÃö³¬¶s®É´£¿ô¦P¨Æ°õ¦æ¬Y¨Ç¯S©w¤u§@¡A¨Ò¦p¡G¦bÃö³¬«eshow¥X¤@¬q¤å¦r°T®§MsgBox¬ù¢±¢¯¬í«á¦A¦sÀÉÃö³¬¡F§Ú¸Ó¦p¦ó¼g¤U³o¬qVBA¡H§Ú¸Ó¼g¦b·s¼W¼Ò²Õ¤º©Î¼g¦bThis workbook¤º©O¡H­n¦p¦ó¼g£z?
ÁÂÁÂ!!
danny

¦^´_ 1# danny001
ThisWorkbook¼Ò²Õªº¨Æ¥óµ{¦¡
  1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  2.     Dim Msg As String
  3.     Msg = CreateObject("WScript.Shell").popup("10 ¬í«á "& Me.Name  &  "Ãö³¬ÀÉ®× !!       ", 10, Me.Name, 0)
  4. End Sub
½Æ»s¥N½X

TOP

½Ð°Ý¦pªG¬O¶}±ÒÀÉ®×10¬í¦Û°ÊÃö³¬­n¦p¦ó§ó§ï£z
ÁÂÁ¤j¤j!!
danny

TOP

¦]Àɮצ³¨Ï¥ÎŪ¼g±K½X¡A¦pªG¨Ï¥ÎºûŪ10¬í«á¦Û°Ê§âÀÉ®×Ãö³¬­n¦p¦ó¼g
½Ð³Â·Ð¤j¤j±Ð±ÐÁÂÁ¡I¡I
ÁÙ¦³¤@­Ó°ÝÃDVBA­n¦p¦ó¼g¡A¬Ý¤F«Ü¦hÁÙ¬OºN¤£µÛÀYÄò
Á`¤§ÁÂÁ°աI¡I
danny

TOP

¦^´_ 4# danny001
°Ñ¦Ò³o¸Ì ...

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD