excel - 用于根据查询表中的单元格值使整行加粗的 VBA 代码

Question

我在通过 SAP Query 生成的范围 (G15:AL540) 中有一个表。如果 L 列中的单元格包含“主要调查”一词，我需要将所有行加粗。我使用条件格式（=$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