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

[µo°Ý] µ{§Ç¨S°ÝÃD¡Aµª®×Óý¦³°ÝÃD????

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-10-30 13:24 ½s¿è

¦^´_ 10# t8899
¸Õ¸Õ¬Ý
  1. Private Sub ±Æ§Ç­È(Rng As Range) '±Æ°£¦³­«½Æªº¼Æ­È
  2.     Dim e As Range
  3.     Set D = CreateObject("SCRIPTING.DICTIONARY")
  4.     For Each e In Rng.SpecialCells(xlCellTypeFormulas)'¯S®íÀx¦s®æ(¤½¦¡)
  5.        If IsNumeric(e) Then D(e.Value) = ""
  6.     Next
  7. End Sub
½Æ»s¥N½X
¤U¸ü§AªºÀÉ®×,·|¸ß°Ý¬O§_§ó·s°Ñ·Ó,¨S¦³§AªºDEEÀ³¥Îµ{¦¡¥i§ó·s(¦³DEE¤½¦¡ªºÀx¦s®æ³£¬O¿ù»~­È)
½Ð­«·s¤W¶ÇÀÉ®×,¦bThisWorkbook ¼Ò²Õ¥[¤W³oµ{¦¡,´N¤£·|¸ß°Ý¬O§_§ó·s°Ñ·Ó.
  1. Private Sub Workbook_Open()
  2.     Me.UpdateLinks = xlUpdateLinksNever
  3. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_  t8899
¸Õ¸Õ¬Ý¤U¸ü§AªºÀÉ®×,·|¸ß°Ý¬O§_§ó·s°Ñ·Ó,¨S¦³§AªºDEEÀ³¥Îµ{¦¡¥i§ó·s(¦³DEE¤½¦¡ªºÀx¦s®æ³£¬O¿ù ...
GBKEE µoªí©ó 2014-10-30 12:46


§Ú¥»¨Ó´N¥Î¦b¦³DDE ªº³sµ²°Ú¡A¦]¬°­n´£¨Ñ´ú¸Õ¡A¥u§â­È«þ¥X¨Ó
²{¦b³£¨S°ÝÃD¤F°Ú, ÁÂÁÂ!

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD