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

»ù®æ¬ö¿ýªº»yªk¦³¼g¿ù¶Ü??

»ù®æ¬ö¿ýªº»yªk¦³¼g¿ù¶Ü??

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2016-3-17 23:24 ½s¿è

°£¿ù.rar (36.73 KB)
½Ð°Ýª©¤W¤j¤j¡A§Ú¤W¶Çªºªþ¥ó¬O¤@­Ó»ù®æÅÜ°Ê´N°O¿ýªºVBA¡A¦ý¬O§Ú¦b°õ¦æªþ¥ó¸Ì­±ªºMacro1®É¡AÀ³¸Ó¸ê®Æ·|§R±¼¡A¥i¬O°õ¦æ§¹«á¤£¦ý¤£·|§R±¼¡AÁÙ·|°¨¤W¥X²{«Ü¦h¤@¼Ëªº¸ê®Æ¡A½Ðª©¤W¤j¤jÀ°§Ú¬Ý¬Ý³o­Ó»yªk¦³¬Æ»ò°ÝÃD¶Ü??

§Úµo²{§â®ÇÃ䪺¤½¦¡§R±¼´N¥¿±`¤F¡A³o¬O¤°»ò­ì¦]??¥i¥H­×§ï¦¨»ù®æÅÜ°Ê´N¬ö¿ý¥B¦P®É«O¦³®ÇÃ䪺¤½¦¡¶Ü??


DDE¦pªG¨S¦³¥i¥H¥ÎÀH«Kªº¼Æ¦r¤U¥h´ú¸Õ

¦^´_ 131# c_c_lai

C¤j¡A¥i¥H¦b½Ð±Ð§A¤@¤U¶Ü??
    http://forum.twbts.com/viewthread.php?tid=18005&extra=

TOP

¦^´_ 131# c_c_lai


    C¤j¡A¶}½L«e¥´¶}´ú¸ÕOK¡A¨S°ÝÃD¤F

TOP

¦^´_ 131# c_c_lai


   C¤j§ÚºÎ¹LÀY¡A¥Ø«e½L¤¤°õ¦æOK¡A¤U©P¶}½L«e¥´¶}¸Õ¸Õ¬Ý

TOP

¦^´_ 131# c_c_lai

«¢«¢¡A§Ú·d¿ù¤F¡A©ú¤Ñ¦A¸Õ¸Õ

TOP

¦^´_ 130# ÂŤÑÄR¦À
³o°¦µ{¦¡¤£¬O "ªÑ²¼10C.xlsm"¡A
½Ð°õ¦æ C ªºµ{¦¡¤~¥¿½T¡C

TOP

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2016-4-14 09:15 ½s¿è

¦^´_ 128# c_c_lai

ªÑ²¼.rar (36.36 KB)
    C¤j¡A¬Q¤Ñ¦b½L¤¤¥i¥H¥Î¡A¦ý¬O¤µ¤Ñ¶}½L«e¦A¶}±Ò´N¤£¦æ¤F¡A§Ú¤W¶Ç§ÚªºÀɮסA¸Ì­±¦³¨ÇÀx¦s®æªº¤º®e¦³§ïÅܦý¬O¤§«eªº¬ã§P³W«h³£¨S§ïÅÜ¡A¬°¤°»òµLªk°õ¦æ¬O¦]¬°§ÚÅܰʨì­þÃä¶Ü??


­è¤~9ÂI¶}½L«e§Ú¥´¶}ÀɮסAµLªk°õ¦æµ{¦¡¡A9:05¤À§Ú¦b¥´¶}¤@¦¸¤S¥i¥H°õ¦æ¤F¡A³o¬O¬Æ»ò­ì¦]??

§Ú¦b·Q·|¤£·|¬O¦]¬°­è¶}½L¦³¨ÇªÑ²¼ÁÙ¨S¦¨¥æ¶q¡A·|¥X²{"-"¡A¦Ó¤£¬O¥X²{#NA¡A©Ò¥H¤~³y¦¨­è¶}½LµLªk¬ö¿ý

TOP

¦^´_ 128# c_c_lai

ÁÂÁÂC¤j¡A¨¯­W¤F

TOP

¦^´_ 126# ÂŤÑÄR¦À
OK¡A ¤µ«á¨º´N¥H "ªÑ²¼10C.xlsm"  ¬°·Ç¤F¡A
¯¬¤@¤Á¶¶§Q¡I¤j¥\§i¦¨¡I

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-4-13 09:08 ½s¿è

¦^´_ 116# GBKEE
E.png
2016-4-13 09:05
  1.                 '  #N/A (DDE©|¥¼±Ò°Ê) ->  Excel ¤@¶}©l³s¤W DDE ®É¦]¨t²Î©|¥¼´Nºü¡A¦¹®É±µ¦¬­È¬° #N/A¡A
  2.                 '  ·í .Row = 2 (¸ê®Æ³Ì¦ìµ§¬°²Ä¤G¦C) ¤S³{²Ä¤G¦C¶Ç¤J­È¬° #N/A¡A©Ò¥H«h³w¦æ±N (#N/A) ª½±µ¼g¤J¡F
  3.                 '  ±µµÛ·í²Ä¤G¦C±µ¦¬¨ì DDE ±µ¦¬­È (¹ê»Ú¼Æ¾Ú) «á¡A¦A¦¸Ä²µo Worksheet_Calculate()¡A
  4.                 '  ¦¹®É .Row > 2 And .Value <> Range(E.Name).Value  ©ó¤W¡B¤UÄæ­È¤ñ¹ï®É«K²£¥Í¿ù»~°T®§¤F¡C
  5.                 '  -----------------------------------------------------------------------------------------
  6.                 '  Cells(Rows.Count, cts).End(xlUp).Value : ¿ù»~ 2042 : Variant/Error
  7.                 '  °õ¦æ¶¥¬q¿ù»~ '13'¡G  «¬ºA¤£²Å¦X
  8.                 '  -----------------------------------------------------------------------------------------
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD