请求编写VBA宏实现6个Excel表格按条件设置单元格字体为白色

适用场景 #

针对工作表内的6个Excel表格，根据第2列（Vapor fraction）的取值，自动设置指定列的字体颜色：

• 当Vapor fraction值为1时，所有表格中列标题含"Liquid"的列，其数据单元格字体设为白色
• 当Vapor fraction值为0时，所有表格中列标题含"Vapor"的列，其数据单元格字体设为白色

代码方案（两种情况任选） #

情况1：每个表格的Vapor fraction列取值统一（整表都是0或1）

Sub SetTableFontColor()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim vaporCol As ListColumn
    Dim col As ListColumn
    
    ' 指定目标工作表，可替换为你的工作表名，比如Set ws = ThisWorkbook.Worksheets("数据 Sheet")
    Set ws = ActiveSheet
    
    ' 遍历工作表里的每一个表格
    For Each tbl In ws.ListObjects
        ' 获取表格的第2列（Vapor fraction列）
        Set vaporCol = tbl.ListColumns(2)
        
        ' 先把当前表格所有数据单元格字体重置为黑色（避免旧设置残留）
        tbl.DataBodyRange.Font.ColorIndex = 1
        
        ' 根据Vapor fraction的取值设置字体颜色
        Select Case vaporCol.DataBodyRange.Cells(1, 1).Value
            Case 1
                ' 遍历所有列，找到标题含"Liquid"的列，设置字体为白色
                For Each col In tbl.ListColumns
                    If InStr(1, col.Name, "Liquid", vbTextCompare) > 0 Then
                        col.DataBodyRange.Font.ColorIndex = 2
                    End If
                Next col
            Case 0
                ' 遍历所有列，找到标题含"Vapor"的列，设置字体为白色
                For Each col In tbl.ListColumns
                    If InStr(1, col.Name, "Vapor", vbTextCompare) > 0 Then
                        col.DataBodyRange.Font.ColorIndex = 2
                    End If
                Next col
        End Select
    Next tbl
End Sub

情况2：每行的Vapor fraction值独立（同一表格内既有0也有1）

如果你的表格中每行的Vapor fraction值不同，用这个版本：

Sub SetTableFontColorByRow()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim vaporCol As ListColumn
    Dim liquidCols As Collection
    Dim vaporCols As Collection
    Dim col As ListColumn
    Dim rowNum As Long
    
    Set ws = ActiveSheet
    
    ' 遍历每个表格
    For Each tbl In ws.ListObjects
        ' 提前收集当前表格里含"Liquid"和"Vapor"的列，提升效率
        Set liquidCols = New Collection
        Set vaporCols = New Collection
        For Each col In tbl.ListColumns
            If InStr(1, col.Name, "Liquid", vbTextCompare) > 0 Then
                liquidCols.Add col
            ElseIf InStr(1, col.Name, "Vapor", vbTextCompare) > 0 Then
                vaporCols.Add col
            End If
        Next col
        
        ' 获取Vapor fraction列
        Set vaporCol = tbl.ListColumns(2)
        
        ' 逐行处理
        For rowNum = 1 To tbl.ListRows.Count
            ' 重置当前行所有字体为黑色
            tbl.ListRows(rowNum).Range.Font.ColorIndex = 1
            
            Select Case vaporCol.DataBodyRange.Cells(rowNum, 1).Value
                Case 1
                    ' 设置该行所有Liquid列字体为白色
                    For Each col In liquidCols
                        col.DataBodyRange.Cells(rowNum, 1).Font.ColorIndex = 2
                    Next col
                Case 0
                    ' 设置该行所有Vapor列字体为白色
                    For Each col In vaporCols
                        col.DataBodyRange.Cells(rowNum, 1).Font.ColorIndex = 2
                    Next col
            End Select
        Next rowNum
    Next tbl
End Sub

使用说明 #

1. 确保你的数据是Excel官方表格：选中数据区域，按Ctrl+T创建，普通单元格区域无法用这段代码
2. 打开VBA编辑器：按Alt+F11，插入模块（右键工作表→插入→模块），把代码粘贴进去
3. 运行宏：按F5执行，或者回到Excel界面，通过「开发工具→宏」选择对应的宏运行

关键细节解释 #

• ListObject：Excel表格的官方对象，能自动识别表格的标题行、数据区域，避免手动选单元格的麻烦
• InStr(1, col.Name, "Liquid", vbTextCompare)：不区分大小写匹配列标题里的关键词，如果你需要严格区分大小写，把vbTextCompare改成vbBinaryCompare
• ColorIndex=2代表白色，ColorIndex=1代表黑色，也可以用RGB值替代，比如RGB(255,255,255)就是白色

内容的提问来源于stack exchange，提问作者Humza Ahmad