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

[µo°Ý] ¨Ì¦¸°O¿ý¦UªÑ´Þ§Q²v

¦^´_ 15# bhsm
­Ó¤H¸gÅç¨Ñ°Ñ¦Ò:
¥i¥HÀˬd§Aªº¥t¥~Àɮתº¤u§@ªí/¬¡­¶Ã¯¥Î¨ìªºEvent
±`¨£°ïÅ|ªÅ¶¡¤£¨¬ªº­ì¦]"¤§¤@"
¥i¯à¬OEvent¤¤¬Y¨Çµ{¦¡½X¦æ¬°¤SIJµo¤F¨ä¥LEvent¡AµM«á¤@ª½¤£Â_´`ÀôIJµo...

¦pªG¬O³o­ì¦]¡A¥i¦bEvent¨Æ¥ó¤¤¾A·í³]©wApplication.EnableEvents
¼È®ÉÁקKIJµo¨ä¥Levent¡A³Ì«á¦AÁÙ­ì¡C
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 17# bhsm
¥i¥H§ï³o¼Ë´ú´ú¬Ý
  1. Private Sub Worksheet_Calculate()
  2.     Application.EnableEvents = False
  3.     On Error GoTo EXIT_THIS
  4.    
  5.     If
  6.    
  7.     ........
  8.    
  9.     End If

  10. EXIT_THIS:
  11.     If Err.Number > 0 Then
  12.         MsgBox Err.Description
  13.         Stop
  14.         Resume  'F8 goto error line
  15.     End If
  16.     Application.EnableEvents = True
  17. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 19# bhsm
§Ú¨S2003µLªk´ú¡A·íµM²z½×¤W­n¤@­P
¦ý2003¨ì2010 , Excel­I«áCalculateªº¾÷¨î¤]§ïÅܫܦh¤F
¦³³oºØ¤£¦P¤]¤£µL¥i¯à¡C
²¦³º­þ¨Çµ{¦¡½X·|IJµo­þ¨Çevent , ³o³¡¤À¦bExcel»¡©ú¤¤§Ú¤]¨S¬Ý¨ì...

Á`¤§§Ú¬Oı±oEvent¤¤¥N½X«e«á¡A¥ÎApplication.EnableEvents±±¨î¶}Ãö¡A
À³¸Ó¬O¤£·|¿ùªº¦n²ßºD°Õ(ÁöµM§Ú¤]±`§Ñ°O)
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD