标签：VBA 不符 定义 ...... String 參数 变量 addr

作者：iamlaosong

1、问题提出

编程中发现一个问题。系统总是提示编译错误，ByRef 參数类型不符，

可实际上參数定义没问题。原因在哪儿呢？

2、问题环境

假定函数定义例如以下：

Function get_kind(addr As String) As Integer
......

End Function

调用过程：

Sub check_address()
    Dim addr, new_addr(10000) As String
    

    ......
    addr = new_addr(i)

    ......
    kk = get_kind(addr)
    ......
 End Sub

3、问题原因

addr赋值后类型就不正确了。尽管都是字符串，数组变量和单个变量不一样，编译系统就是报错。

找到原因问题就easy攻克了：

方法一：强制转换，用Cstr(addr)

方法二：换个变量。先赋值myaddr=addr，再调用kk = get_kind(myaddr)

4、真正原因

本以为找到了原因。这篇文章成文后非常久（2014-7-28），偶然情况下。才找到真正的原因。

事实上上面的方法尽管攻克了问题。但没有找到真正的原因。真正的原因是自己定义函数的參数必须单独定义，不能多个变量放在一起定义，上面的方法二中myaddr之所以成功，就是由于它是单独定义的。假设后面再加一个变量，相同会出错。也就是说每一个參数都要单独定义。一次一个。比如：

Dim addr As String

实际实验还发现。不一次一个也能够，可是要把參数变量放在最后，比如：

Dim str1,str2,addr As String

结论：定义參数变量类型时类型说明必须紧跟在变量之后，中间不能有其他变量。研究发现，VB6.0也存在相同的问题。八阿哥（BUG）？

标签：VBA,不符,定义,......,String,參数,变量,addr
来源： https://www.cnblogs.com/xfgnongmin/p/10751032.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。