Цитата:
Сообщение от sarrier
Если бы я программировал на VBA, я бы такой вопрос незадавал. К сожалению моя специализация это промэлектроника, электрика, FBD соответственно понимаю, но никак не программирование на языках высокого уровня. Поэтому и просил если можно помочь, ткнуть пальцем туда где нужно что изменить.
|
В программе ищите строчку
----------
For f = 0 To Worksheets("Аварии").Range("H11").Value - 1
----------
И заменяйте её на:
----------
For f = 0 To 9
----------
----------
For f = 10 To 19
----------
----------
For f = 20 To 29
----------
и т.д. на нужные диапазоны. Считывание инициируйте кнопкой "обновить всё".