Word表格数据类型判断与VBA条件格式设置问题求助

你的代码主要有两个核心问题：

• 直接对tbl.Cell(r,c)对象进行数值判断，Word的Cell对象不是单纯的数值，必须提取它的文本内容才能做判断
• 单元格文本末尾默认带有隐藏的段落标记（Chr(13)+Chr(7)），直接用这个文本做数值转换会失败，必须先清理掉这些多余字符

另外你当前的判断逻辑（判断是否等于整数）和你实际需求的三个数值范围条件完全不符，得重新写判断逻辑。

修正后的代码如下：

Sub ConditionalFormat()
    Dim tbl As Table, r As Long, c As Long
    Dim cellText As String, cellValue As Double
    
    Set tbl = ActiveDocument.Tables(1)
    For r = 1 To tbl.Rows.Count
        For c = 1 To tbl.Columns.Count
            ' 提取单元格文本并去掉末尾的隐藏段落标记
            cellText = Left(tbl.Cell(r, c).Range.Text, Len(tbl.Cell(r, c).Range.Text) - 2)
            
            ' 先判断是否为有效数值
            If IsNumeric(cellText) Then
                cellValue = CDbl(cellText)
                ' 根据数值范围设置背景色
                Select Case cellValue
                    Case Is < 1
                        tbl.Cell(r, c).Shading.BackgroundPatternColor = wdColorGreen
                    Case 1 To 10
                        tbl.Cell(r, c).Shading.BackgroundPatternColor = wdColorYellow
                    Case Is > 10
                        tbl.Cell(r, c).Shading.BackgroundPatternColor = wdColorRed
                End Select
            End If
        Next c
    Next r
End Sub

关键细节说明：

• Left(..., Len(...)-2)：Word单元格的文本末尾固定有两个不可见字符，必须移除才能得到干净的内容用于数值转换
• IsNumeric(cellText)：先确认文本是有效数值，避免转换时出错
• Select Case比多个If更清晰地对应三个范围条件
• 使用wdColorGreen等内置常量设置背景色，也可以用RGB值（比如RGB(0,255,0)）自定义颜色

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