声明一个要在所有函数中使用的变量

Question

我正在学习宏，所以我希望这里有一个明显的解决方案。 Google 和 Youtube 似乎没有多大帮助！ 我指的是根据用户的需求在各种功能中更改特定的单元格。在每个单独的函数内部，我一直在使用“Dim”和“Set”，即：

Dim foodtype As Range
Set foodtype = Worksheets("Sheet1").Range("A1")

有没有一种方法可以让我只建立一次变量并在各个函数中使用它？

Answer 1

创建一个新模块并在顶部应用以下代码：

Option Explicit

Public foodtype as Range

Public Sub sInitialise

  Set foodtype = Worksheets("Sheet1").Range("A1")

End Function

您现在可以从代码中的任何适当点调用 Sub sInitialise，而 foodtype 将保留该值并使其在任何地方都可用。

或者，您可以在代码中的任何位置使用

Set foodtype = Worksheets("YourSheetName").Range("YourRange")

来表示任何所需的值，而无需在

Dim

语句中声明它。