Foxtable(狐表)用户栏目专家坐堂 → excel报表给符合条件的记录添加删除线效果


  共有1448人关注过本帖树形打印复制链接

主题:excel报表给符合条件的记录添加删除线效果

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:113611 积分:578586 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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)
sheet(startRow + i, startCol + 1).Style = Style

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:113611 积分:578586 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/2/28 13:53:00 [显示全部帖子]

Style.Font New Font("宋体",12,FontStyle.Underline)

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:113611 积分:578586 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/2/28 14:21:00 [显示全部帖子]

需要同时把文字加粗:http://www.foxtable.com/webhelp/topics/0494.htm

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:113611 积分:578586 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/3/1 11:04:00 [显示全部帖子]

Dim 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

 回到顶部