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

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

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

¥»©«³Ì«á¥Ñ freeffly ©ó 2012-2-22 17:04 ½s¿è

VBA­n«ç»ò­×¤~¯à§PÂ_·í¤u§@ªíªº¼Æ¶q»P­n·f°tªºÀx¦s®æ¼Æ¶q¤£¦P®É¡A·|¦Û°Ê·s¼W¹ïÀ³ªº¤u§@ªí?
¦pA40¤§«á¦A¼W¥[¡¨­Ó17~­Ó22¡¨­n«ç»ò¼gVBAÅýVBA¦Û¤v¼W¥[³o¨Ç¤u§@ªí?



°j°é°ÝÃD.rar (32.58 KB)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

¦^´_ 1# freeffly
  1. Sub Ex()
  2.     Dim R As Range
  3.     On Error GoTo Out:
  4.     With Sheets("·JÁ`")
  5.         For Each R In .Range("B:B").SpecialCells(xlCellTypeFormulas, xlErrors) '³B¸ÌBÄ椤¤½¦¡¦³¿ù»~­ÈªºÀx¦s®æ
  6.             With Sheets.Add
  7.                 .Name = R.Offset(, -1).Text
  8.                 .[a1] = R.Offset(, -1).Text
  9.             End With
  10.         Next
  11.         .Activate
  12.     End With
  13. Out:
  14. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE


    ¤j¤j§Aªº¤èªk¦n¹³¥u¦³¦bBÄ椽¦¡¦³°ÝÃD®É¤~³B²z
  ¥i¥H¦bAÄ榳¸ê®ÆBÄæªÅ¥Õ©Î¬O¤½¦¡¦³°ÝÃD³B²z?
   ­ì¥»§Úªº«äºû¬O§PÂ_¨º¨ÇÀx¦s®æ¼Æ¶q¸ò¤u§@ªí¼Æ¶q¥h°µ°j°é
  ¥i±¤§Ú¼g¥X¨Ó·|¦³°ÝÃD¡A¤j¤jªº¤è¦¡¤]´£¨Ñ¤F§Ú¤£¦Pªº«ä¦Ò
  ¥ýÁÂÁÂ!
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 3# freeffly
AÄ榳¸ê®Æ
  1. Sub Ex()  '³B¸ÌAÄ榳¸ê®ÆªºÀx¦s®æ
  2.     Dim R As Range
  3.     With Sheets("·JÁ`")
  4.         For Each R In .Range("A:A").SpecialCells(xlCellTypeConstants)
  5.             On Error Resume Next
  6.             Sheets(R.Text).Activate
  7.             If Err > 0 Then
  8.                 With Sheets.Add
  9.                     .Name = R.Text
  10.                     .[a1] = R.Text
  11.                 End With
  12.                 Err.Clear
  13.             End If
  14.         Next
  15.         .Activate
  16.     End With
  17. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# GBKEE

¬Ý¤F¤j¤j³o¨â­Ó¨Ò¤l¤SÅý§Ú¾Ç¨ì¤@¨Ç
¸ò§Ú­ì¥»ªº«ä¦Ò¤è¦¡¤£¤Ó¤@¼Ë
ÁÂÁÂ!
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

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

¦^´_ 6# Hsieh


    Hsieh ¤j²Ä¤T¦æ´N¥X²{¿ù»~¡A§Aªº¤èªk¦n¹³¬O¤£¬O¥u¦³·í¦³¿ù»~­È®É¤~°õ¦æ?
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

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

¦^´_ 8# Hsieh


    ÁÂÁ¦^ÂСA¤j¤jªº¤è¦¡¦A§ä®É¶¡¬ã¨s¬Ý¬Ý
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD