Developing.ru

Код: Выделить всё

Sub timer_OnTimer() 
    Call Timer 
    timer_Start interval 
End Sub 
 
Sub Timer() 
    ‘……………… 
End Sub 
 
Sub timer_Start(ByVal interv As String) 
    interv = Application.Workbooks("Indexon.xls").Worksheets("Index").Range("D1").Value 
    interval = interv 
    next_time = DateAdd("s", interval, Time)    
    Application.OnTime next_time, "Лист3.timer_OnTimer" 
End Sub 

Код: Выделить всё

Dim DeadLine As Date
Const Tick = 1 '1 секунда

Sub StartForHalfAnHour() 'запустить на полчаса
    Start 60 * 30
End Sub

Sub Start(ByVal Duration As Integer)  'запустить на Duration секунд
    DeadLine = DateAdd("s", Duration, Now)
    timer_OnTimer
End Sub

Sub timer_OnTimer() 'обработчкик события
    Call Timer
    If DeadLine >= Now Then
      'пока не кончился период работы запланировать
      'саму себя через Tick секунд
      Application.OnTime DateAdd("s", Tick, Time), "timer_OnTimer"
    End If
End Sub
 
Sub Timer() 'основная процедура
    Range("A1").Offset(Application.WorksheetFunction.Count(Range("A:A")) + 1, 0).Value = Rnd
End Sub

Код: Выделить всё

Sub Timer()    'основная процедура
    Dim ra As Range, NewValue
    Set ra = Range("A1").Offset(Application.WorksheetFunction.Count(Range("A:A")), 0)
    If ra.Value <> NewValue Then ra.Offset(1, 0).Value = NewValue
' если значение в последней ячейке ([B]ra.Value[/B]) отличается от [B]NewValue[/B], то в следующую ячейку записываем новое значение
End Sub

Код: Выделить всё

Sub FirstRun()
    CurrentRow = 1:    CurrentColumn = 1
End Sub

Код: Выделить всё

Sub Timer()   
    If Cells(CurrentRow, CurrentColumn).Value <> NewValue Then
        CurrentRow = CurrentRow + 1
        If CurrentRow > 32000 Then CurrentRow = 1: CurrentColumn = CurrentColumn + 1
        Cells(CurrentRow, CurrentColumn).Value = NewValue
    End If
End Sub

Код: Выделить всё

Set ra = Range("A1").Offset(Application.WorksheetFunction.Count(Range("A:A")), 0)