excel中VB如何调用子函数

你的表述比较费劲。。。我理解的意思是取值这个功能本身行数太多了你想把它作为一个函数来调用减少代码量。

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编程的话，可以看看编辑器自带的帮助，里面的例子很多很容易懂的

调用sub过程有两种方法

1,用call关键字,实参必须加圆括号

2,不用call关键字时,实参不加圆括号

所以你的这个函数有两种调用方法

Private Sub Timer1_Timer()

****需要调用处 1, call WebBrowser1_DocumentComplete(参数1,参数2)

2, WebBrowser1_DocumentComplete 参数1,参数2

End Sub

---