聲明和初始化全局變量

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 

編輯：如果任何部分位於工作表部分，則代碼不起作用。