基于值的HTML背景颜色更改

时间:2018-01-26 16:28:13

标签: html vba ms-access

我正在使用vba脚本来创建HTML电子邮件。一切正常,但我需要根据值更改背景颜色。下面是我所拥有的vba代码,用于更改颜色CountScoreColor,稍后将用于创建html体。

  CountCaseID = ![Count of Case ID+]

                  If CountCaseID >= 550 Then

                    CountScore = "Y"
                    CountScoreColor = "#8B4513"
                  Else
                        If CountCaseID >= 450 Then
                            CountScore = "Y/N"
                            CountScoreColor = "#F4A460"
                        Else
                            CountScore = "N"
                            CountScoreColor = "#87CEEB"
                        End If

                  End If

我稍后在vba htmlbody中使用CountScoreColor值,如下所示:

StrHTML = "<td width=56 nowrap valign=bottom " _style='background:CountScoreColor;width:42.0pt;border:solid windowtext 1.0pt;border-left:none;padding:0cm 5.4pt 0cm 5.4pt;height:22.5pt'>"

我在调试代码时可以看到它正在改变数字,但是它正在创建的电子邮件的背景颜色没有变化。但是,如果我只是拿CountScoreColor然后放下#87CEEB,那就改变了颜色。

1 个答案:

答案 0 :(得分:1)

CountScoreColor是一个变量,因此您需要将其视为一个变量:

_style='background:" & CountScoreColor & ";width:42.0pt;