以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  excel模板输出的单元格边框颜色  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=99644)
--  作者：machle
--  发布时间：2017/4/23 16:17:00
--  excel模板输出的单元格边框颜色
 我用模板输出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
--  作者：有点色
--  发布时间：2017/4/23 17:03:00
--  

请直接用vba操作。

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=98934&skin=0

 
--  作者：machle
--  发布时间：2017/4/23 19:27:00
--  [求助]回复：（有点色）请直接用vba操作。 http://...
以前没用过VBA，看了帮助和论坛，一点思路也没有……

给个思路吧。我是用excel模板，导出报表到excel保存并打开，excel文件中有几十个页面，有数据，每个页面就会有数据。

每个页面上的有背景色的单元格连在一起，就没有边框。

谢谢！
--  作者：有点色
--  发布时间：2017/4/23 20:16:00
--  
 上传具体事例说明问题。