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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 16.03.2009, 06:55   #11
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

код "типо такого" Worksheets("Sheet2").[a3:a1500].Copy Worksheets("Sheet1").[a4] не может работать криво.
Он либо работает, либо нет.

Прикрепите к сообщению свой файл - посмотрим, из-за чего это может происходить.
EducatedFool вне форума Ответить с цитированием
Старый 16.03.2009, 07:36   #12
wildvad
Пользователь
 
Регистрация: 11.03.2009
Сообщений: 14
По умолчанию

вот у меня как он работает =(
Вложения
Тип файла: rar test.rar (7.4 Кб, 8 просмотров)
wildvad вне форума Ответить с цитированием
Старый 16.03.2009, 09:22   #13
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Вы посмотрите свой код:
Код:
Worksheets("Sheet2").[a3:a1500].Copy Worksheets("Sheet1").[a4]
    Worksheets("Sheet2").[b3:a1500].Copy Worksheets("Sheet1").[b4]
    Worksheets("Sheet2").[c3:a1500].Copy Worksheets("Sheet1").[c5]

Напишите так:
Код:
Worksheets("Sheet2").[a3:a1500].Copy Worksheets("Sheet1").[a4]
Worksheets("Sheet2").[b3:b1500].Copy Worksheets("Sheet1").[b4]
Worksheets("Sheet2").[c3:c1500].Copy Worksheets("Sheet1").[c4]
и всё будет работать как надо.

Ну а лучше так:
Код:
Sub new_copy()
    Worksheets("Sheet2").[a3:c1500].Copy Worksheets("Sheet1").[a4]
End Sub
EducatedFool вне форума Ответить с цитированием
Старый 16.03.2009, 13:12   #14
wildvad
Пользователь
 
Регистрация: 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 создаёт дополнительно кучу всякого =)

Прошу помощи у гуру =)сразу говорю скрипт СТАРТ я не писал взял с одного документа. Хелп нужен просто ужасно
Вложения
Тип файла: rar V_1_2_InputNEService.rar (72.0 Кб, 11 просмотров)

Последний раз редактировалось wildvad; 16.03.2009 в 13:23.
wildvad вне форума Ответить с цитированием
Старый 18.03.2009, 09:05   #15
wildvad
Пользователь
 
Регистрация: 11.03.2009
Сообщений: 14
По умолчанию

по моему вариантов ни чего нету
wildvad вне форума Ответить с цитированием
Старый 18.03.2009, 10:36   #16
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Цитата:
E -- Статус компании
А откуда его брать?

Цитата:
и дополнительно должны заполнится поля в заклатке DATA B2 из поля IMPORTА6 и также DATA B3 из IMPORT B6, при этом DATA B3 переделывается в другой формат из 1,2009 в 200901 и тогдалее условие.
Чуть попозже сделаю.
Последнюю фразу вообще не понял...

Пока переделал только макрос КопированиеДанных

Во втором макросе более 80% кода - лишние...
Но переделать я его смогу только в том случае, если Вы объясните, для чего он предназначен, и как должен обрабатывать данные.
Вложения
Тип файла: rar V_1_2_InputNEService.rar (71.9 Кб, 12 просмотров)

Последний раз редактировалось EducatedFool; 18.03.2009 в 10:39.
EducatedFool вне форума Ответить с цитированием
Старый 18.05.2009, 14:36   #17
wildvad
Пользователь
 
Регистрация: 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.
Вложения
Тип файла: rar sort.rar (225.5 Кб, 8 просмотров)

Последний раз редактировалось wildvad; 19.05.2009 в 08:08.
wildvad вне форума Ответить с цитированием
Старый 19.05.2009, 18:04   #18
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию новая версия

Реализовано.
Вложения
Тип файла: rar PenetrationCount2.rar (43.0 Кб, 10 просмотров)

Последний раз редактировалось EducatedFool; 20.05.2009 в 16:11. Причина: обновление файла
EducatedFool вне форума Ответить с цитированием
Старый 20.05.2009, 07:47   #19
wildvad
Пользователь
 
Регистрация: 11.03.2009
Сообщений: 14
По умолчанию

Вроде работает =) благодарю.
wildvad вне форума Ответить с цитированием
Старый 22.05.2009, 11:35   #20
wildvad
Пользователь
 
Регистрация: 11.03.2009
Сообщений: 14
По умолчанию

по тестил всё работает суппер вроде, большое спасибо
wildvad вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
из одной процедуры в другую... 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