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

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

¦^´_ 10# GBKEE
·PÁÂGBKEE¤j«ü¾É.¹q¸£­ì¨Ï¥ÎIE11.²¾°£«á.­«·s¦w¸ËIE8.µ²ªG¥¿±`¤F.¨S¥X²{400ªº°T®§.¯u¬OÁÂÁ±z¤F
¦~ÄÖ¤£¤p,¦ý§Ú«Ü·Q¾Ç

TOP

GBKEE¤j±z¦n:
¤§«e¤p§Ì´¿©Ó»X±z«ü±ÐVBAµ{¦¡¡A ¦ý²{¦b¦]¤p§Ì§Æ±æ¼W¥[¸ê®Æ¡A¦P¼Ë¦b¡¨±`¥Î¥N½X"ªº¤u§@ªí¤¤ÂùÀ»ªÑ²¼½s¸¹¡A¦ý¤£¥u¯à±a¤J¡¨¦ô»ù"¤u§@ªí¤¤ªº´Þ§Q²v¡A¤]§Æ±æ¯à±a¤J¡¨ªÑ¥»¡¨¡B¡¨ªÑªFÅv¯q³ø¹S²v¡¨¡B¡¨¤W¥«(Âd)®É¶¡¡¨¡A ¤£ª¾¯à§_½ÐGBKEE¤j¦A«ü¾É¤@¦¸¡AÁÂÁ¡C 150423.rar (10.62 KB)
¦~ÄÖ¤£¤p,¦ý§Ú«Ü·Q¾Ç

TOP

¦^´_ 12# bhsm
  1. Option Explicit
  2. Private Sub Worksheet_Calculate()   '¦ô»ù [¤u§@ªí¼Ò²Õ]ªºµ{¦¡½X
  3.     If Not Sheet3.Rng Is Nothing Then
  4.         'Sheet3.Rng       'SheetS("±`¥Î¥N½X")ÂùÀ»ªº³B¦s®æ
  5.       Sheet3.Rng.Resize(, 4) = Array([c5].Text, [F3].Text, [F4].Text, [C8].Text)
  6.        ' With Sheet3.Rng
  7.        '    .Cells = [c5].Text
  8.        '    .Cells(1, "B") = [F3].Text
  9.        '    .Cells(1, "C") = [F4].Text
  10.        '    .Cells(1, "D") = [C8].Text
  11.        ' End With
  12.     End If
  13. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 13# GBKEE
·PÁÂGBKEE¤j,ÁÂÁ±z
¦~ÄÖ¤£¤p,¦ý§Ú«Ü·Q¾Ç

TOP

¦^´_  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ÁÂÁÂ
¦~ÄÖ¤£¤p,¦ý§Ú«Ü·Q¾Ç

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ bhsm ©ó 2015-4-24 17:17 ½s¿è

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

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

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

4.­«½Æ1.¤§°Ê§@
¦~ÄÖ¤£¤p,¦ý§Ú«Ü·Q¾Ç

TOP

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

¦^´_ 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,ÁÂÁÂ
¦~ÄÖ¤£¤p,¦ý§Ú«Ü·Q¾Ç

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

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD