我用模板输出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
加好友 
发短信
Post By：2017/4/23 16:17:00 [只看该作者]
