Написание макроса под условное форматирование для двух ячеек

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Написание макроса под условное форматирование для двух ячеек (Макросы/Sub)

Delfato

Дата: Вторник, 31.03.2015, 11:46 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 1 ±

Замечаний: 0% ±

Excel 2013

Доброго времени суток!
Прошу помощи с написанием макроса (по возможности с расшифровкой).
Работаю с файлом,в котором отображается информация об остатках товара (более 7000 позиций) на 30 и более торговых точках и их складах, сравниваю эти данные с продажами за определенный период. Для анализа мне необходимо визуально находить совокупные остатки торговой точки и ее склада, которые меньше, чем продажи этой же торговой точки. Пыталась создать правило условного форматирования, но ничего не вышло. Толи диапазон в 7000 строк не дает, то ли около 90 столбцов.....словом запуталась.
Буду очень-очень признательна (особенно мои глаза), если сможете помочь с макросом решающим мою проблему.
Заранее спасибо! Файл с примером во вложении.

К сообщению приложен файл: 4508410.xls (36.5 Kb)

Ответить

KuklP

Дата: Вторник, 31.03.2015, 12:37 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Для этого примера, как понял.
[vba]

Код

Public Sub www()
     Dim i&, j&, n&, lr&
     lr = Cells(Rows.Count, 1).End(xlUp).Row
     For i = 3 To lr
         For j = 4 To 10 Step 2
             If Cells(i, j).Value < Cells(i, j - 1).Value Then _
                Cells(i, j - 1).Resize(, 2).Interior.ColorIndex = 3
         Next
     Next
End Sub

[/vba]

К сообщению приложен файл: 5587830.xls (43.0 Kb)

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Delfato

Дата: Вторник, 31.03.2015, 12:53 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 1 ±

Замечаний: 0% ±

Excel 2013

KukIP, спасибо большое. Это почти то, только он не совсем правильно считает, то есть, если мы меняем данные в остатках - делаем их больше , чем продажи той же точки, макрос все равно красит. А не должен.

И можете потом расписать, что каждая строчка в макросе делает (я учусь пока на примерах)
А то я не смогу под весь рабочий файл его потом адаптировать.

Сообщение отредактировал Delfato - Вторник, 31.03.2015, 13:24

Ответить

KuklP

Дата: Вторник, 31.03.2015, 13:42 | Сообщение № 4

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

[vba]

Код

Public Sub www()
         Dim i&, j&, n&, lr&
         lr = Cells(Rows.Count, 1).End(xlUp).Row
         For i = 4 To lr ' тут задается первая и последняя строка для обработки
             For j = 4 To 10 Step 2 ' задаются первый и последний столбцы и шаг(2)
                 If Cells(i, j).Value  < Cells(i, j - 1).Value Then ' дальше в цикле сравниваются значения и красятся ячейки.
                     Cells(i, j - 1).Resize(, 2).Interior.ColorIndex = 3
                 Else
                     Cells(i, j - 1).Resize(, 2).Interior.ColorIndex = Cells(1, j).Interior.ColorIndex
                 End If
             Next
         Next
End Sub

[/vba]

К сообщению приложен файл: 8826996.xls (41.5 Kb)

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Вторник, 31.03.2015, 15:27

Ответить

Delfato

Дата: Вторник, 31.03.2015, 15:03 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 1 ±

Замечаний: 0% ±

Excel 2013

KukIP, спасибо.
Распишите пожалуйста обозначение / объяснение того, что делает каждая строчка в макросе, а то я не смогу без вашей подсказки вставить макрос в рабочий файл, и опробовать его там.

Ответить

Страница 1 из 1
1