Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Заливка цветом при совпадении значений из двух диапазонов. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заливка цветом при совпадении значений из двух диапазонов. (Макросы/Sub)
Заливка цветом при совпадении значений из двух диапазонов.
Exsodus Дата: Вторник, 11.10.2022, 22:02 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте. На "Лист2" есть таблица со значениями и цветами, на "Лист1" при вводе значения в колонку, оно должно сравниваться со значениями в таблице на "Лист2" и при совпадении, закраситься в цвет данного значения указанного на "Лист2". Прикладываю файл-пример с макросом. Подскажите, что нужно поправить в макросе для сравнения значений с диапазоном? У меня закрашивается при указании значения и адреса ячейки с цветом в макросе? Спасибо.
К сообщению приложен файл: 9303581.xlsm(17.7 Kb)
 
Ответить
СообщениеЗдравствуйте. На "Лист2" есть таблица со значениями и цветами, на "Лист1" при вводе значения в колонку, оно должно сравниваться со значениями в таблице на "Лист2" и при совпадении, закраситься в цвет данного значения указанного на "Лист2". Прикладываю файл-пример с макросом. Подскажите, что нужно поправить в макросе для сравнения значений с диапазоном? У меня закрашивается при указании значения и адреса ячейки с цветом в макросе? Спасибо.

Автор - Exsodus
Дата добавления - 11.10.2022 в 22:02
Nic70y Дата: Среда, 12.10.2022, 08:09 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 7854
Репутация: 1891 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C1:C100")) Is Nothing Then
        On Error Resume Next
        Set u = Worksheets(2).Range("b2:f12").Find(What:=Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
        v = u.Interior.Color
        w = u.Font.Color
        Range(Target, Target.Offset(0, 2)).Interior.Color = v
        Range(Target, Target.Offset(0, 2)).Font.Color = w
        If w = "" Then
            Range(Target, Target.Offset(0, 2)).Interior.Pattern = xlNone
            Range(Target, Target.Offset(0, 2)).Font.ColorIndex = xlAutomatic
        End If
    End If
End Sub
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C1:C100")) Is Nothing Then
        On Error Resume Next
        Set u = Worksheets(2).Range("b2:f12").Find(What:=Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
        v = u.Interior.Color
        w = u.Font.Color
        Range(Target, Target.Offset(0, 2)).Interior.Color = v
        Range(Target, Target.Offset(0, 2)).Font.Color = w
        If w = "" Then
            Range(Target, Target.Offset(0, 2)).Interior.Pattern = xlNone
            Range(Target, Target.Offset(0, 2)).Font.ColorIndex = xlAutomatic
        End If
    End If
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 12.10.2022 в 08:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заливка цветом при совпадении значений из двух диапазонов. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!