用于使整行的BBA代码基于查询表中的单元格值粗体显示

Question

我有一个通过SAP Query生成的范围（G15：AL540）中的表。如果列L中的单元格包含单词＆＃34; Main Investigation＆＃34;，我需要将所有行粗体化。我是使用条件格式（= $ L16 =＆＃34;主要调查＆＃34;）完成的，并且它有效。但我需要在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