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

[µo°Ý] ¦Û°Ê¥h°£ .References "¿òº|" ¶µ;isbroken, Count¥¢®Ä

¦^´_ 2# Scott090

¸Õ¸Õ¬Ý¬O§_¥i¦æ?
¤Ä¿ï"«H¥ô¦s¨úVBA±M®×ª«¥ó¼Ò«¬"

  1. Sub ex()
  2. For Each ref In ThisWorkbook.VBProject.References
  3. If Dir(ref.Fullpath) = "" Then Remove ref
  4. Next
  5. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD