Excel 運(yùn)行時(shí)錯(cuò)誤9下標(biāo)越界的處理方法

excel 運(yùn)行時(shí)錯(cuò)誤9下標(biāo)越界的處理方法

excel中vba提示下標(biāo)超界，說明對(duì)象不存在或者數(shù)組元素不存在。

舉個(gè)簡單的例子：工作表中沒有"1月"這個(gè)工作表，卻用Sheets("1月")；數(shù)組定義的是arr(1 to 10)，卻用Arr(11)，都會(huì)出現(xiàn)下標(biāo)越界的提示。

簡單的理解：下標(biāo)越界就是引用超出了所在的范圍。

當(dāng)我們在excel的VBA中輸入下面代碼，運(yùn)行，就會(huì)出現(xiàn)“運(yùn)行時(shí)錯(cuò)誤9下標(biāo)越界”的提示。代碼如下：

Sub a()Dim arr() As Stringarr(1) = "你好"End Sub

其實(shí)上面的“運(yùn)行時(shí)錯(cuò)誤9下標(biāo)越界”是因?yàn)槎x的動(dòng)態(tài)數(shù)組沒有確定維數(shù)和尺寸。定義成固定維數(shù)和尺寸的，或用Redim界定一下維數(shù)和尺寸即可解決此問題。

改正后的代碼如下：

Sub a()Dim arr() ‘定義一個(gè)動(dòng)態(tài)數(shù)組Dim i As IntegerReDim arr(1 To 3) ‘定義一個(gè)3個(gè)元素的數(shù)組,并且對(duì)數(shù)組進(jìn)行初始化arr(1) = 3arr(2) = 4arr(3) = 5‘在下面語句重新定義一個(gè)10個(gè)元素的數(shù)組，清除前面的元素，并重新分配新的存儲(chǔ)變量ReDim arr(1 To 10)For i = 1 To 10arr(i) = iNext iEnd Sub

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。