Страница 1 из 1

Как автоматизировать копирование

Добавлено: 04 фев 2008, 19:20
Backside
Есть ячейка A1. Есть столбец C1-C100.
Необходимо с интервалом в одну секунду по очереди переносить числовые данные из C1 в A1, затем из C2 в A1, затем из C3 в A1. И так до конца.
Как можно это реализовать в VBA.
С уважением, Олег.

Re: Как автоматизировать копирование

Добавлено: 04 фев 2008, 20:26
Teslenko_EA
Здравствуйте Backside.
Поупражняйтесь с кодом

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

Dim i%
Sub myTimer()
    i = i + 1
    Cells(1, 1) = Cells(i, 3).Text
    If i > 100 Then Exit Sub
    Application.OnTime Now + TimeSerial(0, 0, 1), "myTimer"
End Sub
Для повторного запуска обнуляйте переменную "i"
Евгений.

Re: Teslenko_EA

Добавлено: 07 фев 2008, 09:34
Backside
Спасибо большое за совет. Попробую.