使用函数获取变量的值（将变量从函数传递到子程序）

19 浏览
0 Comments

使用函数获取变量的值（将变量从函数传递到子程序）

这个问题已经有了答案:

如何从 VBA 函数返回结果

我正在使用位于 Windows 计算机上的 Excel（Office 365）中的 VBA。（我已经发现几乎没有任何主要的 VBA 函数在 Mac 上可用）。

首先，我向所有那些说“这个问题已经被问过了”的人道歉。可能确实是这样，但我已经在这里花了一个多小时找不到答案。

我找到了如何将变量的值传递到函数，但我就是没办法回到子程序。

有一些类似的问题，但答案中的代码远远超出了我这个绝对初学者的水平，我不能理解它。我试过很多方法，如使用“Option Explicit”、“Dim”、“Public”和“Private”，但我就是不能使这个代码工作。

所以这里是代码。请有人能正确地为我重写它吗？

Sub GetTheValueOfXXX()
      getXXX
      MsgBox XXX
End Sub
Function getXXX()
      XXX = 999
End Function

谢谢任何对我这个完完全全的初学者感到同情的人，向那些认为这就像加 1 加 1 的人道歉。

admin 更改状态以发布 2023年5月24日
0

1 答案

0 Comments 

Sub GetTheValueOfXXX()
    Dim x
    x = getXXX()
    Msgbox x
End Sub
Function getXXX()
    getXXX = 999   '<< return a value using the function's name...
End Function

数组：

Sub GetTheValueOfXXX()
    Dim x
    x = getXXX()
    Msgbox x(0)   '>> 999
    Msgbox x(1)   '>> 88
End Sub
Function getXXX()
    getXXX = Array(999, 88, 7) 
End Function

0