[發問] (已解決)如何搭配的儲存格數量不同自動新增對應的工作表

freeffly

VBA要怎麼修才能判斷當工作表的數量與要搭配的儲存格數量不同時，會自動新增對應的工作表?
如A40之後再增加”個17~個22”要怎麼寫VBA讓VBA自己增加這些工作表?



迴圈問題.rar (32.58 KB)

下載次數: 13

2011-4-22 12:26

GBKEE

回復 1# freeffly

1. Sub Ex()
   
2.     Dim R As Range
   
3.     On Error GoTo Out:
   
4.     With Sheets("彙總")
   
5.         For Each R In .Range("B:B").SpecialCells(xlCellTypeFormulas, xlErrors) '處裡B欄中公式有錯誤值的儲存格
   
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

複製代碼

freeffly

回復 2# GBKEE


    大大你的方法好像只有在B欄公式有問題時才處理
  可以在A欄有資料B欄空白或是公式有問題處理?
   原本我的思維是判斷那些儲存格數量跟工作表數量去做迴圈
  可惜我寫出來會有問題，大大的方式也提供了我不同的思考
  先謝謝!

GBKEE

回復 3# freeffly
A欄有資料

1. Sub Ex()  '處裡A欄有資料的儲存格
   
2.     Dim R As Range
   
3.     With Sheets("彙總")
   
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

複製代碼

freeffly

回復 4# GBKEE

看了大大這兩個例子又讓我學到一些
跟我原本的思考方式不太一樣
謝謝!

Hsieh

回復 3# freeffly

1. Sub ex()
   
2. Dim A As Range '此例只適用工作表明稱為來源參照內容
   
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

複製代碼

freeffly

回復 6# Hsieh


    Hsieh 大第三行就出現錯誤，你的方法好像是不是只有當有錯誤值時才執行?

Hsieh

回復 7# freeffly

If WorksheetFunction.CountIf(UsedRange, "=#REF!") = 0 Then Exit Sub
應該要指名工作表
If WorksheetFunction.CountIf(Sheet8.UsedRange, "=#REF!") = 0 Then Exit Sub
這是指該工作表內有產生參照錯誤的儲存格數量，如果此數量為0就退出程序

freeffly

回復 8# Hsieh


    謝謝回覆，大大的方式再找時間研究看看