Question

EXCEL VBA中 怎样保留调用宏中的变量值

Sub s()
a = 65
Call d
Range("a2") = a + b
End Sub
-----------------------------------------------------------------
Static Sub d()
Static b As Double
b = 40
End Sub

为什么A2的值总是65，用static声明也不行，怎样保留调用宏 d()中的变量b的值，使s()宏执行后A2的值是105
（不要说并在一起的，要两个宏的）

Answer 1

你那个b是在另一个函数里声明的，对第一个函数不可见，虽然它会保存值

方法一： 改成函数，并带返回值
Sub s()
a = 65
Call d
Range("a2") = a + d
End Sub

Function d()
Dim b As Double
b = 40

d = 40

End Function

方法二：用全局变量

Answer 2

我目前知道的有两种方法:
1、用数组变量，在程序的最前面先定义，之后在哪个模块下都可以调用该数组变量，且其值均会变化
2、把过程改写为函数

Answer 3

sub
显示客户公司名称()
compname1
=
cells(3,
1)
compname2
=
cells(4,
1)
msgbox
"第一个客户公司的名称为:"
&
compname1
_
&chr
(10)
&
"第二个客户公司的名为:"
&
compname2
end
sub
注意一行代码要分段写时，应在分段处空格_
或
sub
显示客户公司名称()
compname1
=
cells(3,
1)
compname2
=
cells(4,
1)
msgbox
"第一个客户公司的名称为:"
&
compname1
&
chr
(10)
&
"第二个客户公司的名为:"
&
compname2
end
sub