![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 | |||
Форумчанин
Регистрация: 30.09.2008
Сообщений: 138
|
![]() Цитата:
Цитата:
Цитата:
Спасибо за помощь... вполне рабочий вариант получается... все же в n-раз лучше чем ручками выбирать!!! Совсем забыл спросить может и формулы макросом вставлять можно, я там одну напридумывал, может по-лучше придумать можно, а то сортировать нужно, чтобы формула считала? Смысл: после всех манипуляций нужно вставить два столбика из разных файлов (записи в этих файлах уникальны) и еще нумерацию строк. Последний раз редактировалось xamillion; 19.01.2009 в 22:19. |
|||
![]() |
![]() |
![]() |
#12 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
Посмотрите вложение. Запустите макрос "Main" из файла "результат.xls".
Условия: 1. Файлы "результат.xls", "договор.xls" и "характеристики.xls" могут находиться где угодно, но должны быть в одной папке. 2. Файлы "результат.xls", "договор.xls" и "характеристики.xls" переименовывать нельзя. 3. Лист "исходное" в файле "результат.xls" переименовывать нельзя. 4. В обрабатываемых файлах назначение столбцов изменять нельзя. P.S. И еще. Файлы "договор.xls" и "характеристики.xls" не должны быть открыты. Если есть необходимость - в макрос можно вставить такую проверку.
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 20.01.2009 в 06:53. Причина: Добавлено |
![]() |
![]() |
![]() |
#13 |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 138
|
![]()
Спасибо!!! Все просто великолепно... Условия вполне приемлимы, а проверку на "открытость" и не нужна вообще - их никто и открывать не собирается... Я думаю подобая наработка будет интересна не только мне...
|
![]() |
![]() |
![]() |
#14 |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 138
|
![]()
В процессе работы выяснилось, что месяца не по порядку распределяются... какой первый выципил - тот первым и вставил...
Ну и если не сложно суммы в конце добавить, и количество предприятий в месяце... А если возможно - то поставить условие переноса строки в лист "исходное" по значению... К примеру, чтобы копировал строки со значением не менее указаного (наверное по запросу:"Введите граничный предел")... Заранее спасибо... Последний раз редактировалось xamillion; 21.01.2009 в 22:10. |
![]() |
![]() |
![]() |
#15 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
Ваши пожелания выполнены.
Чем шире угол зрения, тем он тупее.
|
![]() |
![]() |
![]() |
#16 |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 138
|
![]()
Снова спасибочки... а с фильтром возможно замутить??
P.S. Не допер откуда именно эти цифры: For i = 17 To 6 Step -1 On Error Resume Next y.Add Cells(1, i), CStr(Cells(1, i)) If Err = 0 Then Columns(i).Delete On Error GoTo 0 Next Последний раз редактировалось xamillion; 22.01.2009 в 21:30. |
![]() |
![]() |
![]() |
#17 | ||
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]() Цитата:
При формировании листа результатов, в 1 строку, начиная со столбца "F", вписываются все месяцы по порядку (см. в коде макроса). Затем, после того, как мы получили коллекцию с существующими названиями месяцев, выполняется код из предыдущего поста. В цикле от столбца 17 (декабрь) до столбца 6 (январь) удаляются те столбцы, которых нет в нашей коллекции. Цикл организован "справа налево" для того, чтобы при удалении очередного столбца не нарушался счетчик цикла. Цитата:
Чем шире угол зрения, тем он тупее.
|
||
![]() |
![]() |
![]() |
#18 | ||
Форумчанин
Регистрация: 30.09.2008
Сообщений: 138
|
![]() Цитата:
Цитата:
А ввести второй показатель будет сложно? чтобы он выводился следом за первым? |
||
![]() |
![]() |
![]() |
#19 | |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
Нет ничего сложного. Я уже просил: пишите подробнее, что нужно.
Что значит Цитата:
Чем шире угол зрения, тем он тупее.
|
|
![]() |
![]() |
![]() |
#20 |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 138
|
![]()
Понял - тогда по-порядку...
Итак, показателей теперь 4-ре... Из файлов в директории, которую указываем (в данном случае "копирование" и файлы "1xls", "2.xls" и "8.xls") нужно переносить строки по "показателю 2"... т.е. если "показатель 2" меньше значения, которое мы введем на вопрос "Укажите минимальную границу!", то эта строка не переносится в лист "исходное"... и потом формируется таблица на листе "результат" так же как и раньше, но уже с 4-мя показателями... Последний раз редактировалось xamillion; 23.01.2009 в 19:43. |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Процедура для считывания значений переменных | xPAL | Общие вопросы Delphi | 4 | 07.12.2008 19:23 |
Табулировать функцию для 9 значений... | Малинка! | Помощь студентам | 3 | 01.12.2008 17:59 |
Модуль для поиска значений | wnuks | Microsoft Office Excel | 1 | 02.07.2008 07:46 |
Разработать для статуправления систему анализа потребления и стоимости любого продукта в течение года | Верчик | Фриланс | 2 | 17.01.2008 10:17 |