Объявление и инициализация глобальных переменных

У меня есть эта пользовательская форма с двумя кнопками, одна из которых говорит "следующий", а другая "начало". Помимо этого существует модуль с именем "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

Изменить: код не работает, если какая-либо часть находится в разделе листа.

Другие вопросы по тегам