VBA循环为每个突出显示的列做点什么？

Question

我希望最终用户通过以黄色突出显示列标题（列标题位于第1行）来指定哪些列“重要”，然后为每个突出显示的列使用宏“操作”。

因此，伪代码为：

• 对于每列：
• 如果列标题为黄色，则执行操作
• 结束
• 下一栏

Answer 1

假设您使用的是默认的黄色高亮显示（ColorIndex = 6），则可以尝试执行以下操作

Sub example()
    Dim col As Integer
    For col = 1 To Sheets(1).Cells(1, Columns.Count).End(xlToLeft).Column
        If Sheets(1).Cells(1, col).Interior.ColorIndex = 6 Then
            MsgBox ("Column number " & Str(col) & " is highlighted")
        End If
    Next col
End Sub