PTT數位生活區 / Office

[算表] VBA On Error Resume Next

看板Office作者 (我還小)時間8年前 (2017/12/18 20:52), 8年前編輯推噓0(0推 0噓 12→)
留言12則, 3人參與, 8年前最新討論串1/1
軟體:excel 版本:2016 大家好 目前看書自學VBA中 書本中範例要把其中一欄的名稱，逐一新增成工作表名稱並不重複 Sub test() Dim i As Integer, sht As Worksheet Set sht = Worksheets("工作表21") i = 2 Do While sht.Cells(i, "C") <> "" On Error Resume Next If Worksheets(sht.Cells(i, "C").Value) Is Nothing Then Worksheets.Add after:=Worksheets(Worksheets.Count) ActiveSheet.Name = sht.Cells(i, "C").Value End If i = i + 1 Loop End Sub 其中加入了On Error Resume Next，估狗了一下這個指令是忽略錯誤繼續執行 當我拿掉這行指令事就無法執行程序了，代表 If Worksheets(sht.Cells(i, "C").Value) Is Nothing Then 有問題嗎?可是我看不出問題在哪，想問為啥差這個指令差這麼多，還有上面那行錯在哪 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.143.15.249 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1513601571.A.79D.html
→
12/18 23:28, 8年前 , 1F
Cells(r,c) 裡面放的是整數，不能用”C”。
12/18 23:28, 1F
→
12/18 23:33, 8年前 , 2F
抱歉，我錯了，可以用”C”。
12/18 23:33, 2F
→
12/18 23:38, 8年前 , 3F
如果少了那句，當worksheets is nothing 的時候就有Erro
12/18 23:38, 3F
→
12/18 23:38, 8年前 , 4F
r,因為他不知道那是什麼，所以要加入那句讓錯誤發生時繼
12/18 23:38, 4F
→
12/18 23:38, 8年前 , 5F
續執行。
12/18 23:38, 5F
→
12/19 09:45, 8年前 , 6F
可是 worksheets is nothing不就是表示當沒有這張工作表時
12/19 09:45, 6F
→
12/19 09:46, 8年前 , 7F
請excel增加一張嗎? 我不知道這指令錯在哪XD
12/19 09:46, 7F
→
12/19 09:57, 8年前 , 8F
on error resume nexte後因worksheeets無該張工作表會回傳
12/19 09:57, 8F
→
12/19 09:57, 8年前 , 9F
值nothing如不加就產生錯誤訊息
12/19 09:57, 9F
→
12/19 10:12, 8年前 , 10F
回傳值方面可於on error resume next下設個變數來set該
12/19 10:12, 10F
→
12/19 10:14, 8年前 , 11F
worksheet()的部分，並以區域變數視窗或快速監看，看該變
12/19 10:14, 11F
→
12/19 10:15, 8年前 , 12F
數(值)的部分
12/19 10:15, 12F
※ 編輯: zzatr (218.173.0.192), 12/21/2017 16:16:50
‣ 更多 zzatr 的文章
文章代碼(AID): #1QDxeZUT (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 zzatr 的文章
文章代碼(AID): #1QDxeZUT (Office)