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 時間: 2012-5-31 12:25