日日操夜夜添-日日操影院-日日草夜夜操-日日干干-精品一区二区三区波多野结衣-精品一区二区三区高清免费不卡

公告:魔扣目錄網為廣大站長提供免費收錄網站服務,提交前請做好本站友鏈:【 網站目錄:http://www.ylptlb.cn 】, 免友鏈快審服務(50元/站),

點擊這里在線咨詢客服
新站提交
  • 網站:51998
  • 待審:31
  • 小程序:12
  • 文章:1030137
  • 會員:747

Excel中vba提示下標超界,說明對象不存在或者數組元素不存在。

  舉個簡單的例子:工作表中沒有"1月"這個工作表,卻用Sheets("1月");數組定義的是arr(1 to 10),卻用Arr(11),都會出現下標越界的提示。

  簡單的理解:下標越界就是引用超出了所在的范圍。

  當我們在excel的VBA中輸入下面代碼,運行,就會出現“運行時錯誤9下標越界”的提示。代碼如下:

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

  其實上面的“運行時錯誤9下標越界”是因為定義的動態數組沒有確定維數和尺寸。定義成固定維數和尺寸的,或用Redim界定一下維數和尺寸即可解決此問題。

  改正后的代碼如下:

Sub a()
Dim arr() ‘定義一個動態數組
Dim i As Integer
ReDim arr(1 To 3) ‘定義一個3個元素的數組,并且對數組進行初始化
arr(1) = 3
arr(2) = 4
arr(3) = 5
‘在下面語句重新定義一個10個元素的數組,清除前面的元素,并重新分配新的存儲變量
ReDim arr(1 To 10)
For i = 1 To 10
arr(i) = i
Next i
End Sub

分享到:
標簽:下標 定義 數組 越界 Excel函數
用戶無頭像

網友整理

注冊時間:

網站:5 個   小程序:0 個  文章:12 篇

  • 51998

    網站

  • 12

    小程序

  • 1030137

    文章

  • 747

    會員

趕快注冊賬號,推廣您的網站吧!
最新入駐小程序

數獨大挑戰2018-06-03

數獨一種數學游戲,玩家需要根據9

答題星2018-06-03

您可以通過答題星輕松地創建試卷

全階人生考試2018-06-03

各種考試題,題庫,初中,高中,大學四六

運動步數有氧達人2018-06-03

記錄運動步數,積累氧氣值。還可偷

每日養生app2018-06-03

每日養生,天天健康

體育訓練成績評定2018-06-03

通用課目體育訓練成績評定