- 帖子
- 7
- 主題
- 2
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- Office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-10-27
- 最後登錄
- 2013-12-6
|
假設在我的workbook底下我只有sheet(1), sheet(2), sheet(3)這三個sheets
Run下面這個code時，我讓它等於sheet(4)然後跳出下面這個MsgBox
但是，我跑到Set A = Sheets(4)時會跳出 "執行階段錯誤9 陣列索引超出範圍"
然後就中斷了，也不會印出MsgBox的內容
請問除了On Error Resume Next還有什麼方法可以解決呢
謝謝!!
'On Error Resume Next
Dim A As Worksheet
Set A = Sheets(4)
If A Is Nothing Then
res = MsgBox("找不到該sheet" & vbCrLf & "動作中止", vbOKOnly + vbCritical)
Exit Sub
End If |
|
發表於 2011-11-23 14:56
| 
