换一个表单后给数组赋值类型不匹配

sunshinecrx · 发表于 2017-8-16 11:59

Dim rownum%
rownum=[T1].currentregion.rows.count
Dim columnnum%
columnnum=[T1].currentregion.columns.count

Dim datatable()
Redim datatable(1 to rownum, 1 to columnnum)
datatable = [T1].currentregion

上诉代码在SHEETS(1)中可以运行，复制到SHEETS(2)后，将最后一句代码改为datatable = sheets(2).[T1].currentregion，就不能运行了，求教！谢谢！

changhong8 · 发表于 2017-8-16 12:03

需要定义为动态数组，把redim datatable去掉

sunshinecrx · 发表于 2017-8-16 13:13

补充一下：上诉代码在SHEETS(1)中可以运行，复制到SHEETS(2)后，将最后一句代码改为datatable = sheets(1).[T1].currentregion，就不能运行了，求教！谢谢！

sunshinecrx · 发表于 2017-8-16 13:29

changhong8 发表于 2017-8-16 12:03
需要定义为动态数组，把redim datatable去掉

按你的做法后，报错“要求常数表达式”，光标停留在COLUMN。

changhong8 · 发表于 2017-8-16 13:55

Dim datatable
datatable = [T1].currentregion
你再试下

changhong8 · 发表于 2017-8-16 13:56

另外，你的代码是存放在工作表里面还是模块里面

sunshinecrx · 发表于 2017-8-16 14:02

changhong8 发表于 2017-8-16 13:56
另外，你的代码是存放在工作表里面还是模块里面

放在activex控件的“按钮”里

dqhtju · 发表于 2017-8-16 14:08

sunshinecrx 发表于 2017-8-16 14:02
放在activex控件的“按钮”里

基本问题
需要对所有的单元格引用加上父属性,否则他们会默认是当前表格
比如，Sheets(1).[T1]....

sunshinecrx · 发表于 2017-8-16 14:55

dqhtju 发表于 2017-8-16 14:08
基本问题
需要对所有的单元格引用加上父属性,否则他们会默认是当前表格
比如，Sheets(1).[T1]....

在SHEET1中可以运行，在SHEET2中我已经添加了父属性了，但是不能运行。

在SHEET1中上述代码前我是有排序的代码的，而SHEET2中直接就声明并调用DATATABLE，是不是这也有关系。

dqhtju · 发表于 2017-8-16 15:12

sunshinecrx 发表于 2017-8-16 14:55
在SHEET1中可以运行，在SHEET2中我已经添加了父属性了，但是不能运行。

在SHEET1中上述代码前我是有排 ...

娜的看你使用哪一个表格的数据了
如果要快速解决，你直接上附件

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

换一个表单后 给数组赋值 类型不匹配

换一个表单后给数组赋值类型不匹配