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

本帖最後由 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

樓主熱帖

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

kevin681024