Переменная замена текста в ячееке

[fishh]

Помогите, пожалуйста. Может есть какие-нибудь задумки

Задача: дан текст 232/125. Сначала в ячейка должна отображаться цифра 232, через 5 сек. в этой же ячейке цифра 125. и так далее не прекращая.

Спасибо

[Viper]

Таймер?

[KL]

Я бы сказал, что речь скорее о Application.OnTime. Например:

в модуль ThisWorkbook:

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

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    StopRutine
End Sub


Private Sub Workbook_Open()
    StartRutine
End Sub

в стандартный модуль:

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

Dim Interval As Date

Sub StartRutine()
    Interval = Now + TimeValue("00:00:05")
    With Sheets(1).Range("A1")
        If .Value = 232 Then .Value = 125 Else .Value = 232
    End With
    Application.OnTime Interval, "StartRutine"
End Sub

Sub StopRutine()
    Application.OnTime Interval, "StartRutine", schedule:=False
End Sub