VBA调用子拦神和程序时,如果不带参数,
直接写sub过程名,或者Call sub名称即可。
如果需要传递参数:
同样可以使用Call:
例如:简盯
Call PicInComment(1, 250)
参数写在后面,不带括号:
例如:
PicInComment 1, 250
也可以赋值给其他变量:
例瞎郑如:
result = PicInComment(1, 250)
你的表述比较费劲。。。我理解的意思是取值这个功能本身行数太旅桥多了你想把它作为一个函数来调用减少代码量。Function GetValue(para1 as xxx, para2 as xxx) as xxx '取值函数,中间是参数
...'这里旁芦写根据不同参数的取值过程
Set GetValue = xxxx '取到的值要赋给GetValue这个函数名作为返回值
end function
Sub YourMain() ‘你的主函数,中间调用了取值函数
...
Select Case xxJudge
Case xx to xxx
Set xxxx = GetValue(xx, xxx)
Case oo
Set xxxx = GetValue(oo,oo)
....
Case Else
Set xxxx = GetValue(xxxx,xxxx)
End Select
end Sub
希望我理解对了而且你能看懂。
如果你是做Excel VBA编程的话,可以看看编辑器自带的帮助,里面的例子很多很容易懂运镇带的
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)