Работа с объектом Rows

[Sandr0]

Мое почтение! Срочно требуется помощь...

Ситуация:
В книге Excel есть два листа с именами "Лист1" и "Лист2".
На "Лист1" есть 10 строк заполненных данными и отформатированных в соответствии с требованиями.
Необходимо скопировать эти строки со всем оформлением на "Лист2".

Реализовано:

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

    Dim Коллекция As Collection, строка
    Set Коллекция = New Collection
   
    For Each строка In Sheets("Лист1").Rows
        Коллекция.Add строка
        If строка.Row = 10 Then Exit For
    Next
    '************************
    '*** работа с коллекцией
    '************************
    For Each строка In Sheets("Лист2").Rows
        Set строка = Коллекция(строка.Row)
        If строка.Row = 10 Then Exit For
    Next


почему работа идет через коллекцию? - одно из условий

Результат:
Копирования не происходит.
Почему? Где Косяк?

[tyomitch]

Где косяк - вижу: строка "Set строка = Коллекция(строка.Row)" просто перезаписывает переменную "строка", не затрагивая ту строку, на которую эта переменная ссылалась раньше.
Как исправить - сразу не скажу, а Экселя под руками нет.

[xolod]

Ну и конечно все это следует писать в разделе VBA

[Sandr0]

прошу прощения у модераторов
но здесь больше специалистов бывает

[GSerg]

Что ж это за условие такое зверское?
Мож ты просто не понял задание? Мож имелась в виду сама коллекция Rows?

Если нет, тогда
for each строка in sheets("лист2").rows
коллекция(строка.row).copy строка.cells(1,1)
next


Однако же, извращение
Хотя и не проверял

[Sandr0]

у коллекции нет метода copy

[GSerg]

У коллекции нету, у row есть

[Sandr0]

copy работает через буфер обмена
а мне надо простое копирование объекта

[GSerg]

Ты мож просто попробуешь, а? Ничё там не через буфер...

[GSerg]

И ещё...
Ты не сможешь подменить row никак, потому что read only. Ты сможешь только изменить свойства row (которые не read only). А это проще всего сделать через copy (потому что иначе тебе придётся копировать вручную каждое свойство в отдельности).

Основы ООП изучать.

[Sandr0]

хм...

Copies the range to the specified range or to the Clipboard

или я хелп не умею читать?

вполне возможно что надо пересмотреть способ реализации...
только как?
вручную выводить значения в каждую ячейку, а потом задавать цвета и рамки ручками? слишком долго и "мерцание монитора" раздражает юзверей... (я не сторонник экранного формирования данных)
я хотел использовать "бланк" и путем копирования строк из бланка формировать то шо треба с подстановкой значений.

[GSerg]

Да, ты не умеешь читать хэлп
Привожу в более понятную форму:

Copies:
- range to range
OR
- range to clipboard

А мерцание монитора - дык нефиг извращаться с коллекцией...


Короче, нормально опиши конечную цель

[Sandr0]

смотри вложение

есть коллекция с данными
есть лист "бланк" в ячейки с константами подставляются значения из коллекции (т.е. подразумевается что юзверь может рисовать в бланке что угодно, но только хай незабывает необходимые имена кконстант ставить)
табличная часть бланка может иметь несколько строк
результат на одноименном листе

[GSerg]

Ужасно
Имхо


Откуда берутся данные? С какого перепугу они помещаюстя в коллекцию? Как различаются разные строки, ведь их содержимое одинаково?

[Sandr0]

Откуда берутся данные? С какого перепугу они помещаюстя в коллекцию?

какая разница откуда беруться и как формируются?
конечный результат = есть коллекция с данными

Как различаются разные строки, ведь их содержимое одинаково?

не понял вопроса

упростим - одна строка коллекции равна одному бланку (с подстановкой)
без всяких условий и различий...

[GSerg]

Большая разница, откуда берутся и как формируются. В каком формате они в коллекции (ибо коллекция хранит указатели, но не сами объекты)? Откуда взяты? Как использовать?

[Sandr0]

в колекции только значения, никаких объектов

[GSerg]

Покажи
Код
Который
Добавляет
Значения
В
Коллекцию.

[Sandr0]

вахЪ! може моя не прав (я не исключаю этого) но накой код? это же элементарные истины...

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

dim MyCol as Collection
dim MyStrCol as Collection
set MyCol = new collection

for i=1 to 100
    set MyStrCol = new collection
    MyStrCol.Add Sheets("Лист1").Cells(i,1).Value
    MyStrCol.Add Sheets("Лист1").Cells(i,2).Value
    MyStrCol.Add Sheets("Лист1").Cells(i,3).Value
    MyCol.Add MyStrCol
next

с нетерпением жду продолжения диалога

[GSerg]

Ай нью вят...
Ай нью вят!!!

Теперь скажи, как ты собираешься различать эти объекты в этой коллекции, если ты элементарно не присваиваешь им ключи при добавлении??? И нафига тебе коллекция, если у тебя уже есть некий лист с данными????? Это уже очень продвинутая коллекция!

[Sandr0]

Теперь скажи, как ты собираешься различать эти объекты в этой коллекции, если ты элементарно не присваиваешь им ключи при добавлении??? И нафига тебе коллекция, если у тебя уже есть некий лист с данными?????

Мне не нужно их различать. При формировании результирующей таблицы идет простой перебор всей коллекции.

Ключи? в смысле? цэ как? моя твоя не поняв...

Нафига коллекция если есть лист с данными?
твоя шибко не прав... коллекция это только результат обработки массы данных в разных форматах(TXT,XLS,MDB)... это уже сделано и оно работает... остался только вывод...

[Sandr0]

понял, ключи:
object.Add item, key, before, after
пока их использовать нет необходимости

[GSerg]

Избавься от коллекции... вообще... у тебя есть лист...

[Sandr0]

почему?
лист - это только случай обработки XLS, а как быть с MDB, TXT?
твои предложения?

и чего ты уперся в коллекицю? она то тут причем? представь что у тебя есть массив данных....
треба же заполнение по шаблону (бланку) и все-го-то....
я тебя не пойму

[GSerg]

mdb на лист - через querytable, к примеру. Оч. удобно.

txt на лист - через workbooks.opentext. Не менее удобно.


Потому что если у тебя есть шаблон, и это лист. Поэтому и удобно будет иметь данные на листе.

Вообще, я первый раз вижу, чтобы кто-то так использовал коллекцию в экселе...

[Sandr0]

коллекия - это всего-лишь способ хранения данных
а задача в копировании шаблона

[Sandr0]

Потому что если у тебя есть шаблон, и это лист. Поэтому и удобно будет иметь данные на листе.

в принципе ты прав, но все-таки... интересно же решить проблему? а не предлагать альтернативы

Вообще, я первый раз вижу, чтобы кто-то так использовал коллекцию в экселе...

ну вот ты на меня и напоролся я знаете-ли излюбливаю этим заниматьси... занятная штука и удобная.. особенно если писать свои классы... что я собственно и делаю...

я могу решить проблему но! интересно решить именно поставленную задачу. не так-ли

[GSerg]

Извини, но это не ко мне
Я всегда решаю задачу тем способом, который мне кажется интересным

Кстати, ты в курсе, что ты вообще не сохраняешь форматирование в своей коллекции?

[Sandr0]

Я всегда решаю задачу тем способом, который мне кажется интересным

ну этим и я увлекаюсь, люблю давать советы... но иногда нужно решить именно поставленную задачу

Кстати, ты в курсе, что ты вообще не сохраняешь форматирование в своей коллекции?

в смысле?

[GSerg]

Ну ты ж value добавляешь
Гы-гы-гы...


Не, я больше не могу
Коллекцию нафиг.