基于同一行中另一个单元格中的数据设置单元格格式

Question

我希望标识(突出显示)工作表的第4列中的单元格，该单元格在同一行中包含单词“11月”，但在同一工作表的第1列中。

代码部分成功，因为宏确实在第1列中标识了单词“11月”，但代码将突出显示列4的整个范围，而不只是列4中与“11月”在同一行中的单元格。

一旦我能够让这段代码工作，我希望将该行中突出显示的单元格的文本更改为"False“。

因此，在实践中，单词“11月”位于单元格A35，单词"True“位于单元格D35。我希望宏突出显示单元格D35并将单元格文本更改为"False“，因为单元格A35是”11月“。

Sub Formatting()
    Dim Excel_File As Workbook
    Dim Tab_Report As Worksheet
    Dim tbl As ListObject
    Dim rng1 As Range
    Dim rng2 As Range

    Set Excel_File = ThisWorkbook
    Set Tab_Report = Excel_File.Worksheets("Tab_Report")
    Set tbl = Tab_Report.ListObjects("Excel_File")
    Set rng1 = tbl.ListColumns(1).DataBodyRange
    Set rng2 = tbl.ListColumns(4).DataBodyRange

    For Each cell In rng1
        If cell.Text = "November" Then rng2.Interior.Color = 11851260
    Next cell

End Sub

Answer 1

功劳归于@SJR

Sub Formatting()

    Dim Excel_File As Workbook
    Dim Tab_Report As Worksheet
    Dim tbl As ListObject
    Dim rng As Range

    Set Excel_File = ThisWorkbook
    Set Tab_Report = Excel_File.Worksheets("Tab_Report")
    Set tbl = Tab_Report.ListObjects("Excel_File")
    Set rng = tbl.ListColumns(1).DataBodyRange


    For Each cell In rng
    If cell.Text = "November" Then cell.Offset(, 3).Interior.Color = 11851260
    Next cell

    For Each cell In rng
    If cell.Text = "November" Then cell.Offset(, 3) = "False"
    Next cell

End Sub