RFpro.ru: Пакет Microsoft Office

  Все выпуски  

RFpro.ru: Пакет Microsoft Office


РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты в разделе

REDDS
Статус: 2-й класс
Рейтинг: 196
∙ повысить рейтинг »
Андреенков Владимир
Статус: Профессор
Рейтинг: 164
∙ повысить рейтинг »
CradleA
Статус: Профессионал
Рейтинг: 18
∙ повысить рейтинг »

∙ Пакет MSOffice

Номер выпуска:961
Дата выхода:18.10.2016, 15:15
Администратор рассылки:Megaloman (Академик)
Подписчиков / экспертов:21 / 21
Вопросов / ответов:1 / 1

Консультация # 189879: Здравствуйте! У меня возникли сложности с таким вопросом: MS Excel 2010. Есть файл заказа товаров(Лист1) с основными столбцами формата "поставщик/артикул/наименование товара/количество/цена прихода/дата прихода/номер документа". Задача формировать автоматически сводную накладную о приходе товара на определенную дату, которая указыва...

Консультация # 189879:

Здравствуйте! У меня возникли сложности с таким вопросом:
MS Excel 2010. Есть файл заказа товаров(Лист1) с основными столбцами формата "поставщик/артикул/наименование товара/количество/цена прихода/дата прихода/номер документа".
Задача формировать автоматически сводную накладную о приходе товара на определенную дату, которая указывается в отдельной ячейке(Лист2), т.е. нужно подготовить таблицу на отдельном листе(Лист2) с позициями товара, пришедшего после определенной даты (от такого-то числа и позднее по настоящее время) формата "артикул/наименование товара/количество". Спасибо.

Дата отправки: 13.10.2016, 15:08
Вопрос задал: a.panin (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Megaloman (Академик):

Здравствуйте, a.panin!
Вот вариант решения: за основу взята Ваша таблица и в неё добавлен макрос.
Возможно, макрос понадобится подкорректировать: Вид-Макрос-OutForm-Изменить. Вот фрагмент кода для пояснения:

   ListIn = "Общий заказ"
    ListOut = "Лист прихода"
     
     ColIn = Array("A", "E", "F", "G", "H", "P")    'Из каких колонок берём данные
    ColOut = Array("A", "E", "F", "G", "H", "P")    ' В какие колонки помещаем
    
     RowIn1 = 7     ' C какой строки начинаем просмотр исходных данных
     ColTek = "B"   ' В какои колонке смотрим исходные даты
    RowOut1 = 3     ' В какую строку начинаем помещать найденные данные
    
    DateOut1 = "F1"  ' Клетка в ListOut с начальной датой для отбора из ListIn
    DeltaOut = -6    ' Диапазон выбора в днях от начальной даты
   

Прежде всего, Вы увидите, что заданы имена листов Вашей книги - если в книге они изменятся, поменяйте макрос.
Далее - описаны массив исходных колонок и колонок на выходе, куда Вы переносите данные. Их число должно совпадать. В Вашем частном случае имена исходных и колонок на выходе совпадают.
Далее, определите, с какой строки в таблице начинается просмотр данных. Я написал 7, как у Вас в таблице: у Вас это шапка и какие-то пустые строки
Далее всё понятно из описания, обращу внимание, что диапазон дат может отсчитываться как вперёд от заданной в шапке листа даты, так и назад (со знаком -) на указанное кол-во дней. Здесь, как Вы требовали, сделано -6.
Как пользоваться: задать на листе "Лист прихода" дату, далее Вид-Макрос-OutForm-Выполнить. При этом создастся отдельно новая книга с листом "Лист прихода", куда выберутся нужные данные. Вы вольны сохранить её с любым именем в любое место. Исходная книга при этом никак не м еняется, в том числе и "Лист прихода" - он используется как шаблон, поэтому его ничем заполнять нельзя.


Консультировал: Megaloman (Академик)
Дата отправки: 14.10.2016, 14:32
Прикреплённый файл: посмотреть » [553.4 кб]

5
Ого! Спасибо Вам огромное, всё работает. Отдельное спасибо за пояснения "для дураков", очень помогли.
Если честно, думал обойдусь какой-нибудь простенькой формулой.

-----
Дата оценки: 17.10.2016, 10:45

Рейтинг ответа:

НЕ одобряю 0 одобряю!


Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!


В избранное