Объявление и инициализация глобальных переменных
У меня есть эта пользовательская форма с двумя кнопками, одна из которых говорит "следующий", а другая "начало". Помимо этого существует модуль с именем "module1", содержащий весь код операции. идея состоит в том, что нажатие кнопки start инициализирует переменную "angle" как 0, и для каждого щелчка "next" значение угла увеличивается на 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
Где я иду не так, значение угла не увеличивается, и каждый раз вызывается модуль с одним и тем же значением. заранее спасибо
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
Изменить: код не работает, если какая-либо часть находится в разделе листа.