Всем добрый день!
Во вложении файл с примером анимации графиков функций на листах.
Поясните пожалуйста как работает код для листа "Пример-1" ниже.
Конкретно не понятен смысл вот этого блока (вопросы в комментах к строкам):
[vba]Код
If Example1IsRunning Then
Example1IsRunning = False ' Зачем публичная переменная Example1IsRunnin переводится в состояние False ?
End ' Эта команда означает выход их процедуры? Почему не написали Exit sub ?
End If
Example1IsRunning = True
[/vba]
Полный код вот:
[vba]Код
Option Explicit
Public Example1IsRunning As Boolean
Sub RunExample1()
If Example1IsRunning Then
Example1IsRunning = False
End
End If
Example1IsRunning = True
Do
DoEvents
ThisWorkbook.Worksheets("Пример-1").Range("Base") = _
ThisWorkbook.Worksheets("Пример-1").Range("Base") + 0.25
DoEvents
Loop
End Sub
[/vba]