excel - 声明和初始化全局变量

Question

我有这个带有两个按钮的用户表单，一个说“下一步”，另一个说“开始”。除此之外，还有一个名为“module1”的模块，其中包含整个操作代码。这个想法是单击 start 将变量 "angle" 初始化为 0，并且对于每次单击 "next" ， angle 的值增加 1 并调用 module1。但是角度的值没有增加，这是我的代码

1：启动代码

Public angle As Integer

    Private Sub Start_Click()
    angle = angle+1
End Sub

2：下一个代码

Private Sub Next_Click()
    Module1.CATMain (angle)
    angle= angle + 1
End Sub

3：模块 1 的代码

Sub CATMain(ByVal angle As Integer)
    '* code*
End sub

我在哪里出错了，角度的值不会增加，并且每次都以相同的值调用模块。提前致谢

Answer 1

我得到了这段代码（没有“Module1.”）。适用于 Excel 2010。所有代码都在 Module1 中。

Public angle As Integer

Private Sub Start_Click()
     angle = angle + 1
End Sub

Private Sub Next_Click()
    CATMain (angle)
    angle = angle + 1
End Sub

Sub CATMain(ByVal angle As Integer)
    MsgBox (angle)
End Sub

编辑：如果工作表部分中有任何部分，则代码不起作用。