如何设置一个类级别的variables

我试图在VBA类模块中设置一个variables，每当类的一个实例被初始化时，它就会增加。

例如，class级的第一个实例有一个“1”，下一个是“2”等。

如果我的术语不正确，我很抱歉。

Private Sub Class_Initialize() Number=Number+1<-- This variable would increment every time there is a new instance End Sub 

Answer 1

在模块中声明全局或公共variablesPublic NumberOfInstances as Long 。

然后在这个类中使用这个代码：

 Private Sub Class_Initialize（）
     NumberOfInstances = NumberOfInstances + 1
结束小组

如果你想知道每个实例有哪个数字，你需要添加一个成员variables到类中，并初始化它，例如：

私人实际支付总额

公共属性长时间获取InstanceCount（）：InstanceCount = mInstanceCount：End Property

 Private Sub Class_Initialize（）
     NumberOfInstances = NumberOfInstances + 1
     mInstanceCount = NumberOfInstances
结束小组

Answer 2

在类的顶部声明variables – 静态数字

你不能在VBA中声明静态类。 用真正的面向对象语言（如Java）是可能的。