[已解决]EXCEL VB 的一个基础问题--变量值在SUB中的传递问题

enisaac@hotmail

1. sub T_Sum()
   
2. for i = 1 to 50
   
3. if range("b" & i ) =" A" then
   
4.    call T1
   
5. end if
   
6. if range("b" & i ) =" B" then
   
7.    call T2
   
8. end if
   
9. next i
   
10. end sub
    
11. sub T1()
    
12. c = c & range("d" & i ) & chr (10)
    
13. end sub
    
14. sub T1()
    
15. c = c & range("e" & i ) & chr (10)
    
16. end sub
    

复制代码

这是段演示代码， i 变量在第一个T_Sum过程中 ， 如何传递值给需要调用的T1或者T2过程，谢谢！

最佳答案

月排行榜 / 总排行榜

grf1973

2015-6-4 13:06

定义全局变量。
dim i
sub T_sum()
...
end sub

跳转到最佳答案楼层

grf1973

定义全局变量。
dim i
sub T_sum()
...
end sub

roych

确定不需要返回值吗？我理解的应该是这样：

1. sub T_Sum()
   
2. for i = 1 to 50
   
3. if range("b" & i ) =" A" then
   
4.    call T1(i)
   
5. end if
   
6. if range("b" & i ) =" B" then
   
7.    call T2(i)
   
8. end if
   
9. next i
   
10. end sub
    
11. function  T2( byval i as long) as string
    
12. T2= c & range("d" & i ) & chr (10)
    
13. end function
    
14. function  T1( byval i as long) as string
    
15. T1 = c & range("e" & i ) & chr (10)
    
16. end function

复制代码

wayy

可以把T2自定义函数写到T1代码中，最后输出结果。

enisaac@hotmail

目前仅学到了一半的知识，还需要努力。