共9 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：excel报表给符合条件的记录添加删除线效果
1楼
xxcwdlwgo 发表于：2025/2/28 13:31:00excel报表给符合条件的记录添加删除线效果
代码如下：sheet(startRow + i, startCol + 1).Style.Font.Style = FontStyle.Strikeout
报错，只读
如何修改？
2楼
有点蓝 发表于：2025/2/28 13:39:00参考：http://www.foxtable.com/webhelp/topics/1146.htm
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.Font = Dim fnt As New Font("宋体",12,FontStyle.Underline)
Style.Font = Dim fnt As New Font("宋体",12,FontStyle.Underline)
sheet(startRow + i, startCol + 1).Style = Style
3楼
xxcwdlwgo 发表于：2025/2/28 13:51:00
此主题相关图片如下：微信图片_20250228134913.png
存盘时报错
4楼
有点蓝 发表于：2025/2/28 13:53:00Style.Font = New Font("宋体",12,FontStyle.Underline)
5楼
xxcwdlwgo 发表于：2025/2/28 14:04:00谢谢大师，问题已解决
6楼
xxcwdlwgo 发表于：2025/2/28 14:14:00就是感觉删除线细了，不明显，能否同时加粗呢
7楼
有点蓝 发表于：2025/2/28 14:21:008楼
xxcwdlwgo 发表于：2025/3/1 10:43:00程序运行此此，报“未将对象引用设置到对象的实例。”
For c1 As Integer = startCol To startCol + 10 ' 遍历所有列
Dim cell As XLS.Cell = sheet(startRow + i, c1)
If cell.Style Is Nothing Then
cell.Style = book.NewStyle() ' 如果单元格没有样式,则创建新样式
End If
cell.Style.BorderLeft = XLS.LineStyleEnum.Thin ' 左边框
cell.Style.BorderRight = XLS.LineStyleEnum.Thin ' 右边框
cell.Style.BorderTop = XLS.LineStyleEnum.Thin ' 上边框
cell.Style.BorderBottom = XLS.LineStyleEnum.Thin ' 下边框
Next
9楼
有点蓝 发表于：2025/3/1 11:04:00Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.BorderLeft = XLS.LineStyleEnum.Thin ' 左边框
Style.BorderRight = XLS.LineStyleEnum.Thin ' 右边框
Style.BorderTop = XLS.LineStyleEnum.Thin ' 上边框
Style.BorderBottom = XLS.LineStyleEnum.Thin ' 下边框
For c1 As Integer = startCol To startCol + 10 ' 遍历所有列
sheet(startRow + i, c1).Style = Style
Next
共9 条记录, 每页显示 10 条, 页签:
[1]