Question

我正在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的人表示歉意。

Answer 1

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

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

1 个答案: