[求助]VBA中静态变量声明失效？

sody

在过程中定义静态变量

private sub（）

Static cn As Double

cn=999

call othersub

end sub

问题：为什么在 call othersub后cn的值又变成了空值

zhang007

肯定是在othersub过程中修改了cn的值

我测试了一下，没问题

Private Sub ghh()

Static cn As Double

cn = 999
MsgBox cn
Call othersub
MsgBox cn
End Sub

Public Sub othersub()
Dim d As String
End Sub

sody

Private Sub ghh()

Static cn As Double

cn = 999
MsgBox cn
Call othersub
MsgBox cn
End Sub

Public Sub othersub()
Dim d As String

MsgBox cn
End Sub

我的构想是要CN在othersub中值仍是999

在VB中这样写是可以的，但是VBA中cn的值好像被清空了

wyj7485

const cn=999放到前面

sody

我的意思是在othersub中cn的值保持原来的不变

不是说一定是999

jkbanana

Private Sub ghh()

Static cn As Double

cn = 999
MsgBox cn
Call othersub(cn)
MsgBox cn
End Sub

Public Sub othersub(cn as Double)
Dim d As String

MsgBox cn
End Sub

sody

我知道这样可以解决问题，但是在静态变量非常多的时候还是会很麻烦

在VB中直接用static定义就可以让变量在任何过程函数中保持静态，但是VBA可以定义却没有效果

请教解决的办法

jkbanana

在VBA中的某一过程中用static定义的变量,只在该过程函数中保持静态,

如在整个模块中都有效,不如定义成Public变量.

sody

Public cn


Sub n()
Static cn
kl= 111
cn = kl

Call m()
End Sub
Sub m()
Dim ss
ss = cn
End Sub

问题还是没有解决了，还是空值

zhang007

6楼的做法就可以，但不一定要声明为静态变量，普通变量就行,变量多的话用数组或结构体来做参数

建议多看看VB中有关地址传递和值传递