返回列表 上一主題 發帖

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

kevin681024

帖子
23 
主題
0 
精華
0 
積分
51 
點名
0  
作業系統
WIn7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-3-30 
最後登錄
2013-7-10 
1# 跳轉到 »
發表於 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

kevin681024

帖子
23 
主題
0 
精華
0 
積分
51 
點名
0  
作業系統
WIn7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-3-30 
最後登錄
2013-7-10 
2#
發表於 2012-5-31 13:36 | 顯示全部帖子
回復 3# av8d


    我少了一段, Sorry,
    Add完後，再下一列在一次
    Set Ws = Sheets("" & i + 2006 & ""),
    Ws.select主要是你的程式之前有Sheets("" & i + 2006 & "").select
    所以改寫成這個樣子..
80 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題