VBA 模块级变量和过程级变量，全局变量，局部变量，end,exit end sub等影响

一个SUB内变量尽量要独立，因为所有变量都在sub生效

 

 

1、全局变量在整个工程文件内都有效；

2、静态全局变量只在定义它的文件内有效；

3、静态局部变量只在定义它的函数内有效，且程序仅分配一次内存，函数返回后，该变量不会消失；局部变量在定义它的函数内有效，但是函数返回后失效。
4、全局变量和静态变量如果没有手工初始化，则由编译器初始化为0。局部变量的值不可知。

5、静态局部变量与全局变量共享全局数据区，但静态局部变量只在定义它的函数中可见。静态局部变量与局部变量在存储位置上不同，使得其存在的时限也不同，导致对这两者操作 的运行结果也不同。

https://blog.csdn.net/Littlehero_121/article/details/88634153

 

 

• Public和Private只能在过程外使用，用来定义模块级变量，区别是Public定义的模块级变量对外界可见，可以被本模块和其他模块使用。而Private定义的模块级变量，只能用于本模块，不能被其他模块调用。
• Dim可以用于过程内部和外部，但不管用于过程内外，使用Dim语句定义的变量均为私有，无法在模块外使用；
• Static只能在过程内部定义静态变量，由Static定义的变量只能用于本过程，不能被本模块的其他Sub或Function调用，更不能被其他模块调用。

 

跨模块级
public  （只能定义在过程外）

模块级
public    （只能定义在过程外）
private   （只能定义在过程外）
dim   

过程级
dim
static   （只能定义在过程内）

 

 

 

先把代码写着，一会不全

局部变量

dim k 

k 

 这种其他sub无法

Dim j
Public k
Private l


Sub test01()
Static m

j = 1
k = 0
l = 3
m = 5

For i = 1 To 5
   k = i * i
   Debug.Print k
Next

End Sub


Sub test02()

Debug.Print k
End Sub


Sub test03()

test01
Debug.Print k
Debug.Print j
Debug.Print l
Debug.Print m

End Sub

 

'同一个sub里，不要用重复的变量名！

为啥循环完了，i=6了？

Dim j
Public k
Private l


Sub test01()
Static m

j = 1
k = 0
l = 3
m = 5

For i = 1 To 5
   k = i * i
   Debug.Print "i=" & i; "  ";
   Debug.Print "k=" & k
Next

'为毛i=6了？
Debug.Print "i=" & i
Debug.Print "i=" & i
Debug.Print "i=" & i

'同一个sub里，不要用重复的变量名！
x = i + 1
Debug.Print "x=" & x


End Sub


Sub test02()

Debug.Print k
End Sub


Sub test03()

test01
Debug.Print k
Debug.Print j
Debug.Print l
Debug.Print m
End Sub