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