作者DGnzj (DG)
看板Visual_Basic
标题Re: [VBA ] 不同Sub共用相同参数
时间Mon Jan 18 22:21:17 2010
※ 引述《jjky ( )》之铭言：
: 不好意思 我是vab新手
: 目前碰到一个问题
: 在Sub getdata()内抓到了一些data的资讯
: 例如: data_num=40
: 在下一个Sub simulation()中 希望能用到这些资讯
: 例如: For a = 1 To data_num
: 请问应该对data_num 做些什麽处理才能在另外一个sub也知道它呢?
: 谢谢!
我先承认我没写过vba，但写过vb，所以我想应该是差不多的道理
我举两个例子，两个例子都能让A sub读到B SUB处理的变数
但这是直接用BBS打出来的，也许语法不周严请见谅
=====================以下献丑==========================
'第一种，宣告一个public(公开)的变数，如此一来只要是在那
'个mudle里面都能读取得到
Public dim G_Num as integer
Public SubA()
G_Num=0
Dim i as integer
For i = 0 to 3
G_Num = G_Num + i
Next i
SubB
End Sub
...
...
Public SubB()
Debug.print G_Num
End SubB
=================第二种=========================
'使用传值(ByVal)或传址(ByRef)
'被呼叫的sub或function设好对应的变数来接收
Public SubA()
Dim Num as integer
Num = 12345
SubB Num
End SubA
....
...
Public SubB(ByVal bNum as integer)
debug.print "收到的值是："bNum
End SubB
........
大概就是这样，如果有错的地方也让我了解一下吧~
希望对你有帮助~
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 112.104.208.73
1F：→ DGnzj:冏...射後不理，我也好想知道我写的在vba里面有没有问题~~ 01/19 17:55
2F：推 Marty:经过人脑的编译後..概念是对的..但是有一些语法是错的..XD.. 01/19 19:37