以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117579) |
-- 作者:薛翁 -- 发布时间:2018/4/15 11:28:00 -- [求助] 求助 我使用的是开发版2018 我的Excel文件正文使用的文字大小是18,现需要对第6行开始,第5列中以"《"开头的单元格加黑 我的程序如下(用模板生成的Excel文件,再加工) Dim fl As String = "E:\\账页.xls" Dim Book1 As New
XLS.Book(fl) \'定义一个Excel工作簿 Dim Sheet As
XLS.Sheet = Book1.Sheets(0) \'引用工作簿的第一个工作表 Dim Style As
XLS.Style = Book1.NewStyle \'定义样式 Style.FontBold =
True \' 加粗 For i As Integer =
5 To sheet.Rows.Count - 1 If
sheet(i,4).Text Like "《*" then Sheet(i,4).Style = Style Sheet(i,5).Style = Style \'第5·6两列加粗 End If Next 运行后确实实现了应该突出的内容加粗变黑的要求,但是字号变小了,大小为12 如何能保持原来字体大小,或者加入怎样的代码设置字体大小。 再请教一下,就以上这种模式,如何用代码设置斜体和下划线。 谢谢赐教! |
-- 作者:有点甜 -- 发布时间:2018/4/15 12:28:00 -- Dim Style As XLS.Style = Book1.NewStyle \'定义样式
http://www.foxtable.com/webhelp/scr/0494.htm
|