vba传递参数类型错误
先来看看微软官方的说明:
目录内容
概要
类型不匹配: 数组或预期的用户定义类型
解决方案
更多信息
重现问题的步骤
- 在 Microsoft Excel 中创建一个新工作簿。
- 从插入菜单中,选择宏,然后选择模块。
在 Microsoft Excel 97 中,请按 ALT + F11 来激活 Visual Basic 编辑器中。然后,在插入菜单中单击模块。 - 在模块中键入以下过程:
Sub First() Dim A(1 to 20) As Double Second A() End Sub Sub Second(B() As Single) End Sub
- 从工具菜单中,选择宏。选择首先,名为的宏,然后选择运行。
在 Microsoft Excel 97 中,请单击工具菜单上的宏。首先,单击然后单击运行。
此时,您应该收到上述错误消息之一。
Sub Correct() Dim A(1 to 20) As Double Example A() End Sub Sub Example(B() As Double) End Sub
出处:http://support.microsoft.com/kb/121114/
=============================================================
下面再看看网上其他人的解释,及解决方法
'简单的测试程序
Private Sub Form_Load()
Dim ii As Integer
Dim ba(), bb() As Byte
ReDim ba(9)
ReDim bb(9)
For ii = 0 To 9
ba(ii) = 3 * ii + 2
Next
Call ttsub(ba(), bb())
End Sub
Private Sub ttsub(a() As Byte, b() As Byte)
Dim aa As Byte
For aa = 0 To 9
b(aa) = a(aa) + 1
Next
End Sub
调试时提示下述错误:
compile error:
type mismatch: array or user-defined type expected
错误指向Call ttsub(ba(), bb())一句中的ba()
请问这段程序哪儿错了?该怎么改?
解决方法:
Dim ba(), bb() As Byte
这个是错误的.要写就写全,因为vb默认是变体Variant类型的.
所以千万不能马虎,得写Dim ba() As Byte, bb() As Byte
- 提问者评价:原来是这样,感谢!
关注我】。(●'◡'●)
如果,您希望更容易地发现我的新博客,不妨点击一下绿色通道的【因为,我的写作热情也离不开您的肯定与支持,感谢您的阅读,我是【Jack_孟】!
本文来自博客园,作者:jack_Meng,转载请注明原文链接:https://www.cnblogs.com/mq0036/p/4239040.html
【免责声明】本文来自源于网络,如涉及版权或侵权问题,请及时联系我们,我们将第一时间删除或更改!
posted on 2015-01-21 15:37 jack_Meng 阅读(1102) 评论(0) 编辑 收藏 举报