[發問] 若找不到該資料表~自動建立一個資料表~該怎麼下判斷式?

本帖最後由 av8d 於 2012-5-31 11:57 編輯

For i = 6 To 21
If Me.Controls("OptionButton" & i).Value = True Then
      Sheets("" & i + 2006 & "").Select
      Range("A1").Formula = i + 2006
      Call test
      Unload Me
End If
Next

Sheets("" & i + 2006 & "").Select
如果選擇以上工作表~找不到該工作表~(代表該工作表尚未建立)
我能否在當此錯誤發生時，自動建立一個此檔名的工作表?
--------------------------------------------------------------------------------------------
我看到一個範例了~大約是這樣
Sub AddSheet()
For N = 1 To [A65536].End(xlUp).Row
Sheets.Add
ActiveSheet.Name = Cells(N, 1)
Next
End Sub
-------------------------------------------------------
另一個自動增加100個工作表的範例
For i = 1 to 100
Sheets("sheet" & i ).select
Sheets("sheet" & i ).name= i
next

樓主熱帖

kevin681024

中學生 Rank: 2

帖子: 23
主題: 0
精華: 0
積分: 51
點名: 0
作業系統: WIn7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-3-30
最後登錄: 2013-7-10

2^#

發表於 2012-5-31 12:25 | 只看該作者

回復 1# av8d

試試看，主要在On Error Resume Next這句，當錯誤產生也就是沒有該工作表的時候不影響程式的接續

On Error Resume Next
For i = 6 To 21
If Me.Controls("OptionButton" & i).Value = True Then
Set Ws = Sheets("" & i + 2006 & "")
If Ws Is Nothing Then
ThisWorkbook.Sheets.Add().Name = "" & i + 2006 & ""
End If
Ws.Select
Range("A1").Formula = i + 2006
Call Test
Unload Me
End If
Next

複製代碼

80 字節以內
不支持自定義 Discuz! 代碼

TOP

av8d

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

3^#

發表於 2012-5-31 13:07 | 只看該作者

本帖最後由 av8d 於 2012-5-31 13:09 編輯

回復 2# kevin681024

大大謝謝你~有一個問題想請教~

Ws.Select

這段的意思選擇Ws所對應的工作表的意思嗎?

TOP

kevin681024

中學生 Rank: 2

帖子: 23
主題: 0
精華: 0
積分: 51
點名: 0
作業系統: WIn7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-3-30
最後登錄: 2013-7-10

4^#

發表於 2012-5-31 13:36 | 只看該作者

回復 3# av8d

我少了一段, Sorry,
Add完後，再下一列在一次
Set Ws = Sheets("" & i + 2006 & ""),
Ws.select主要是你的程式之前有Sheets("" & i + 2006 & "").select
所以改寫成這個樣子..

80 字節以內
不支持自定義 Discuz! 代碼

TOP

av8d

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

5^#

發表於 2012-7-12 16:31 | 只看該作者

本帖最後由 av8d 於 2012-7-12 16:57 編輯

回復 2# kevin681024

大大我最近刪除了一下OptionButton

改用TextBox9

I + 2006  也都改成 TextBox9

我該如何修改~? 謝謝! 以下我修改後無法執行~目前正在找原因

On Error Resume Next

         Set Ws = TextBox9

         If Ws Is Nothing Then

            ThisWorkbook.Sheets.Add().Name = TextBox9

            Sheets("2012").Select

            Cells.Copy Sheets("" & TextBox9 & "").[A1]

            Sheets("" & TextBox9 & "").Select

            Range("A1").Formula = TextBox9

            Call test

            Unload Me

            Call ShowMsgBox

         Else

            Ws.Select

            Range("A1").Formula = TextBox9

            Call test

            Unload Me

            Call ShowMsgBox

         End If

TOP