макрос закрашивающий то, что нашла функция ВПР

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос закрашивающий то, что нашла функция ВПР (Макросы/Sub)

Flatcher

Дата: Среда, 09.12.2015, 07:53 | Сообщение № 1

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

Ранг: Участник

Сообщений: 94

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

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

Excel 2010

Добрый день! Подскажите пожалуйста можно ли написать макрос который автоматически закрасит те значения которые находит впр? В моем примере это шуба с значением 150 шт.

К сообщению приложен файл: 6363654.xlsx (9.0 Kb)

Ответить

китин

Дата: Среда, 09.12.2015, 08:41 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7016

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

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

Excel 2007;2010;2016

только VBA? а средствами УФ никак? смотрите условное форматирование и диспетчер имен

К сообщению приложен файл: Flatcher.xlsx (9.4 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Flatcher

Дата: Среда, 09.12.2015, 08:54 | Сообщение № 3

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

Ранг: Участник

Сообщений: 94

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

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

Excel 2010

китин, спасибо большое! Я не знал, что так можно! Называется век живи век учись)))

Ответить

Nic70y

Дата: Среда, 09.12.2015, 09:01 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 8769

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

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

Excel 2010

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
Application.ScreenUpdating = 0
Sheets("Данные").Select
Call color_
End If
End Sub

[/vba]
[vba]

Код

Sub color_()
Application.ScreenUpdating = 0
    Range("B2:B7").Interior.Pattern = xlNone
    For Each c In Range("b2:b7")
    If c = Sheets("Отчет").[b2] Then
    c.Interior.Color = 65535
    End If
    Next
Application.ScreenUpdating = 1
End Sub

[/vba]

К сообщению приложен файл: 10.5.xlsm (15.9 Kb)

ЮMoney 41001841029809

Ответить

Flatcher

Дата: Среда, 09.12.2015, 11:36 | Сообщение № 5

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

Ранг: Участник

Сообщений: 94

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

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

Excel 2010

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

К сообщению приложен файл: 3375491.xlsx (10.0 Kb)

Ответить

Nic70y

Дата: Четверг, 10.12.2015, 19:17 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 8769

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

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

Excel 2010

Цитата Flatcher, 09.12.2015 в 11:36, в сообщении № 5

китин, сделал без диспетчера имен

Вы о чем?

Цитата Flatcher, 09.12.2015 в 07:53, в сообщении № 1

можно ли написать макрос который автоматически закрасит те значения которые находит впр?

сделано дословно, хотя наверное не совсем правильно, нужно добавить еще одно условие.

ЮMoney 41001841029809

Ответить

_Boroda_

Дата: Четверг, 10.12.2015, 20:03 | Сообщение № 7

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Цитата Flatcher, 09.12.2015 в 11:36, в сообщении № 5

при добавлении дополнительных значений в лист отчет (а их может быть много) не очень удобно

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

Код

=ЕНД(ПОИСКПОЗ(A2;A$1:A1;))*ПОИСКПОЗ(A2;Отчет!A$2:A$999;)

Должно быть побыстрее ВПРа по 2-м объединенным столбцам. Встати, а зачем Вам в формуле ВЫБОР? Он лишний.

К сообщению приложен файл: 3375491_1.xlsx (10.2 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос закрашивающий то, что нашла функция ВПР (Макросы/Sub)

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