Солнечный остров Родос: отдых в греции крит. / Промышленная вентиляция bd0. Системы промышленной вентиляции и кондиционирования. / Ищешь тур в Англию - отель лондон. Размещение в отелях всего мира.
<показать
предыдущий урок Новогодние туры в Египет - тур в париж без экскурсий. Вечерние экскурсии по Москве. / Горящие туры и билеты в Чехию: горящие туры в прагу. Туры в Прагу.
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, то после отработки макроса
информация может оставаться невидимой. Для проявления разнесенных цен
необходимо будет открыть какой-либо Лист и затем снова вернутся в свод,
только после этого вся информация станет доступной для обозрения.
...продолжение
