|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
15.03.2011, 20:49 | #11 |
Пользователь
Регистрация: 15.03.2011
Сообщений: 35
|
Я обновил вложенный файл посмотрите пожалуйста.
Там для примера указана урезанная таблица. Начальная будет примерно на 300 строк. Главное чтобы код считывал паправильно все строки |
15.03.2011, 20:54 | #12 | |
Пользователь
Регистрация: 15.03.2011
Сообщений: 35
|
Цитата:
Может быть я не правильно... Я когда занёс код в vb,потом нажал на компиляцию,а затем его сохранил. как раз в этом пути и лежит этот бинарный файл. Удалить его? Я запутался,что зделать с Вашим кодом? |
|
15.03.2011, 20:54 | #13 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Я тот код тестил на Ваших больших таблицах - нормально отработал.
Чуть позже гляну на изменённой.
webmoney: E265281470651 Z422237915069 R418926282008
|
15.03.2011, 20:55 | #14 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Что сделать - положить в модуль чистого файла.
Вот приложение - запускаете его, потом свой файл. На активном своём файле по Alt+F8 выбираете макрос Otbor, запускаете. В этом приложенном файле на первом листе получаете выборку. Сделать в два столбца, как Вы хотите - не так просто. Просто, если гарантированно будут пары, т.е. если можно тупо разложить нечётные в первый столбик, чётные во второй. Но так может и не быть... Надо думать... но как-то не думается уже. Может и так хорошо будет?
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 15.03.2011 в 21:05. |
15.03.2011, 21:04 | #15 |
Пользователь
Регистрация: 15.03.2011
Сообщений: 35
|
Я так не пойму.
Я открыл начальную таблицу в экселе,далее открыл вкладку Разработчик, далее нужно открыть вижуал бэйсик или макросы? Открываю вижуал,у меня уже находится в редакторе вот этот код: Код:
|
15.03.2011, 21:11 | #16 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
То, что он в редакторе - это полдела. Нужно знать, в каком файле, в листе или модуле... Да и в этом коде нет выгрузки.
В принципе, этот код может быть и в Personal.xlsb, и название процедуры не важно. Если сюда добавить выгрузку в нужный файл - всё отработает. А выгрузку нужно делать не в ThisWorkbook.Worksheets(1), как у меня, а или в анализируемый файл в чистый лист (что там может и не быть), или лучше в новую книгу. Т.е. окончание тогда такое: вместо Код:
Код:
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 15.03.2011 в 21:14. |
15.03.2011, 21:20 | #17 |
Пользователь
Регистрация: 15.03.2011
Сообщений: 35
|
Всё.Результат есть!Щас сравню.
Код формирует выгрузку как бы новую книгу,да? Как я понял, по подобию представленной в аттаче таблице не сделать? Два столбца не сформировть для значений x и г? Последний раз редактировалось igsxor; 15.03.2011 в 21:25. |
15.03.2011, 21:22 | #18 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Да, результат в новой книге. Её можете сохранить, а можете скопировать данные куда угодно.
Чтоб разложить суммы в два столбца - нужно полученный массив до выгрузки переложить в другой. Как правильно сделать - пока не вижу, и вероятно сегодня не придумаю... Я не против, чтоб кто другой придумал
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 15.03.2011 в 23:33. |
15.03.2011, 21:38 | #19 |
Пользователь
Регистрация: 15.03.2011
Сообщений: 35
|
|
15.03.2011, 22:11 | #20 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Можно сделать так - собрать уникальные полученного массива в другой словарь и потом с помощью этого словаря перебрать массив "b" в массив "c" в нужном порядке.
Получилось. Там ещё (как оказалось ) много лишних переменных было от предыдущей версии... Код:
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 15.03.2011 в 23:41. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Макрос группировки данных в таблице | magana | Microsoft Office Excel | 1 | 28.01.2011 23:52 |
Обновление данных из табл в др. | Ал3 | Microsoft Office Access | 1 | 04.07.2010 00:27 |
Результат перевода из 10й сис-мы в 16-ю занести в табл(10-е число - 16), до тех пор пока не будет введено | Maemi_IT | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 1 | 11.01.2010 21:27 |
Кол-во данных в таблице | dani92 | БД в Delphi | 1 | 02.04.2009 07:58 |
Как выпонить действия по двойному слику на созданной таблице | Tiolic | Общие вопросы Delphi | 2 | 21.06.2007 09:53 |