> Автор: VikVikVik
> спасибо, но все как в тумане)))
Еще раз, у тебя "удачная" структура, имена листов - две последние цифры счета + сами счета последовательные и монотонно
возрастающие. Поэтому можно опустить проверку полного счета и ограничится двумя последними цифрами. Как только появится
счет выбивающийся из этой последовательности, логику проверок нужно будет менять.
Теперь сам код. Т.к. номера счетов у тебя идут непрерывно то можно сделать простой цикл по изменяющейся части счетов и
заполнить листы шапками будущих таблиц. А так-же инициализировать структуру, с помощью которой будем определять на какой
лист выводить и куда выводить.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
For i = 1 To 27
' Идем по всем листам, проставляем там шапки и подготавливаем для работы
' Листы имеют имена 1, 2, 3, 4 и т.д поэтому делаем простой цикл от 1 до 27 по количеству листов
' Получаем лист в переменную и копируем туда шапку, не по ячеечно, а сразу всем диапазоном
Set sh = Sheets(CStr(i))
sh.Range(sh.Cells(1, 1), sh.Cells(1, 8)).Value = _
Sheets("распределено").Range(Sheets("распределено").Cells(1, 1), Sheets("распределено").Cells(1, 8)).Value
' После чего инициируем экземпляр класса, в котором будет хранится информация о листе, на который будет выводится
информация
Set c = New Class1
' Сохраняем в объекте ссылку на обслуживаемый лист, счетчик текущей позиции на листе хранится в самом объекте
' и делается равным 2 при получении ссылки на лист. А в функции вывода Out увеличивает своё значение на 1, т.е. сдвигает
позицию следующего вывода вниз, на новую строку
Set c.SetWorkSheet = sh
' Добавляем подготовленный объект в коллекцию с ключем, равным имени листа и равным последним двум цифрам счета(первые
девять цифр без лидирующего нуля опускаем :) )
mColl.Add c, CStr(i)
Next i
Set c = Nothing
С первой частью, так сказать подготовкой - закончили. Теперь собственно рабочий цикл
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
' Заполнили, теперь идем по
данным
For i = 1 To 100
' Т.к. нас из всего счета интересуют только две последние цифры - получаем только их
' По ним получим объект, который выведет на нужный лист нужные данные
' Получаем две последние цифры счета, по которым получаем объект класса с нужным листом
a = Right(Worksheets("распределено").Cells(1 + i, 2).Text, 2)
' И передаем в функцию вывода, Range, который нужно вывести.
' Только я сделал на 8 столбцов, по количеству столбцов в шапке, а не на 27 - как в цикле
' Здесь можно поставить условие окончания цикла, что-бы не гонять впустую но конца счетчика
If Len(a) > 0 Then
' Здесь мы сначала получаем объект
Set c = mColl.Item(CStr(Int(a)))
' а потом вызываем его метод и передаем диапазон для вывода
' и в этой функции происходит вывод диапазона, а так-же "сдвиг" текущей позиции для вывода на одну строку вниз.
' Причем этот сдвиг происходит только в этом объекте, для этого листа,
' во всех остальных объектах свои счетчики и они передвигаются независимо от счетчиков других листов
c.Out Sheets("распределено").Range(Sheets("распределено").Cells(1 + i, 1), Sheets("распределено").Cells(1 + i,
8))
End If
Next i
А потом простой цикл очистки коллекции.
По самим коллекциям почитай
здесь и
здесь и вообще проштудируй на www.firststeps.ru разделы по Visual
Basic и VBA by Step.
Posted via ActualForum NNTP Server 1.5
