下标越界

whnapoleon · 发表于 2018-8-21 16:28

图片所示位置，运行时报错：下标越界

晚生初学VBA，对此困惑良久，着实不知为何，还请诸位大神不吝赐教！

PS：
附件sheet1里有个button，点一下会运行vba内容

whnapoleon · 发表于 2018-8-21 16:35

我其实就想把cedent那一列做筛选，将每次筛选结果对应需要的值都新建一个sheet存起来

iwangyi · 发表于 2018-8-21 16:40

sheets()，括号中表名必须加双引号

whnapoleon · 发表于 2018-8-21 16:44

iwangyi 发表于 2018-8-21 16:40
sheets()，括号中表名必须加双引号

我那个temp对应的是a这个字典某个key的值，您看下面else后面那段，这个temp与后面的x是对应的，并没有添加引号一样可以使用，此外按您说的添加了双引号，然而还是一样报错

whnapoleon · 发表于 2018-8-21 16:47

iwangyi 发表于 2018-8-21 16:40
sheets()，括号中表名必须加双引号

此外还有一点就是，我的这个temp和x都是数字，望您知悉

半百 · 发表于 2018-8-21 16:53

Dim temp As String
改为
Dim temp
或直接删除

whnapoleon · 发表于 2018-8-21 17:02

半百发表于 2018-8-21 16:53
Dim temp As String
改为
Dim temp

多谢您替我指出这个错误，0.0不过他还是会报错。。。

redsheep · 发表于 2018-8-21 17:07

sheets(表格排序位置)这种表达方式要求括号里的内容是个数值就是工作簿里从第一个开始数第n个表你的temp是个文本字符要区别好文本2和数字2的区别,这里能看到，2的前后都有个双引号。
QQ截图20180821170229.png

这主要就是因为你给temp定义了个string属性的原因, 本来a(Sheet1.Cells(i, 9).Value)的结果是数值2(没有引号的)，但是你把它赋值给一个文本变量，就变成文本2了
QQ截图20180821170518.png

whnapoleon · 发表于 2018-8-22 08:59

redsheep 发表于 2018-8-21 17:07
sheets(表格排序位置)这种表达方式要求括号里的内容是个数值就是工作簿里从第一个开始数第n个表你 ...

多谢多谢，我后来又试了试，确实是这个地方出的问题，前面那位大神已经说对了，多谢各位多谢各位

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

[求助] 下标越界