基于查询表中的单元格值使整行加粗的 VBA 代码

Question

我有一个通过 SAP Query 生成的范围 (G15:AL540) 中的表。 如果 L 列中的单元格包含“主要调查”一词，我需要将所有行设为 Bold 。 我使用条件格式（=$L16="主要调查"）做到了，并且奏效了。 但是我需要在 VBA 中编写它，以便在刷新查询时自动应用此格式。

谢谢！

Answer 1

这仅适用于活动工作表，将活动工作表更改为工作表（“sheetabc”）以引用另一张工作表

Sub test()
With ActiveSheet
    For Each cell In .Range("G15:" & .Range("G15").End(xlDown).Address)
        If .Cells(cell.Row, 12).Value = "Main investigation" Then
            cell.EntireRow.Font.Bold = True
        End If
    Next
End With
End Sub