Excel VBA带码提示下标越界

chrisxkc · 发表于 2018-11-19 15:19

总是提示下表越界，不知道是什么原因？另外，请帮忙看看下标越界问题解决后，listbox1中的内容是否能根据textbox1中的输入内容变化而变化！谢谢啦！

MOY838840554 · 发表于 2018-11-19 15:27

本帖最后由 MOY838840554 于 2018-11-19 16:30 编辑

开头加一句，不然清空TextBox1 Change事件还是会响应
Private Sub TextBox1_Change()
If TextBox1 = "" Then Exit Sub

chrisxkc · 发表于 2018-11-20 15:05

MOY838840554 发表于 2018-11-19 15:27
开头加一句，不然清空TextBox1 Change事件还是会响应
Private Sub TextBox1_Change()
If TextBox1 = "" ...

加上这句依旧不行，还是提示下标越界

ww87725244 · 发表于 2018-11-20 17:14

arr2 = .Range("e2:j" & .Cells(Rows.Count, "E").End(xlUp).Row)

ww87725244 · 发表于 2018-11-20 17:15

因为arr2的维度不够，所以越界，加个点吧

		自动登录	找回密码
密码			免费注册

[求助] Excel VBA带码提示下标越界