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

[µo°Ý] (¤w¸Ñ¨M)¦p¦ó·f°tªºÀx¦s®æ¼Æ¶q¤£¦P¦Û°Ê·s¼W¹ïÀ³ªº¤u§@ªí

¦^´_ 3# freeffly
  1. Sub ex()
  2. Dim A As Range '¦¹¨Ò¥u¾A¥Î¤u§@ªí©úºÙ¬°¨Ó·½°Ñ·Ó¤º®e
  3. If WorksheetFunction.CountIf(UsedRange, "=#REF!") = 0 Then Exit Sub
  4. For Each A In Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
  5. If A.Value = CVErr(xlErrRef) Then
  6.   Set b = A.Precedents '¨Ó·½°Ñ·Ó
  7.   Sheets.Add(after:=Sheets(Sheets.Count)).Name = b.Text
  8. End If
  9. Next
  10. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 7# freeffly

If WorksheetFunction.CountIf(UsedRange, "=#REF!") = 0 Then Exit Sub
À³¸Ó­n«ü¦W¤u§@ªí
If WorksheetFunction.CountIf(Sheet8.UsedRange, "=#REF!") = 0 Then Exit Sub
³o¬O«ü¸Ó¤u§@ªí¤º¦³²£¥Í°Ñ·Ó¿ù»~ªºÀx¦s®æ¼Æ¶q¡A¦pªG¦¹¼Æ¶q¬°0´N°h¥Xµ{§Ç
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD