我用模板输出excel报表,如下代码设置,输出后,有颜色背景的单元格要是连在一起,黑色的边框就不会显示,应该是被颜色盖住了。
我现在想把单元格的框黑色都显示,别被背景色盖住。请问该怎么办?
谢谢!
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim Style1 As Xls.Style = Book.NewStyle '新建一个样式
Style1.BackColor = Color.Blue '样式的背景颜色设为红色
style1.ForeColor = Color.white
style1.WordWrap = True
style1.AlignHorz = XLS.AlignHorzEnum.Center
style1.AlignVert = XLS.AlignVertEnum.Center
Style1.BorderColorTop = Color.black
Style1.BorderColorBottom = Color.black
Style1.BorderColorLeft = Color.black
Style1.BorderColorRight = Color.black
If sheet(i,j).text = "A1" Or sheet(i,j).text = "A2" Or sheet(i,j).text = "A3" Or sheet(i,j).text = "A4" Or sheet(i,j).text = "A5" Or sheet(i,j).text = "A6" Then
sheet(i,j).Style = Style1 '设置折扣单元格的样式
End If