- 帖子
- 11
- 主題
- 2
- 精華
- 0
- 積分
- 15
- 點名
- 0
- 作業系統
- WIN XP
- 軟體版本
- EXCEL 2010
- 閱讀權限
- 10
- 性別
- 男
- 來自
- 高雄
- 註冊時間
- 2015-10-2
- 最後登錄
- 2021-8-3
|
回復 6# 准提部林
准提部林版大: 謝謝您的寶貴提醒 ,的確有這一點小小的狀況 。
但是版大 If xS Is Nothing Then MsgBox "工作表不存在": Exit Sub
這行貼上去後 我去做一個沒有工作表的執行
指令只跑到 If xS Is Nothing Then 就出現偵錯了
而不會繼續跑 MsgBox "工作表不存在": Exit Sub 這段錯誤提醒
請問我是哪個部分錯了??- Sub 導入()
- Application.ScreenUpdating = False
- With Sheets("銷貨單")
- If .[B12] = "" Then MsgBox "請輸入資料後再按按鈕 ": Exit Sub
- shN = .[O14]
- Ro = .[B27].End(xlUp).Row
- arr = .Range("C12:I" & Ro)
- 日期 = .[h7]
- End With
- On Error Resume Next '表示當一個執行階段錯誤產生時，程式控制立刻到發生錯誤陳述式接下去的陳述式
- Set xS = Sheets(shN) '設定 xS 為尋找的工作表 如果找不到會產生錯誤，所以要有上一句和下一句
- On Error GoTo 0 '停止現在程序裏任何已啟動的錯誤處理程式
- If xS Is Nothing Then MsgBox "工作表不存在": Exit Sub
- With xS
- xSro = .Cells(Rows.Count, 1).End(xlUp).Row + 1
- .Cells(xSro, "B").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
- .Range("A" & xSro & ":A" & xSro + UBound(arr, 1) - 1) = 日期
- End With
- Sheets("銷貨單").Select
- Range("B12:B26,D12:D26,H7:H8,H5").ClearContents
- Range("C4") = "S" & Format(Right(Range("C4"), 4) + 1, "0000")
- Range("O14").Select
- Application.ScreenUpdating = True
- End Sub
|
|
發表於 2015-10-2 22:22
| 
,一早醒來都感動到快流眼淚了。
