如何在VBA中创建变量public？

Question

我需要找到 vendornumber 值以根据给定数据构建矩阵。我在

下面写了代码（在 VBA）

（它有更多的行用于矩阵构造，但我在这里删掉了它们）

Public Sub tryout()
 Dim vendornumber As Integer
 Dim rownumber As Integer
 rownumber = Worksheets("DISTANCE").Range("A2", 
 Worksheets("DISTANCE").Range("A2").End(xlDown)).Rows.Count
    Dim y As Integer
    Do Until (y = rownumber)
       y = vendornumber * (vendornumber + 1)
       vendornumber = vendornumber + 1
    Loop
End Sub

代码运行完美，但我也想在其他模块中使用这个值。我试图将变量 public 设为：

Public vendornumber As Integer

它给出了错误：子函数或函数中的属性无效。

然后，我将这一行放在子程序之外，它给出了错误：溢出，并指出下面的代码部分是原因：

y = vendornumber * (vendornumber + 1)

Answer 1

需要在外部声明变量。

Public vendornumber As Integer

Public Sub tryout()
   vendornumber = 1

如何在VBA中创建变量public？

How to make the variable public in VBA?

excel

vba

public