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

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

¦^´_ 117# c_c_lai


    C¤j§Ú¬O9ÂI¤~¶}Àɮתº¡AÂ÷§A¤@¶}©l¹w³]®É¶¡¤w¸g¹L¤F30¤ÀÄÁ

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-4-12 10:53 ½s¿è

¦^´_ 121# ÂŤÑÄR¦À
¨º¨é°Ó³nÅé¦ó®É¶}±Ò¡H
¥Ø«e§A¥ý±N²Ä¤T¦C§R°£¡AÀx¦sÀɮ׫á¡A©ó "Àç·~®É¶¡" ¤º
¦A±q·s±Ò°Ê¸Õ¸Õ¡I

TOP

¦^´_ 122# c_c_lai
C¤j©êºp¡A§Ú¤µ¤Ñ¥Xªù¦^¨Ó´N«æµÛ¥h¤W¯Z¤F¡A©ú¤Ñ¸Õ§¹«á§i¶D§Aµ²ªG

TOP

¦^´_ 120# c_c_lai
¥i¬OC¤j§ÚDDE¬O¦b²Ä¤G¦C¡A§Ú¤W¶Çªº¹Ï²Ä¤G¦C¦³¸ê®Æ¡A²Ä¤T¦C¤~¥X²{N/Aªº¤£¬O¶Ü??

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-4-13 05:36 ½s¿è
¦^´_  c_c_lai
¥i¬OC¤j§ÚDDE¬O¦b²Ä¤G¦C¡A§Ú¤W¶Çªº¹Ï²Ä¤G¦C¦³¸ê®Æ¡A²Ä¤T¦C¤~¥X²{N/Aªº¤£¬O¶Ü??
ÂŤÑÄR¦À µoªí©ó 2016-4-12 22:26

¦b Excel ¤@¶}©l³s¤W DDE ®É¦]¨t²Î©|¥¼´Nºü (DDE»P¨é°Ó³nÅ鶡)¡A©Ò¥H²Ä¤G¦C±µ¦¬­È¬° #N/A¡A ¤S¦]¤@¶}©l®É²Ä¤T¦C¸ê®Æ¬°ªÅ¡A
  1.                     If .Row = 2 Or .Row > 2 And .Value <> Range(E.Name).Value Then       '  (¦UªÑÁ`¶q¦³ÅÜ°Ê)
½Æ»s¥N½X
.Row = 2 (¸ê®Æ³Ì¦ìµ§¬°²Ä¤G¦C) «h³w¦æ ( #N/A) ¼g¤J¡A±µµÛ·í²Ä¤G¦C±µ¦¬¨ìDDE±µ¦¬­È (¹ê»Ú¼Æ¾Ú) «á¡A¦A¦¸Ä²µo
Worksheet_Calculate()¡A¦¹®É  .Row > 2 And .Value <> Range(E.Name).Value  «K²£¥Í¿ù»~°T®§¤F¡C
  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¶Ç¤J­È (¹ê»Ú¼Æ¾Ú) «á¡A¦A¦¸Ä²µo Worksheet_Calculate()¡A
  4.                 '  ¦¹®É .Row > 2 And .Value <> Range(E.Name).Value  ©ó¤ñ¹ï®É«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
¬°¤F½T«O¥¼¨Ó¸ê®Æ§¡¯à¥¿½T³B²z¡A¦b·sªº "ªÑ²¼10C.xlsm" ªºµ{¦¡ùØ¥[¤J¤F¤@¦æ§PÂ_¡C
  1.     For cts = 4 To 400 Step 4
  2.         Set Rng = Cells(2, cts)
  3.         If IsError(Rng.Value) Then Exit Sub                             '  Á`¶q¦p¬°¿ù»~ (#N/A¡B#REF!)¡A¸õÂ÷¤£°µ³B²z
½Æ»s¥N½X
ªÑ²¼10C.rar (21.99 KB)
¤µ¦­½Ðª½±µ¥Î³o¤ä·sªº "ªÑ²¼10C.xlsm" °µ´ú¸Õ§a¡I

TOP

¦^´_ 125# c_c_lai


    C¤j¡A¥i¥H¥¿±`°õ¦æ¤F

TOP

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

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

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

TOP

¦^´_ 128# c_c_lai

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

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

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD