返回列表 上一主題 發帖

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

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-5-31 11:11 | 只看該作者

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

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

帖子
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這句，當錯誤產生也就是沒有該工作表的時候不影響程式的接續
  1. On Error Resume Next
  2. For i = 6 To 21
  3.     If Me.Controls("OptionButton" & i).Value = True Then
  4.         Set Ws = Sheets("" & i + 2006 & "")
  5.         If Ws Is Nothing Then
  6.             ThisWorkbook.Sheets.Add().Name = "" & i + 2006 & ""
  7.         End If
  8.         Ws.Select
  9.         Range("A1").Formula = i + 2006
  10.         Call Test
  11.         Unload Me
  12.     End If
  13. Next
複製代碼
80 字節以內
不支持自定義 Discuz! 代碼

TOP

av8d

帖子
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

帖子
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

帖子
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

        靜思自在 : 成功是優點的發揮，失敗是缺點的累積。
返回列表 上一主題