BuildDetail事件:
目的是让模板“报告”工作表的第三列根据
显示文本的不同显示不同的背景颜色
无影响=绿色
一般影响=黄色
严重影响=红色
代码如下
Select e.Book.TempLate
Case "报告模板" '模板名
Dim sheet As xls.sheet = e.book.sheets("报告") '引用工作表
Dim Style1 As XLS.Style = e.Book.NewStyle() '定义样式
Dim Style2 As XLS.Style = e.Book.NewStyle()
Dim Style3 As XLS.Style = e.Book.NewStyle()
Style1.BackColor = Color.Red '设置背景颜色
Style2.BackColor = Color.Yellow
Style3.BackColor = Color.Green
Style1.AlignHorz = XLS.AlignHorzEnum.Center '设置对齐方式
Style1.AlignVert = XLS.AlignVertEnum.Center
Style2.AlignHorz = XLS.AlignHorzEnum.Center
Style2.AlignVert = XLS.AlignVertEnum.Center
Style3.AlignHorz = XLS.AlignHorzEnum.Center
Style3.AlignVert = XLS.AlignVertEnum.Center
For i As Integer = 0 To 20
If Sheet(i,2).text = "无影响" Then
Sheet(i,2).Style =Style3 '设置单元格样式
ElseIf Sheet(i,2).text = "一般影响" Then
Sheet(i,2).Style =Style2 '
ElseIf Sheet(i,2).text = "严重影响" Then
Sheet(i,2).style =Style1 '
End If
Next
End Select
结果完全没反应,
请问问题出在哪里?
或者有其他办法可以实现根据excel单元格内容有条件设置格式吗?