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

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

9^#

發表於 2011-4-25 08:24 | 只看該作者

回復 8# Hsieh

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

字典兩各字還真難理解

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 256
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2011-4-23 23:43 | 只看該作者

回復 7# freeffly

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

學海無涯_不恥下問

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

7^#

發表於 2011-4-23 19:54 | 只看該作者

回復 6# Hsieh

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

字典兩各字還真難理解

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 256
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2011-4-23 19:29 | 只看該作者

回復 3# freeffly

Sub ex()
Dim A As Range '此例只適用工作表明稱為來源參照內容
If WorksheetFunction.CountIf(UsedRange, "=#REF!") = 0 Then Exit Sub
For Each A In Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
If A.Value = CVErr(xlErrRef) Then
Set b = A.Precedents '來源參照
Sheets.Add(after:=Sheets(Sheets.Count)).Name = b.Text
End If
Next
End Sub

複製代碼

學海無涯_不恥下問

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

5^#

發表於 2011-4-23 18:52 | 只看該作者

回復 4# GBKEE

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

字典兩各字還真難理解

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2011-4-23 17:38 | 只看該作者

回復 3# freeffly
A欄有資料

Sub Ex() '處裡A欄有資料的儲存格
Dim R As Range
With Sheets("彙總")
For Each R In .Range("A:A").SpecialCells(xlCellTypeConstants)
On Error Resume Next
Sheets(R.Text).Activate
If Err > 0 Then
With Sheets.Add
.Name = R.Text
.[a1] = R.Text
End With
Err.Clear
End If
Next
.Activate
End With
End Sub

複製代碼

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

3^#

發表於 2011-4-23 15:03 | 只看該作者

回復 2# GBKEE

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

字典兩各字還真難理解

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-4-22 15:18 | 只看該作者

回復 1# freeffly

Sub Ex()
Dim R As Range
On Error GoTo Out:
With Sheets("彙總")
For Each R In .Range("B:B").SpecialCells(xlCellTypeFormulas, xlErrors) '處裡B欄中公式有錯誤值的儲存格
With Sheets.Add
.Name = R.Offset(, -1).Text
.[a1] = R.Offset(, -1).Text
End With
Next
.Activate
End With
Out:
End Sub

複製代碼