基於查詢表中的單元格值使整行加粗的 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