调用Personal.xlsb中VBA函数后结果丢失问题咨询

核心原因：模块级变量的独立性 #

你在调用模块和Personal.xlsb的模块里都用Dim R As Integer定义变量，这属于模块级私有变量——每个模块的R是完全独立的内存空间，互相不影响：

• 在OTHER_TEST函数里修改的是Personal.xlsb模块内的R，它的值变成100，但这个变量只在Personal.xlsb的模块里有效。
• 你的TEST子过程里的R是当前模块自己定义的私有变量，初始值为0，和Personal.xlsb里的R毫无关联，所以弹窗显示的是当前模块的R值0。

额外代码问题 #

你的TEST子过程里的Call语句是无效的冗余代码，没有实际作用，可以直接删除。另外OTHER_TEST函数定义了返回Integer类型，但没有给OTHER_TEST赋值（比如OTHER_TEST = R），这会导致函数默认返回0，不过这不是你当前变量不同步的核心问题。

解决思路 #

如果需要跨模块共享变量R，可以按以下方式修改：

1. 将变量声明为公共变量：在Personal.xlsb的模块里把Dim R As Integer改成Public R As Integer，然后在调用模块的TEST子过程里，不要自己定义R，直接引用Personal.xlsb的公共变量：

Sub TEST()
    Application.Run "PERSONAL.XLSB!OTHER_TEST", 99
    MsgBox PERSONAL.XLSB!R
End Sub

2. 按引用传递参数：修改OTHER_TEST的参数，把R按引用传递进去（默认是ByVal值传递，不会修改原变量），这样函数里的修改会同步到调用模块的变量：

' Personal.xlsb里的函数
Public Function OTHER_TEST(X As Integer, ByRef R As Integer) As Integer
    R = R + 1
End Function

' 调用模块的TEST子过程
Sub TEST()
    Dim R As Integer
    R = 99 ' 初始值
    Application.Run "PERSONAL.XLSB!OTHER_TEST", 99, R
    MsgBox R ' 此时会显示100
End Sub

内容的提问来源于stack exchange，提问作者KKAIII