声明和初始化全局变量

Question

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

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 

我在哪里出错了，角度的值没有增加，模块正在用sam调用e值每次。 在此先感谢

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 

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