如何通过VBA根据单元格值为Word文档表格按数值区间着色

你不需要逐一手动指定单元格位置，直接遍历表格的Cell集合即可完成批量着色操作，完整实现逻辑和可运行代码如下：

核心实现逻辑 #

• 先校验活动文档是否存在表格，避免无表格时运行报错
• 遍历活动文档第一个表格的所有单元格
• 处理单元格自带的末尾结束标记（Word单元格文本默认会带不可见的结束符，直接转数值会报错）
• 校验单元格内容是否为合法数值，跳过空单元格、文本单元格避免脚本中断
• 按设定的数值区间匹配规则，给对应单元格设置填充色

完整可运行代码 #

Sub ColorTableByValue()
    Dim targetTable As Table
    Dim cell As cell
    Dim cellValue As Double
    Dim cellText As String
    
    ' 校验文档是否存在表格
    If ActiveDocument.Tables.Count = 0 Then
        MsgBox "当前文档没有表格", vbExclamation
        Exit Sub
    End If
    
    Set targetTable = ActiveDocument.Tables(1)
    
    ' 遍历表格所有单元格
    For Each cell In targetTable.Range.Cells
        ' 去除单元格末尾的不可见结束标记
        cellText = Left(cell.Range.Text, Len(cell.Range.Text) - 1)
        ' 跳过非数值内容
        If Not IsNumeric(cellText) Then GoTo NextCell
        
        cellValue = CDbl(cellText)
        ' 按区间设置填充色
        Select Case cellValue
            Case Is < 5
                cell.Shading.BackgroundPatternColor = RGB(0, 112, 192) ' 蓝色
            Case 5 To 7
                cell.Shading.BackgroundPatternColor = RGB(0, 176, 80) ' 绿色
            Case Is > 7
                cell.Shading.BackgroundPatternColor = RGB(255, 192, 0) ' 橙色
        End Select
NextCell:
    Next cell
End Sub

可调说明 #

• 颜色调整：直接修改RGB()内的三个参数（分别对应红、绿、蓝通道，取值0-255）即可自定义填充色的深浅色调
• 区间调整：如果需要修改数值判断区间，直接调整Select Case后的判断条件即可
• 表格范围调整：如果需要处理其他表格，修改ActiveDocument.Tables(1)里的序号即可，比如要处理第二个表格就改成Tables(2)

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