基于Excel单元格值动态设置VB生成的HTML表格td背景色

我需要在VB代码里，根据Excel单元格的数值，给邮件中的HTML表格<td>标签设置背景色，用来高亮特定数值的单元格。规则如下：

• 数值≥98%时设为绿色
• 数值≥95%且<98%时设为蓝色
• 其余情况设为红色

目前我生成HTML表格的基础代码如下（未包含背景色逻辑）：

"<table style=font-size:11pt;font-family:Arial; width=auto>" & _
            "<tr >" & _
                "<td>Title</td>" & _
                "<td align=right>" & FormatPercent(("I16"), 0) & "</td> " & _
                "<td align=right>" & FormatPercent(("J16"), 0) & "</td> " & _
            "</tr>" & _
"</table>"

我有大约24个不同的单元格需要处理，之前手动逐个拼接字符串效率太低，想找更优的方法。也不确定能不能直接复用Excel单元格的条件格式，但没找到相关方法。希望实现类似以下逻辑的功能：

If <td> value >= 0.98 then
    color=green
elseif <td> value > 0.95 then
    color = blue
else
    color = red
End if

1. 封装颜色判断函数 #

先写一个通用函数，传入Excel单元格的原始数值，返回对应的背景色十六进制代码：

Function GetCellBackColor(cellValue As Double) As String
    Select Case cellValue
        Case Is >= 0.98
            GetCellBackColor = "#90EE90" ' 浅绿色，可根据需求替换
        Case Is >= 0.95
            GetCellBackColor = "#87CEFA" ' 浅蓝色，可根据需求替换
        Case Else
            GetCellBackColor = "#FFCCCB" ' 浅红色，可根据需求替换
    End Select
End Function

2. 封装<td>标签生成函数 #

再写一个函数，负责生成带背景色的<td>标签，同时处理数值的百分比格式化：

Function GenerateColoredTd(cellAddress As String, align As String) As String
    Dim cellValue As Double
    cellValue = Range(cellAddress).Value ' 获取Excel单元格的原始数值
    Dim backColor As String
    backColor = GetCellBackColor(cellValue)
    ' 拼接带背景色的<td>标签，注意引号转义
    GenerateColoredTd = "<td align=""" & align & """ style=""background-color:" & backColor & ";"">" & FormatPercent(cellValue, 0) & "</td>"
End Function

3. 重构表格生成代码 #

用上述函数简化表格生成，以你的示例为例：

"<table style=font-size:11pt;font-family:Arial; width=auto>" & _
            "<tr>" & _
                "<td>Title</td>" & _
                GenerateColoredTd("I16", "right") & _
                GenerateColoredTd("J16", "right") & _
            "</tr>" & _
"</table>"

4. 批量处理多个单元格 #

如果有24个单元格，可以把地址存入数组，循环生成对应的<td>标签：

Dim cellAddresses() As Variant
' 填入所有需要处理的24个单元格地址
cellAddresses = Array("I16", "J16", "K16", "L16", ...) 

Dim htmlRow As String
htmlRow = "<tr><td>Title</td>" ' 固定的标题列

Dim addr As Variant
For Each addr In cellAddresses
    htmlRow = htmlRow & GenerateColoredTd(addr, "right")
Next addr
htmlRow = htmlRow & "</tr>"

' 最终拼接完整表格HTML
Dim htmlTable As String
htmlTable = "<table style=font-size:11pt;font-family:Arial; width=auto>" & htmlRow & "</table>"

关于复用Excel条件格式的说明 #

无法直接将Excel的条件格式转换成HTML样式——Excel的条件格式是软件内部的格式规则，和HTML的CSS样式完全不兼容，因此通过VB代码判断数值生成对应样式的方案是最可靠的。

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