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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.08.2011, 12:42   #21
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

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

Там ведь в коде уже всё есть - и как массив создаётся, и сравнение, и занесение значений, и выгрузка.
Попробуйте вникнуть, и дописать из этих кусочков кода нужный функционал.
Место выгрузки "ненайденных" тоже можно определить , исходя из размера массива выше.
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 25.08.2011, 12:57   #22
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Напишу словами.
Выше создаём пустой массив по высоте с анализируемый (чтоб гарантированно всё влезло), шириной как нужно (может быть не все столбцы будем брать)
Если сравнение не прошло
If .exists(temp) Then
Else
индекс=индекс+1
массив(индекс,1)=y(i, 1)
массив(индекс,2)=y(i, 2)
и т.д.
Это на словаре, на коллекции смысл тот же.
В конце выгрузка по образу
.[h2].Resize(индекс), n) = массив
Только вместо [h2] пишите .cells(ubound(y)+2,2) или как-то так, находите ячейку после существующих данных.
Может быть вместо y нужно x, не вникал...
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 26.08.2011, 14:26   #23
Hoochara
Пользователь
 
Регистрация: 02.08.2011
Сообщений: 42
По умолчанию

Ничего не могу придумать, помогите пожалуйста,а!? .
Hoochara вне форума Ответить с цитированием
Старый 29.08.2011, 12:46   #24
Hoochara
Пользователь
 
Регистрация: 02.08.2011
Сообщений: 42
По умолчанию

а как мне записать не найденные точки, чтоб потом их вставить ?

Последний раз редактировалось Hoochara; 29.08.2011 в 13:00.
Hoochara вне форума Ответить с цитированием
Старый 29.08.2011, 13:04   #25
doober
Старожил
 
Аватар для doober
 
Регистрация: 02.05.2009
Сообщений: 3,907
По умолчанию

скорректировали уже сообщение

ReDim (оператор) - используется на уровне подпрограммы для переопределения размера динамических
массивов и выделения под них места в памяти

UBound (функция) - возвращает значение наибольшего индекса для данной размерности массива
Анализ,обработка данных Недорого

Последний раз редактировалось doober; 29.08.2011 в 13:06.
doober вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сравнение данных из двух книг derlysh Microsoft Office Excel 13 21.07.2011 16:12
Сравнение двух массивов Рик Общие вопросы Delphi 3 07.04.2011 15:53
Сравнение данных из двух книг и добавление строк Soul Leka Microsoft Office Excel 37 19.07.2010 14:36
сравнение данных в двух столбцах в Excel 2003 grinders Microsoft Office Excel 4 25.11.2008 16:58
Сравнение данных из двух книг Excel 2003 ast1r Microsoft Office Excel 2 24.11.2008 21:39