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

bhsm

½Ð°Ýª©¤W°ª¤â¡G¦b¤p§ÌªºªþÀɤ¤¡A¥Ñ¡¨±`¥Î¥N½X¡¨ªº¤u§@ªíÂùÀ»¥N½X§Y¥i©ó¡¨¦ô»ù¡¨ªº¤u§@ªíC5¨ú±o¸ÓªÑ´Þ§Q²v¡A­Y¤p§Ì·Q¥Ñ¡¨±`¥Î¥N½X¡¨ªº¤u§@ªíÂùÀ»A2¥N½X©ó¡¨¦ô»ù¡¨ªº¤u§@ªí¨ú±oA2ªº´Þ§Q²v¬ö¿ý©ó¡¨±`¥Î¥N½X¡¨¤u§@ªí¤¤ªºC2¡A±µµÛÂùÀ»A3¥N½X©ó¡¨¦ô»ù¡¨ªº¤u§@ªí¨ú±oA3ªº´Þ§Q²v¬ö¿ý©ó¡¨±`¥Î¥N½X¡¨¤u§@ªí¤¤ªºC3¡A¨Ì¦¸ª½¨ìA27¡A½Ð°Ý³o¥¨¶°©ÎVBA¸Ó¦p¦ó¼g?ÁÂÁ¡C

bhsm

¦^´_ 22# stillfish00
ÁöµM¦]¬°¤~²¨¾Ç²L¤£¤Ó¤F¸Ñstillfish00¤jªº¸ÑÄÀ¡A¦ý¤´«D±`·PÁ±z¡AÁÂÁÂ

stillfish00

¦^´_ 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)

bhsm

¦^´_ 20# stillfish00
·PÁÂstillfish00¤j¡A·Ó±zªºµ{¦¡­×§ï«á¤w¥i¥H¨Ï¥Î¤F¡AÂÔ¦b¦¹ÁÂÁ±z¤ÎGBKEE¤j.

stillfish00

¦^´_ 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. 
    
11. EXIT_THIS:
    
12.     If Err.Number > 0 Then
    
13.         MsgBox Err.Description
    
14.         Stop
    
15.         Resume  'F8 goto error line
    
16.     End If
    
17.     Application.EnableEvents = True
    
18. End Sub

½Æ»s¥N½X

bhsm

¦^´_ 18# stillfish00
·PÁÂstillfish00¤j,¤p§Ì¯Ç´eªº¬O¬°¦óEXCEL2003¨Ï¥Î¤W¨S°ÝÃD,¦ýÂন2010®É,«o·|³y¦¨°ïÅ|ªÅ¶¡¤£¨¬,²z½×¤W­Y¦³µ{¦¡¤@ª½¤£Â_´`ÀôIJµo,¨º¦b2003¬O¤£¬O¤]À³¸Óµo¥Í©O?Áٽбz¸Ñ´b,ÁÂÁÂ

stillfish00

¦^´_ 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

bhsm

¦^´_ 16# GBKEE
¦VGBKEE¤j¦^³ø¡A
1.ÂùÀ»¥N½X«á·|¥X²{¹Ï1

¤U¸ü (27.18 KB)

2015-4-24 17:14

2.«ö¤UF8«á¥X²{¹Ï2¡A¦¹®É¸ê®Æ¥¼±a¤J©Ò»Ý¦ì¸m

¤U¸ü (28.66 KB)

2015-4-24 17:15

3.±µµÛ¦A«ö¤@¦¸F8¡A¥X²{¹Ï3¡A¦¹®ÉÀ˵ø¸ê®Æ³£¤w±a¤J¡A¦ý¦¹®É¶·Ãö³¬VBAµøµ¡¡A¨Ã°±¤î°»¿ù¡AEXCEL¤~¥iÄ~Äò¨Ï¥Î

¤U¸ü (29.03 KB)

2015-4-24 17:15

4.­«½Æ1.¤§°Ê§@

GBKEE

¦^´_ 15# bhsm
°ïÅ|ªÅ¶¡¤£¨¬¡AStop «á«ö¤U F8 ¬Ý¬Ýµ{¦¡¦p¦ó°õ¦æ

1. Stop
   
2.       Sheet3.Rng.Resize(, 4).Value = Array([c5].Text, [F3].Text, [F4].Text, [C8].Text)
   
3.       

½Æ»s¥N½X

bhsm

¦^´_  bhsm
GBKEE µoªí©ó 2015-4-23 14:48

GBKEE¤j±z¦n:
§Ú§â±z±Ðªº³o­ÓVBA®M¥Î¦b¤½¥qªºÀɮפW®É¡A¥Î2003¾Þ§@³£¨S°ÝÃD¡A¦ý§â¸ÓÀÉÂন2010®É¡A¾Þ§@¤W«o·|µo¥Í"°õ¦æ¶¥¬q¿ù»~"28"  °ïÅ|ªÅ¶¡¤£¨¬¡A·í§Ú«ö¤U°»¿ù®É¡Aµ{¦¡·|«ü¦V
"Sheet28.Rng.Resize(, 4) = Array([L5].Text, [L6].Text, [C14].Text, [B13].Text)"¡A¦pªG¦b¬Q¤Ñ¶Çµ¹±zªº150423.rarÀÉ®×Âন2010®É¡A¾Þ§@¨S°ÝÃD¡A¦ý®M¥Î¨ì¤½¥q¥t¥~Àɮ׮ɫo·|
µo¥Í°ïÅ|ªÅ¶¡¤£¨¬¡A½Ð°ÝÀ³¸Ó­×§ï­þ¸Ì¨Ó±Æ°£°ÝÃD¡AÁÂÁÂ