Заливка строки при совпадении объединенных значений

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

Заливка строки при совпадении объединенных значений (Макросы/Sub)

ant6729

Дата: Суббота, 03.06.2017, 00:10 | Сообщение № 1

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

Ранг: Ветеран

Сообщений: 533

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

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

Excel 2010

Добрый вечер!!!

Подскажите, пожалуйста, как при объединении значений ячеек в переменную при совпадении этого полученного значения со значением на другом листе закрасить строчку.

Пример вложил.
В модуле Лист1 то, что я пробовал получить...

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

Ответить

Pelena

Дата: Суббота, 03.06.2017, 08:44 | Сообщение № 2

Группа: Админы

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

Сообщений: 19603

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Теоретически так
[vba]

Код

Sub Alarma()
    lr1 = Sheets("Лист1").Cells(Rows.Count, 7).End(xlUp).Row
    lr2 = Sheets("Лист2").Cells(Rows.Count, 6).End(xlUp).Row
    'MsgBox lr1
    For i = 5 To lr1
        gsm = Sheets("Лист1").Cells(i, 7).Value & Sheets("Лист1").Cells(i, 9).Value & Sheets("Лист1").Cells(i, 10).Value
        For j = 7 To lr2
            kgb = Sheets("Лист2").Cells(j, 5).Value & Sheets("Лист2").Cells(j, 6).Value & Sheets("Лист2").Cells(j, 7).Value
            If gsm = kgb Then
                Sheets("Лист1").Cells(i, 1).Resize(, 14).Interior.Color = 10573517
            End If
            'MsgBox kgb
        Next j
        'MsgBox gsm
    Next i
End Sub

[/vba]
Но в Вашем примере будут закрашены все строчки, т.к. там одни Васи. Это правильный результат?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

ant6729

Дата: Суббота, 03.06.2017, 13:26 | Сообщение № 3

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

Ранг: Ветеран

Сообщений: 533

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

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

Excel 2010

Нет, Pelena, хочу залить строчку, где Катя, Вася, Вася. На Лист1.

То есть если Катя + Вася + Вася на лист1 = Катя + Вася + Вася на лист 2 то...
Заливается
Остальные не заливаются

Сообщение отредактировал ant6729 - Суббота, 03.06.2017, 13:28

Ответить

Pelena

Дата: Суббота, 03.06.2017, 13:28 | Сообщение № 4

Группа: Админы

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

Сообщений: 19603

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

Замечаний: ±

Excel 365 & Mac Excel

А чем эта строка отличается от первой Вася+Вася+Вася?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

ant6729

Дата: Суббота, 03.06.2017, 14:13 | Сообщение № 5

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

Ранг: Ветеран

Сообщений: 533

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

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

Excel 2010

Значением в Cells(i, 7) на лист1

Ответить

ant6729

Дата: Воскресенье, 04.06.2017, 09:23 | Сообщение № 6

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

Ранг: Ветеран

Сообщений: 533

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

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

Excel 2010

Только сейчас время появилось посмотреть.
Да, все так!
Сначала сам себе правильно написал... потом, когда начал объединять значения, но уже в новом! "искусственном" (вроде, похожем на исходник примере) и не доумевать, как так... чего не работает.. отошел от теории...начал менять код

Эх, после работы на ночь глядя лучше ничего не писать...

В коде Вы поняли, как должно быть в примере, которого не видели по описанию "задания", которое я дал. Еще раз спасибо.

Сбрасываю, какой пример должен быть, чтобы сработало.

К сообщению приложен файл: 3855032-1-.xlsm (15.1 Kb)

Сообщение отредактировал ant6729 - Воскресенье, 04.06.2017, 09:38

Ответить

Заливка строки при совпадении объединенных значений (Макросы/Sub)

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