时间戳

首页 > 解决方案 > 如何在 VBA 中公开变量？

excel - 如何在 VBA 中公开变量？

问题描述

我需要找到 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)

标签： excelvbapublic

解决方案

您需要在外面声明变量。

Public vendornumber As Integer

Public Sub tryout()
   vendornumber = 1

推荐阅读