Всем доброго времени суток.
Есть 2 макроса, которые зациклены, и срабатывают каждые 3 секунды.
Проблема заключается в следующем:
Пример: Если открыты 2а файла Excel, один обычный без макросов, 2-ой с этими макросами. То при закрытии файла с макросами, он открывается через 3 секунды. Т.к. макрос не останавливается.
Прошу помощи, как прописать остановку?
Заранее спасибо.
Такой код в WorkBook:
| Код |
|---|
Private Sub Workbook_Open()
Dim conditionRange As Range
Dim resultRange As Range
Dim trueResult As String
Dim falseResult As String
Set conditionRange = Range("C9:C146")
Set resultRange = Range("F9:F146")
trueResult = "RAL 9016"
falseResult = ""
fillBasedOnCondition conditionRange, resultRange, trueResult, falseResult
Application.OnTime Now + TimeValue("00:00:03"), "ExampleUsag"
fillBasedOnCondition conditionRange, resultRange, trueResult, falseResult
Application.OnTime Now + TimeValue("00:00:03"), "ExampleUsage"
End Sub |
Такой код на листе:
| Код |
|---|
Function fillBasedOnCondition(conditionRange As Range, resultRange As Range, _
trueResult As String, falseResult As String)
Dim i As Long
For i = 1 To conditionRange.Cells.Count
If conditionRange.Cells(i).Value Like "*БЕЛ*" Then
resultRange.Cells(i).Value = trueResult
End If
Next i
End Function
Sub ExampleUsag()
Dim conditionRange As Range
Dim resultRange As Range
Dim trueResult As String
Dim falseResult As String
Set conditionRange = Range("C9:C147")
Set resultRange = Range("G9:G147")
trueResult = "ГЛЯНЕЦ"
falseResult = ""
fillBasedOnCondition conditionRange, resultRange, trueResult, falseResult
Application.OnTime Now + TimeValue("00:00:03"), "ExampleUsag"
End Sub
Sub ExampleUsage()
Dim conditionRange As Range
Dim resultRange As Range
Dim trueResult As String
Dim falseResult As String
Set conditionRange = Range("C9:C147")
Set resultRange = Range("F9:F147")
trueResult = "RAL 9016"
falseResult = ""
fillBasedOnCondition conditionRange, resultRange, trueResult, falseResult
Application.OnTime Now + TimeValue("00:00:03"), "ExampleUsage"
End Sub
|
