如何在VBA中使变量公开？

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 vendornumber As Integer

它给出了错误：sub或function中的属性无效。

然后，我把这行放在sub之外，它给出了错误：溢出并指出下面代码的部分原因：

y = vendornumber * (vendornumber + 1)

Answer 1

您需要在外面声明变量。

Public vendornumber As Integer

Public Sub tryout()
   vendornumber = 1