Как выбрать что-то при выполнении поиска

Question

Я хочу выделить строку красным цветом, когда критерии выбора совпадают, но я обнаружил, что во всем процессе поиска программа не выбрала ни одной ячейки, что мне делать?

Sub Main() 
    Dim celltxt As String 
    Dim cell As Range, cell2 As Range 
    Dim aMonthFromNow As Date 

    For Each cell In Range("M1:M" & Range("M" & Rows.Count).End(xlUp).Row) 
     aMonthFromNow = DateAdd("m", 1, Now) 

     If Month(cell) = Month(aMonthFromNow) And Day(cell) = Day(aMonthFromNow) Then 
      MsgBox "cc 1 month notice at " & cell.Address 
     End If 
    Next 

    For Each cell In Range("M1:M" & Range("M" & Rows.Count).End(xlUp).Row) 
     If cell = DateAdd("m", 2, Left(Now, 10)) Then 
      MsgBox "ee 2 months notice at " & cell.Address 
     End If 
    Next 
End Sub 

Answer 1

Я хочу, чтобы выделить строку красного цвета, когда crteria выбора встретил

Вы хотите highight красного цвета, но вы на самом деле показываете ячейку в MsgBox

Используйте этот для выделения строки в RED

cell.EntireRow.Interior.ColorIndex = 3