|
4种以上的,用VBA啊
<TABLE 669pt; BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width=892 border=0 x:str>
<COLGROUP>
<COL style="WIDTH: 669pt; mso-width-source: userset; mso-width-alt: 28544" width=892>
If Target.Column = 1 Then
Select Case Target.Value
Case "蓝"
Target.Font.Color = RGB(255, 255, 255)
Target.Interior.Color = RGB(0, 0, 255)
Case "红"
Target.Font.Color = RGB(255, 255, 255)
Target.Interior.Color = RGB(255, 0, 0)
Case "黄"
Target.Font.Color = RGB(0, 0, 0)
Target.Interior.Color = RGB(255, 255, 0)
Case "绿"
Target.Font.Color = RGB(0, 0, 0)
<TR 15.75pt" height=21>
<TD class=xl28 #dadce4 |
|