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

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

然后，我将此行放到子目录之外，并显示错误：溢出，并指出以下代码部分作为原因：

y = vendornumber * (vendornumber + 1)

Answer 1

您需要在外部声明变量。

Public vendornumber As Integer

Public Sub tryout()
   vendornumber = 1

如何在VBA中公开变量？

1 个答案: