返回列表 上一主題 發帖

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

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
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
收藏 分享

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
2#
發表於 2012-5-31 13:07 | 顯示全部帖子
本帖最後由 av8d 於 2012-5-31 13:09 編輯

回復 2# kevin681024


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

Ws.Select

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

TOP

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
3#
發表於 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

        靜思自在 : 有時當思無時苦，好天要積雨來糧。
返回列表 上一主題