Sub MovingString() Cells(1, intAddress).Value = "" If intAddress 1 Then 'Отображение строки intAddress = intAddress - 1 Cells(1, - вопрос №2368269

intAddress).Value = «Привет» 'Указываем что данную процедуру нужно вызвать через 1секунду Application.OnTime Now + TimeValue(«00:00:01»), «Лист1.MovingString» End If End Sub Sub Start() 'установка начальной ячейки intAddress = 10 'перерыв начальной ячейки MovingString End Sub где ошибка?
Ответов пока нет

Еva

от 100 p.
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store