Выделите строку на основе двух разных критериев - Обновление № 2

Question

((Это сообщение было обновлено с исходного поста))

Это то, что я имею до сих пор:

Sub Erail_Customer_Macro1()
'
Dim rg As Range
Set rg = Range("A1:J500") 'changed to fit with the columns in your picture.

For Each Row In rg.Rows

  If (rg.Cells(Row.Row, 1).Value = "CUPE33" And rg.Cells(Row.Row, 8).Value = "QUIMA") Or (rg.Cells(Row.Row, 1).Value = "CUPE33" And rg.Cells(Row.Row, 8).Value = "CHLMA") Then
    cell.EntireRow.Interior.Color = vbRed
  End If

  Next Row

End Sub

Я обновил код до того, что вы видите выше. Это не дает мне ошибки, но также не выделяет строки на основе критериев.

Я прикрепил снимок экрана клеток перед запуском макроса и то, что мне нужно, чтобы они выглядели после.

По-прежнему важно, чтобы я мог добавлять все больше и больше критериев с течением времени.

Перед запуском макроса выше (выглядит так же после, ничего не меняется)

Это то, что мне нужно, чтобы выглядеть после. И я хотел бы иметь возможность добавлять все больше и больше критериев с течением времени, чтобы проверить больше комбинаций между столбцом A и H. Я предполагаю, что я бы сделал это, просто добавив больше критериев Or, используя подчеркивание типа Or _ для одинаковых разрывов.

Answer 1

Обновлено с вашими опубликованными значениями:

Sub Erail_Customer_Macro1()
'
Dim rg As Range
Dim Row as Range
Set rg = Range("A1:J500") 'changed to fit with the columns in your picture.

For Each Row In rg.Rows

  If (rg.Cells(Row.Row, 1).Value = "CUPE33" And rg.Cells(Row.Row, 8).Value = "QUIMA") _
     Or (rg.Cells(Row.Row, 1).Value = "CUPE33" And rg.Cells(Row.Row, 8).Value = "CHLMA") _
  Then
    Row.EntireRow.Interior.Color = vbRed
  End If

Next Row

End Sub

Answer 2

Просто напишите код так же, как вы сказали нам проблему:

if (RTED2 and WARMI) or (AMRPN and ABBSC) then

Конечно, это псевдокод, но, скорее всего, получите смысл