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

[µo°Ý] µ{§Ç°±¤îµo°Ý

¦^´_ 1# blue2263


    ¤£ª¾¹D³o­Ó¬O¤£¬O§A­nªº¡A¬Ý¤£¤ÓÀ´§Aªº·N«ä¡A°±¤îµ{§Ç?ª¾¹D°±¤îªº¦ì¤l?ª¾¹D¦³¨S¦³°õ¦æµ{§Ç?

¥[¤Jµ{§Ç¤¤´N¥i¥H§Y®ÉÅã¥Ü¦bExcel¥ª¤U¨¤µo²{µ{§Çª¬ºA¡C
  1. Application.StatusBar = "Åã¥Ü¤å¦r" 'String
½Æ»s¥N½X
¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

¦^´_ 3# blue2263

°ÝÃD1
¥Dµ{¦¡°õ¦æ¤¤¡A®e³\¦A°õ¦æ¨ä¥¦¥¨¶°¡A ¥i¨Ï¥Î«ö¶s«ü©w¥H¤Uµ{¦¡¡A
  1. Sub Stop()
  2. ¡@¡@Application.EnableCancelKey = xlInterrupt
  3. End Sub
½Æ»s¥N½X
©Î¬O³]©w¤@­ÓÅܼơA
½á¤©­Èªº®É­Ô°õ¦æEnd¥Dµ{¦¡¡C
©Î³]©wSelect Case«ü©w¶}±Ò­þ¨ÇOnTime¡C

OnTime¤¤¨¾¤î«öEsc¤¤Â_µ{¦¡¡A¦b¶}ÀY¥[¤J
  1. Application.EnableCancelKey = xlDisabled
½Æ»s¥N½X
°ÝÃD2
µ{§Ç¦³³]©w¦nªº¸Ü¤£À³¸Ó·|¥¼°õ¦æ¦Û°Ê¤¤Â_¡C
¦pªG¨S³]©w¦n²Ä¤@­ÓOnTime¤]³£¤£·|°õ¦æ¡C
¦pªG§AOnTimeªº©I¥sª«¥ó¬OExcel¥~­n¯S§Oª`·NWindown¬ÛÃö¨t²Î¡C
¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

¦^´_ 5# blue2263


    ¥i¥Hªþ¤W±zªºÀɮ׬ݬݶÜ?
¤]¤ñ¸û¤è«K®³¹ê»Ú®×¨Ò¨Ó´ú¸Õ¤Î°£¿ù¡C
¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD