excel中VB如何调用子函数

显示全部楼层 · 2011-10-30 10:39:07

我要实现的是一个不断从库里面取值的功能。取值函数我会写。但是我这个要不断的取值。估计这个取值会用到上千次。然后我每次根据前面条件判断用哪个取值函数的时候（根据条件的不同，有功能相同的取值函数从不同的库里面取值），在运行这个函数。这样的话太麻烦了。我想的是把这些取值函数作为子函数。然后判断完了直接调用下。就行了。这个逻辑我清楚就是不知道怎么调用子函数。在VB里面实现大概就是原来的方法是我要先判断条件在运行下一步取值函数。数据量比较大，我要判断上千次。我要省的步骤就是取值函数。不然我判断次然后写一次函数。每次判断就要写一次取值函数太多了。我想的是把取值函数作为一个子函数每次只要判断完了，直接调用下就好了。不需要写那么多。留下QQ546681634.能帮我搞定的给200分。先悬赏100，之后追加100。。。

千问 · 2011-10-30 10:39:07

将每一个你需要的函数建一个索引表，并编号或者其他唯一的特征，再根据你取得值判断出特征标志，在根据特征标志调用函数。也就是用两个判断即可以了。不太成熟的，因为你所表述的我没有完全看懂。可以加qq三八六二一七一零六，帮你参考参考

千问 · 2011-10-30 10:39:07

先定义子函数用sub子程序名或Function子函数名定义然后在需要的地方用call子程序名或者=子函数名调用具体可以看excel帮助追问求个QQ联系下，谢谢了。我能单步实现功能了。就是加个循环就说语法有问题了。想详细请教下。

千问 · 2011-10-30 10:39:07

你的表述比较费劲。。。我理解的意思是取值这个功能本身行数太多了你想把它作为一个函数来调用减少代码量。FunctionGetValue(para1asxxx,para2asxxx)asxxx\'取值函数，中间是参数...\'这里写根据不同参数的取值过程SetGetValue=xxxx\'取到的值要赋给GetValue这个函数名作为返回值endfunctionSubYourMain()‘你的主函数，中间调用了取值函数...SelectCasexxJudgeCasexxtoxxxSetxxxx=GetValue(xx,xxx)CaseooSetxxxx=GetValue(oo,oo)....CaseElseSetxxxx=GetValue(xxxx,xxxx)EndSelectendSub希望我理解对了而且你能看懂。如果你是做ExcelVBA编程的话，可以看看编辑器自带的帮助，里面的例子很多很容易懂的追问求个QQ联系下，谢谢了。我能单步实现功能了。就是加个循环就说语法有问题了。想详细请教下。

千问 · 2011-10-30 10:39:07

好深奥呀呵呵和赞同