声明和初始化全局变量
问题描述:
我有这个用户表单有两个按钮,一个说“下一个”,另一个说“开始”。除此之外,还有一个名为“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值每次。 在此先感谢
答
我得到了这段代码(没有“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
编辑:如果任何部分位于工作表部分,则代码不起作用。