自定义宏的参数问题

xdwy81129

写了个自定义宏如：
Sub 请教( cs1$, cs2$,cs3$)

现在我调用该自定义——请教
sub 调用（）
dim arr
arr = Array("A", "Z", "r", "T")
call 请教（“aa”，arr（2），“ok”）
endsub
可arr（2），提示：ByRef参数类型不符


所以请教应该怎么写为好。

另：call 请教（“aa”，”所以”，ok”）这样的形式不要影响调用

吕?布

Sub 请教(cs1$, cs2$, cs3$)   ' 方法1. 或者改成传值方式，Sub 请教(cs1$, ByVal cs2$, cs3$)
    Debug.Print cs1, cs2, cs3
End Sub
'现在我调用该自定义——请教
Sub 调用()
    Dim arr
    arr = Array("A", "Z", "r", "T")
    Call 请教("aa", (arr(2)), "OK") ' 方法2. 强制类型转换
End Sub

那么的帅

回复 xdwy81129 的帖子

1. 
   
2. 
   
3. Sub 请教(cs1$, cs2, cs3$) '修改这里
   
4.     MsgBox cs1
   
5.     MsgBox cs2
   
6.     MsgBox cs3
   
7. End Sub
   
8. '现在我调用该自定义——请教
   
9. Sub 调用()
   
10.     Dim arr
    
11.     arr2 = Array("A", "Z", "r", "T")  
    
12.     Call 请教("aa", arr(2), "OK")
    
13. End Sub
    
14. 
    

复制代码

wbzxz

回复 吕?布 的帖子

吕老师，您好，我看了您的解释，感觉好像理解啦，我描述一下，您看对不对啊：
楼主的错误所在：

因为在编写带参数的过程的时候，默认参数传递方法方式是按地址传递的（ByRef）；在ByRef进行参数传递的过程中，传递过来的变量必须与参数的数据类型一致；楼主的参数定义是字符串型(C2$)，但是传递进去的变量是 变体类型Variant；这样，传递进去的变量数据类型与所需数据类型不符，就会出现“ByRef 参数类型不匹配“的错误。




解决的思路有三个：


1、改成值传递方式， ByVal cs2$；


2、在参数两边加上括号，强制改变参数为所声明类型；


3、把CS2声明为变体类型，Sub 请教(cs1$, cs2, cs3$)；




请问吕布老师：

为什么按地址传递会发生错误的呢？嘿嘿，请教您。

吕?布

回复 wbzxz 的帖子

1. 总结的很全面，强制转换时也可以用CStr等C函数.
2. 传址会出错的原因我想是因为VBA为了保证其稳定性，对传址的情况进行了类型显式检查。这样，在代码运行前，如果发现类型不一致，便会报错。传址有时确实是一个危险的动做，但是我们在VBA中感觉不明显也许就是VBA进行这种检查的原因