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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.11.2009, 09:03   #1
noobnoob
 
Регистрация: 12.11.2009
Сообщений: 4
Смущение Задача на выборочное копирование ячеек в уже открытую другую книгу

Добрый день!
Пожалуйста, помогите решить следующую задачу:

Есть:
- открытая книга Адресное_хранение.xls и открытая книга Накладная.xls
- обе предварительно сохраненные книги открываются из пути C:\temp\ пользователем
- в книге Адресное_хранение.xls в столбцах B,C,D,F итд указаны различные величины товара.
- в книге Адресное_хранение.xls в столбце А в каждой строчке имеется объект "Флажок"
- строк в книге может быть 1000-2000.

Задача:
Пользователь "понаставил" галочек в флажки и хочет скопировать "отмеченные" галочками строки в книгу Накладная.xls

- по нажатию кнопки "Скопировать в накладную", скопировать из отмеченных "галочками" строк ячейки B,C,D,I в книгу Накладная.xls
- копироваться ячейки должны следующим "способом":
так как отмечено галочками будет несколько строк, то первая из отмеченных копируется так:
Адресное_хранение ------> Накладная
B(n) ------> A(n+14)
C(n) ------> B(n+14)
D(n) ------> C(n+14)
I(n) ------> G(n+14)
например
B4 ------> A18
(просто чтобы в форму попасть)
, а остальные скопированные строки располагаются следом или сдвигая предыдущую строку.
- так же думаю сделать кнопку "Очистить" для снятия всех галочек с флажков.
Вложения
Тип файла: rar На форум.rar (40.1 Кб, 16 просмотров)
noobnoob вне форума Ответить с цитированием
Старый 18.11.2009, 10:50   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Зачем Вам тысячи объектов на листе?
К сожалению, Ваш файл "Накладная" "битый" (не открывается). Поэтому, с Вашего позволения, я его "состряпал" сам. Предлагаю, на мой взгляд, более рациональное решение. Посмотрите вложение. Откройте оба файла, выберите требуемые строки в файле "Адресное_хранение.xls" (выделение ячейки в столбце "A" требуемой строки) и нажмите кнопку "Сохранить".
Вложения
Тип файла: rar С форума.rar (50.0 Кб, 34 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 18.11.2009, 11:11   #3
noobnoob
 
Регистрация: 12.11.2009
Сообщений: 4
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
Зачем Вам тысячи объектов на листе?
К сожалению, Ваш файл "Накладная" "битый" (не открывается). Поэтому, с Вашего позволения, я его "состряпал" сам. Предлагаю, на мой взгляд, более рациональное решение. Посмотрите вложение. Откройте оба файла, выберите требуемые строки в файле "Адресное_хранение.xls" (выделение ячейки в столбце "A" требуемой строки) и нажмите кнопку "Сохранить".
просто очень много позиций на складе



по Файлам: просто волшебно! спасибо большое!

а кнопку "очистить галочки" не подскажите как сделать? А то человек натыкает себе 50 позиций в накладную, а потом снова галочки убирать.

или может вписать "убирание галочек" в код кнопки "сохранить" последней сточкой?

Последний раз редактировалось noobnoob; 18.11.2009 в 11:13.
noobnoob вне форума Ответить с цитированием
Старый 18.11.2009, 11:18   #4
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Пример с доп. кнопкой очистки во вложении.
Если требуется, вставьте строку кода очистки последней строкой в макрос сохранения.
Вложения
Тип файла: rar С форума 2.rar (50.4 Кб, 23 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 18.11.2009, 11:38   #5
noobnoob
 
Регистрация: 12.11.2009
Сообщений: 4
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
Пример с доп. кнопкой очистки во вложении.
Если требуется, вставьте строку кода очистки последней строкой в макрос сохранения.
Спасибо, еще раз, БОЛЬШОЕ!
noobnoob вне форума Ответить с цитированием
Старый 18.11.2009, 15:52   #6
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
К сожалению, Ваш файл "Накладная" "битый" (не открывается)
Я в таких случаях переименовываю файл в формат Office 2007
Обычно (как и в этом случае) помогает.
Переименовал Накладная.xls в Накладная.xlsx - сразу всё открылось.

Можно "неоткрывающиеся" файлы открывать при помощи Office 2007 - он сам распознает начинку файла.
EducatedFool вне форума Ответить с цитированием
Старый 18.11.2009, 18:35   #7
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Цитата:
Можно "неоткрывающиеся" файлы открывать при помощи Office 2007 - он сам распознает начинку файла.
Спасибо!
Полезная информация! Был у меня такой случай, так и не смог открыть...
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 19.11.2009, 07:32   #8
noobnoob
 
Регистрация: 12.11.2009
Сообщений: 4
По умолчанию

Уважаемый SAS888!

Хотелось бы уточнить, а можно, пожалуйста, все же сделать так, чтобы по нажатию кнопки "Скопировать" копировалась не вся (все) выделенная (ые) строка (ки), а только ячейки B,C,D,I в соответствующие строки в файле "Накладная" ?
noobnoob вне форума Ответить с цитированием
Старый 23.11.2009, 06:13   #9
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Посмотрите вложение. Строки копируются целиком, а затем убираем все лишнее и перемещаем все по местам (данные из столбца "H" в столбец "G"). Такой метод позволяет обойтись вообще без циклов.
Вложения
Тип файла: rar Опять с форума.rar (34.7 Кб, 27 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выборочное суммирование ячеек pavel.ignatenko Microsoft Office Excel 8 01.11.2009 19:02
Копирование диаграмм в новую книгу juliaowen Microsoft Office Excel 1 30.10.2009 11:06
Как скопировать выпадающий список на другой лист и в другую книгу gleod Microsoft Office Excel 4 07.07.2009 22:36
Перемещение листа в другую книгу GWolf Microsoft Office Excel 4 04.03.2009 14:53
Копирование листа в другую книгу макросом xamillion Microsoft Office Excel 9 11.10.2008 08:59