Question

我有这个用户表单有两个按钮，一个说＆＃34; next＆＃34;和其他说法＆＃34;开始＆＃34; 。除此之外，还有一个名为＆＃34; module1＆＃34;的模块。包含整个操作代码。我们的想法是点击开始初始化一个变量＆＃34; angle＆＃34;为0和每次点击＆＃34; next＆＃34; ，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

我得到了这段代码（没有＆＃34; Module1。＆＃34;）。适用于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

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

声明和初始化全局变量

1 个答案: