Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 17.05.2007, 16:14   #11
imsprof
 
Регистрация: 14.05.2007
Сообщений: 7
По умолчанию

Просто замечательно все пашет
Спасибо большое pashulka!!!

А вот расширение задачи:
Есть 2 файла с одинаковым типом наборов данных и количеством столбцов, но разным количеством строк. Необходимо собрать эти файлы в третьем, но так, чтобы недостающие данные из одного файла дополнились данными из другого файла.

Последний раз редактировалось imsprof; 17.05.2007 в 16:17.
imsprof вне форума
Старый 20.05.2007, 20:43   #12
pashulka
Форумчанин
 
Регистрация: 03.11.2006
Сообщений: 524
По умолчанию

Imsprof, Посмотрите этот пример
pashulka вне форума
Старый 21.05.2007, 16:03   #13
imsprof
 
Регистрация: 14.05.2007
Сообщений: 7
По умолчанию

Спасибки большущее!
2 файла объемом более 30000 строк и 30 столбцов каждый, причем во втором столбце обоих файлов находятся строковые данные длинной порядка 150 символов, обработались за 2 часа!
Невероятная скорость как мне кажется

ша сижу разбираюсь в результатах

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

ЗЫ ладно, бум думать дальше

Последний раз редактировалось imsprof; 21.05.2007 в 16:21.
imsprof вне форума
Старый 21.05.2007, 16:47   #14
pashulka
Форумчанин
 
Регистрация: 03.11.2006
Сообщений: 524
По умолчанию

При таком относительно небольшом количестве строк и столбцов, время потраченное на обработку данных, зашкаливает и если это не шутка, то макрос нужно выбросить в мусорную корзину.
pashulka вне форума
Старый 21.05.2007, 18:54   #15
imsprof
 
Регистрация: 14.05.2007
Сообщений: 7
По умолчанию

это действительно не шутка
ну а, как же быть ...
imsprof вне форума
Старый 21.05.2007, 22:53   #16
pashulka
Форумчанин
 
Регистрация: 03.11.2006
Сообщений: 524
По умолчанию

Наверное стоит написать мне напрямую (адрес указан в прошлом примере) ... возможно после уточняющих вопросов, появится об'яснение столь невероятной временной затрате или альтернативный вариант, например, использование расширенного фильтра, но здесь многое зависит от структуры таблицы.
pashulka вне форума
Старый 28.05.2007, 20:10   #17
asale
Форумчанин
 
Регистрация: 09.01.2007
Сообщений: 108
По умолчанию

А вот еще один вопрос по этой теме.
Как можно сделать, чтобы программа сравнивала 2 файла по столбцу, например А, но в третий столбец, при сходстве данных в столбце А каждого файла, выводила бы в третий файл полностью строку одного из файлов. В одном файле есть заполненные столбцы В,С и т.д, в другом файле только столбец А.

Очень нужно и интересно
asale вне форума
Старый 03.06.2007, 15:58   #18
pashulka
Форумчанин
 
Регистрация: 03.11.2006
Сообщений: 524
По умолчанию

Asale, Возьмите, например, первый пример и замените эту строку :
Код:
Me.Range("A2").Item(iCounter&) = iCell
на любую из нижеперечисленных :
Код:
Me.Rows(iCounter& + 1).Value = iCell.EntireRow.Value
Код:
Me.Range("1:1").Offset(iCounter&) = iCell.EntireRow.Value
Код:
iCell.EntireRow.Copy Destination:=Me.Range("A2").Item(iCounter&) 'и т.д. и т.п.

Последний раз редактировалось pashulka; 03.06.2007 в 16:01.
pashulka вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна помощь: выбор файлов исходя из имени файлов Antik163RUS Помощь студентам 4 19.06.2008 21:20
сравнение дат Geddar Общие вопросы Delphi 2 04.06.2008 19:09
Сравнение Си и Ассемблера... Sota Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 9 25.07.2007 16:15
попиксельное сравнение borodaj Общие вопросы Delphi 7 31.05.2007 13:24
Сравнение текстовых файлов BR17UY Общие вопросы Delphi 15 07.05.2007 20:18