主题：[求助]导出excle分组统计字体颜色和加粗

小白基础，大师多多指教

问题：

现在按钮2  填充的颜色是列，不是分组行

按钮1、按钮2 的代码要合并一个按钮，也不会，求助

导出的单元格里面文字靠下有问题，要设置 垂直居中

此主题相关图片如下：想实现 下面的效果.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:ff.foxdb

此主题相关图片如下：按钮2 颜色丢失.png

按钮2执行后， 单元格绘制的颜色丢失，怎么解决？

大师，上面代码，导出单元格的颜色丢失！！——————下图红色圈的位置， 11楼图红色圈的位置

还有导出单元格里的文字不居中，靠下

怎么完善上面的问题呢？

祝国庆快乐，辛苦了

Dim tt As Table = Tables("室内设计项目")
Dim file As String = "d:\我的项目.xls"
Dim flg As New SaveExcelFlags
flg.CellStyle = True
For Each c As Col In tt.Cols
    c.TextAlign = TextAlignEnum.Center
Next
tt.SaveExcel(file ,tt.name,flg)

Book.Save(file)
Dim Proc As New Process
Proc.File = file
Proc.Start()

大师，上面代码导出单元格没红色线框

1、要实现导出excle单元格实现图示红色线框代码怎么增加呢？

2、蓝色背景，红色字靠下有问题，要实现上下居中代码怎么修改呢？

此主题相关图片如下：单元格红色线框.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:1008.foxdb

Dim tt As Table = Tables("室内设计项目")
Dim file As String = "d:\我的项目.xls"
Dim flg As New SaveExcelFlags
flg.CellStyle = True
tt.SaveExcel(file ,tt.name,flg)

Dim Book As New XLS.Book(file)
Dim Sheet1 As XLS.Sheet = Book.Sheets(0)
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.ForeColor = Color.Red '设置样式的字体颜色
Style.FontBold = True

Style.BackColor = Color.DodgerBlue
Style.BorderTop = XLS.LineStyleEnum.None
Style.BorderBottom = XLS.LineStyleEnum.None
Style.BorderLeft = XLS.LineStyleEnum.None
Style.BorderRight = XLS.LineStyleEnum.None
style.AlignVert = XLS.AlignVertEnum.Center

For n As Integer = 0 To Sheet1.Rows.Count -1
    If Sheet1(n,6).Value = "1" Then
        Sheet1(n,6).Value = "√"
    Else
        Sheet1(n,6).Value = ""
    End If
    If Sheet1(n,1).Value.contains("地址:") Then
        If n > 2 Then
            For c As Integer = 0 To 9
                Sheet1 (n,c).Style = Style
            Next
        End If
    Else
        For c As Integer = 0 To 9
            try
                If Sheet1(n,c).Style.BackColor.G <> 255 Then
                Else
                    Sheet1(n,c).Style = book.NewStyle
                End If
               
            catch ex As exception
                Sheet1(n,c).Style = book.NewStyle
               
            End try
            Sheet1(n,c).Style.BorderTop = XLS.LineStyleEnum.Thin
            Sheet1(n,c).Style.BorderBottom = XLS.LineStyleEnum.Thin
            Sheet1(n,c).Style.BorderLeft = XLS.LineStyleEnum.Thin
            Sheet1(n,c).Style.BorderRight = XLS.LineStyleEnum.Thin
            Sheet1(n,c).Style.BorderColorTop = Color.red
            Sheet1(n,c).Style.BorderColorBottom = Color.red
            Sheet1(n,c).Style.BorderColorLeft = Color.red
            Sheet1(n,c).Style.BorderColorRight = Color.red
            Sheet1(n,c).Style.AlignVert = XLS.AlignVertEnum.Center
            Sheet1(n,c).Style.AlignHorz = XLS.AlignHorzEnum.Center
           
        Next
    End If
Next

Book.Save(file)
Dim Proc As New Process
Proc.File = file
Proc.Start()

大师，浅黄和浅蓝色导出excle丢失怎么解决？

浅颜色换成很深颜色就不会出现什么导出excle颜色丢失的问题

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:单元格浅色背景导出.foxdb

导出颜色偏差很大

下图系统里面左边2种颜色，导出excle只有1种颜色

此主题相关图片如下：导出颜色有问题.png

1、你可以修改你drawcell里面的样式，对比度大一些。

2、如果还有问题，实例发上来测试。