vba运行时，出现代码13，类型不匹配错误？（但我的类型是一样的呀）

zgmboy 2003-12-07 10:41:30

xqiu = xqiu + CDbl(UserID(i, 3))
就这么简单的语句，xqiu我定义的为Double,UserID(i, 3)是取excel中单元格的值(是数字)，刚开始运行时几次这条语句并不出错，当循环到一定次数，xqiu值大概为32000多时，就出现题目说的错误。
郁闷!请教各位大侠!!!

...全文

1379 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

zgmboy 2003-12-23

打赏
举报

回复

找到错误了,循环到一定次数,USERID的值就为空了,所以转换函数出错.
给分

大雄 2003-12-09

打赏
举报

回复

我找个单元格循环到880000都没事，不知道你的取值UserID(i, 3)过程是怎样的，你检查一下这部份。

zgmboy 2003-12-08

打赏
举报

回复

怎么没人回答了，是不是这是ＶＢＡ的一个ＢＵＧ？

VBA 常见错误调试技巧,是学习Excel VBA的好帮手

vb中定义如下：类模块Class1中代码如下： Dim aa() As String Public Sub setName(ByRef str() As String) aa = str End Sub Public Function getName() As String() getName = aa End Function 模块Module1代码如下： Public MyName As New Class1 按钮Command1中代码如下： Private Sub Command1_Click() Dim cc() As String MyName.setName (cc()) End Sub 运行时怎么总是提示“类型不匹配，缺少数组或用户定义类型”啊？实在不知道错在哪里了？？

Excel VBA语法速查手册，包含丰富的源代码。

用VB6制作DLL文件，一个较为完整的vb封装vba代码的示例。

编写的高级筛选代码，可以实现办公自动化，效率比较高。对于其他数据记录，改改参数就可以，轻松搞定。

Microsoft Office应用

6,216

社区成员

23,066

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章