VBA初學者，常常會遇到下標越界問題。
盡管出現(xiàn)下標越界的原因是多種多樣，但終究是因為對象不存在或者超出范圍，就會出現(xiàn)下標越界的提示框，如下圖所示：
Microsoft Visual Basic ~運行時錯誤'9'~下標越界，錯誤原因分析：
如果使用數(shù)組時，數(shù)組的下標超出數(shù)組的可取值范圍就會出現(xiàn)這個錯誤，這個數(shù)組可以是自定義的也可以是系統(tǒng)自帶的。
1.自定義數(shù)組：
dim arr1(1 to 5)
arr1(10)=555
因為arr1數(shù)組為1到5，這里卻是10，所以就會報下標越界錯誤。
2.系統(tǒng)自帶的數(shù)組：
一個excel工作表表有3張Sheet
Sub 下標越界()
MsgBox Sheets(4).Name
End Sub
這里的Sheets(4)顯然已經(jīng)超出了3張Sheet，因此也會報下標越界錯誤。
總之，有多種情況會引起“下標越界”的報錯。
下標越界錯誤大概有以下的原因和解決方法：
引用了不存在的數(shù)組元素。
下標比可能下標范圍大或小，或是在應用程序中這一邊的數(shù)組沒有指定范圍。檢查數(shù)組的聲明以確認其上界和下界。若使用的是重新指定范圍的數(shù)組，應使用 UBound 和 LBound 函數(shù)來決定數(shù)組訪問。如果索引指定為變量，應檢查變量名的拼寫。
聲明數(shù)組時沒有指定元素的數(shù)目。
引用了不存在的集合成員。 試著使用 For Each...Next 結構代替指定元素下標。
使用速寫形式的下標，結果指定了錯誤的元素。
下標越界不存在對應的工作薄、工作表名稱是否寫正確。
當再次遇到VBA報下標越界錯誤時，就不會驚慌了，至少大概知道其原因了。我們再參照上面的思路去修改代碼就可以解決下標越界的錯誤。
核心關注：拓步ERP系統(tǒng)平臺是覆蓋了眾多的業(yè)務領域、行業(yè)應用，蘊涵了豐富的ERP管理思想，集成了ERP軟件業(yè)務管理理念，功能涉及供應鏈、成本、制造、CRM、HR等眾多業(yè)務領域的管理，全面涵蓋了企業(yè)關注ERP管理系統(tǒng)的核心領域，是眾多中小企業(yè)信息化建設首選的ERP管理軟件信賴品牌。
轉載請注明出處：拓步ERP資訊網(wǎng)http://www.lukmueng.com/
本文標題：Excel VBA下標越界原因和方法
本文網(wǎng)址：http://www.lukmueng.com/html/support/11139215345.html
相關文章
