非数组模块调用数组模块发生类型或下标错误

cysczhumh

单个模块都能运行，调用或写成一个模块就发生类型不匹配或数组下标错误。

3190496160

Dim arr()
arr定义的是一个动态数组，但是
arr = Sheets("欠注井").[a1].CurrentRegion
在给它赋予实际的意义的时候确实一个单元格区域，也就是一个静态的数组，肯定是类型不匹配的呀

3190496160

修改为这样
Dim arr As Variant
但是，后面的代码还在问题多多哟

cysczhumh

3190496160 发表于 2022-12-14 22:33
Dim arr()
arr定义的是一个动态数组，但是
arr = Sheets("欠注井").[a1].CurrentRegion

单独运行计算行号（）有正确的结果

cysczhumh

3190496160 发表于 2022-12-14 22:35
修改为这样
Dim arr As Variant
但是，后面的代码还在问题多多哟

在Sub 计算行号()中删除了数组定义，单独运行，在表2中显示正确结果。在Sub 按钮1_单击()中将Dim arr As  Integer 改为Dim arr As Variant，运行结果是k1 = arr(i, 3) '单井初始行号  下标越界。

cysczhumh

如何修改呢？

zxsea_7426

我改了很多，供参考：

cysczhumh

zxsea_7426 发表于 2022-12-15 17:14
我改了很多，供参考：

谢谢，辛苦了！运行结果非常正确。如果没有初始行号和结束行号这2列辅助列，总是出现类型不匹配问题。