|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
16.03.2009, 06:55 | #11 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
код "типо такого" Worksheets("Sheet2").[a3:a1500].Copy Worksheets("Sheet1").[a4] не может работать криво.
Он либо работает, либо нет. Прикрепите к сообщению свой файл - посмотрим, из-за чего это может происходить. |
16.03.2009, 07:36 | #12 |
Пользователь
Регистрация: 11.03.2009
Сообщений: 14
|
вот у меня как он работает =(
|
16.03.2009, 09:22 | #13 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Вы посмотрите свой код:
Код:
Напишите так: Код:
Ну а лучше так: Код:
|
16.03.2009, 13:12 | #14 |
Пользователь
Регистрация: 11.03.2009
Сообщений: 14
|
в общем вот такая история.
Есть файл, там два скрипта Copy и Start В первой закладке IMPORT есть данные они жёлтым цветом, что требуется, выполняется скрипт Copy который должен заполнить закладку Input по правилам следующим A -- Номер счета B -- Дата счета - обратите внимание, что данный столбец при переносе меняет формат из 23.01.2009 в 39836 как я понял ячейке просто присваивается текстовой формат. C -- Компания D -- Город E -- Статус компании F -- Каталожный номер G -- Описание H -- Количество и дополнительно должны заполнится поля в заклатке DATA B2 из поля IMPORTА6 и также DATA B3 из IMPORT B6, при этом DATA B3 переделывается в другой формат из 1,2009 в 200901 и тогдалее условие. Когда скрипт отработает нужно, что бы отработал другой скрипт START Он берёт данные из DATA и IMPUT переделывает для меня скрипт не ясен всё записывает в SHEET1 создаёт дополнительно кучу всякого =) Прошу помощи у гуру =)сразу говорю скрипт СТАРТ я не писал взял с одного документа. Хелп нужен просто ужасно Последний раз редактировалось wildvad; 16.03.2009 в 13:23. |
18.03.2009, 09:05 | #15 |
Пользователь
Регистрация: 11.03.2009
Сообщений: 14
|
по моему вариантов ни чего нету
|
18.03.2009, 10:36 | #16 | ||
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
Цитата:
Последнюю фразу вообще не понял... Пока переделал только макрос КопированиеДанных Во втором макросе более 80% кода - лишние... Но переделать я его смогу только в том случае, если Вы объясните, для чего он предназначен, и как должен обрабатывать данные.
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 18.03.2009 в 10:39. |
||
18.05.2009, 14:36 | #17 |
Пользователь
Регистрация: 11.03.2009
Сообщений: 14
|
Доброе время суток гуру программирования, появилась задача.
Итак, решил доскональна описать проблему. Есть два файла PenetrationCount.xls и mif1.xls. Файл PenetrationCount.xls содержит основную рабочую часть, а файл mif1.xls содержит данные, также могут быть файлы mif2.xls, mif_copytech.xls и тог далее которые тоже будут нести информацию с данными. Так вот, при открытии PenetrationCount.xls в объекте ThisWorkbook срабатывает скрипт, который смотрит, что лежит вместе с нашим рабочим файлом в папке с названием файла на "m". Если такие файлы есть, типа "mif1.xls" в закладке mif в рабочем файле, в вы подающем меню мы можем выбрать файл нужный нам с данными. Дальше, мы нажимаем на кнопку Load MIF Data , после чего, должен отработать скрипт следующим образом. Открывается файл, который мы выбрали в вы подающем меню, в нем берутся столбцы Product Model Serial number и Средняя месячная нагрузка т.е. столбцы С D J и переносятся в наш файл PenetrationCount.xls в закладку mif при этом, должна произойти сверка столбца с данными Product Model с столбцом A в закладке eq_list и если найдёт соответствие, сделать замену на данные напротив. Если же нет, соответствия в закладке eq_list, то необходимо пометить данную строку в закладке[ B]mif[/B] к примеру подкрасить строчку красным или в конце строки или в столбце D дописал слово ERROR. Что бы можно было в дальнейшем отдиагностировать какие модели были не поправлены. Вот что нужно пока, по второй кнопке ситуация ещё интересней. полученные данные в закладке B]mif[/B] после нажатия кнопки "Count" анализируются опять же поле Product Model в закладке mif c закладкой standarts и какие находит соответствия по Product Model добавляет их в закладку result. Последний раз редактировалось wildvad; 19.05.2009 в 08:08. |
19.05.2009, 18:04 | #18 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
новая версия
Реализовано.
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 20.05.2009 в 16:11. Причина: обновление файла |
20.05.2009, 07:47 | #19 |
Пользователь
Регистрация: 11.03.2009
Сообщений: 14
|
Вроде работает =) благодарю.
|
22.05.2009, 11:35 | #20 |
Пользователь
Регистрация: 11.03.2009
Сообщений: 14
|
по тестил всё работает суппер вроде, большое спасибо
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
из одной процедуры в другую... | Vremya-Dengy | Общие вопросы Delphi | 10 | 09.03.2009 23:51 |
перенос на другую ПК проги | sergey2501 | БД в Delphi | 1 | 26.10.2008 20:07 |
Передача данных из одной таблицы в другую, при выборе одной ячейки | MickMick | Microsoft Office Excel | 6 | 06.10.2008 13:57 |
Конвертация одной БД в другую | Старовъръ | БД в Delphi | 2 | 19.08.2008 12:26 |
Перенос данных из одной книги со многих листов в другую | gavrylyuk | Microsoft Office Excel | 34 | 20.07.2008 21:39 |