以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/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     \'定义样式
Style.FontBold = True                 \' 加粗
style.Font = new Font("宋体", 15, FontStyle.Italic Or FontStyle.Underline)

 

http://www.foxtable.com/webhelp/scr/0494.htm