ЗДРАСТВУЙТЕ. ПОЯВИЛАСЬ НЕОБХОДИМОСТЬ АВТОМАТИЗИРОВАТЬ РАСЧЕТЫ. А В VBA Я НЕ СИЛЕН. ПОДСКАЖИТЕ ПОЖАЛУЙСТА КАК ПРАВИЛЬНО НАПИСАТЬ МАКРОС ТАКОГО ТИПА:
[vba]Код
Sub DoLoop()
Do Until ActiveCell.Offset(-1, 1)>13 or ActiveCell.Offset(-1, 4)>13 or ActiveCell.Offset(-1, 7)>13
SendKeys "{Delete}"
Loop
MsgBOX "123456"
End Sub
[/vba]
В МАСИВЕ ГДЕ ПРОИСХОДИТ ВЫЧИСЛЕНИЕ ЕСТЬ ФОРМУЛА СЛУЧМЕЖДУ ПОЕТОМУ НЕОБХОДИМО ПРИ КАЖДОМ ЦИКЛЕ РАСЧЕТОВ ЧТОБЫ СЛУЧАЙНОЕ ЧИСЛО ИЗМЕНЯЛОСЬ. КАК ЭТО СДЕЛАТЬ В МАКРОСЕ? НА КЛАВИАТУРЕ Я ЖМУ Delete. ПРОШУ НЕ :D А ОБЬЯСНИТЬ КАК ОБЫЧНОМУ ЮЗЕРУ. СПВСИБО