Автоматизируем перенос цен на один лист

 

<показать предыдущий урок

Скачать  исходник 53 кбSub сравнение()
'для ускорения переноса информации отключаем отображение на мониторе и устанавливаем курсор
Application.ScreenUpdating = False
Sheets("прайс1").Select: Range("A1").Select : Sheets("прайс2").Select : Range("A1").Select
Sheets("прайс3").Select: Range("A1").Select :Sheets("свод").Selec t: Range("A2").Select
begin :'Открываем первый лист
Sheets("прайс1").Select : чтение_данных 'проверяем достижение конца списка и заканчиваем работу
If товар = Empty Then GoTo vix параметры наименование, артикул : имя1 = наименование : аrt1 = артикул
'заносим в сводную ведомость данные строки первого прайса
Sheets("свод").Select : ActiveCell.Value = товар : ActiveCell.Cells(, 2).Activate : ActiveCell.Value = цена
ActiveCell.Cells(, 2).Activate : ActiveCell.Cells(, -1).Activate
'Аналогично работаем с последующими прайсами
Sheets("прайс2").Select :чтение_данных
If товар = Empty Then GoTo 3
параметры наименование, артикул : Sheets("свод").Select
If имя1 = наименование And аrt1 = артикул Then цена2 Else цена2_нов

3 Sheets("прайс3").Select : чтение_данных
If товар = Empty Then GoTo begin
параметры наименование, артикул : Sheets("свод").Select
If имя1 = наименование And аrt1 = артикул Then цена3 Else цена3_нов
GoTo begin
'когда обработаем все строки то октрываем лист Свод
vix: Sheets("свод").Select : Application.ScreenUpdating = True
End Sub
В результате работы макроса мы получаем то, что хотели, по нажатию кнопки "свести данные" цены на товар, представляемый разными прайсами, окажутся на одном листе! Показать рисунок . Обратите внимание на то, что, если вы запустили программу не со своего жесткого диска, а из Internet, то после отработки макроса информация может оставаться невидимой. Для проявления разнесенных цен необходимо будет открыть какой-либо Лист и затем снова вернутся в свод, только после этого вся информация станет доступной для обозрения.

 

.продолжение

СПРАВОЧНИК ДЛЯ ВАС

Как запустить редактор VBA...

Не знаете, как создать форму...

Не знаете, как подключить макросы ...

Вы не знаете как открыть окно свойств...

Инструментальную панель как открыть...

Автоматическая запись макроса...

Создание своей кнопки и ее подключение к макросу на выполнение...

Как провести проверку на работоспособность созданой кнопки...

Как найти макрос только что созданный вами в автоматическом режиме для последующего редактирования и изучения...

Рейтинг@Mail.ru
 главная с чего начать готовые программы задачи с решениями карта
Copyright © СОМИТ, А.Козлов, 2005 г