以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  excel报表，模板中单位上标在生成报表后又恢复成一般字体了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69760)
--  作者：dtcaoqian
--  发布时间：2015/6/10 14:28:00
--  excel报表，模板中单位上标在生成报表后又恢复成一般字体了
excel报表，模板中单位上标在生成报表后又恢复成一般字体了。请问如何设置。
如 mg/m3   的3
--  作者：大红袍
--  发布时间：2015/6/10 14:34:00
--  

 生成以后，重新用代码对单元格进行设置

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
ws.Cells(1,1).font.Superscript = True
app.visible = True
--  作者：dtcaoqian
--  发布时间：2015/6/10 22:14:00
--  
先谢谢，但我觉得这个只能对整个单元格中的字符进行设置，而不能设置指定某个字符设置。此外我觉得，这样似乎会影响执行速度。
--  作者：大红袍
--  发布时间：2015/6/10 22:19:00
--  

单元格里面一样可以，如果不多，效率没什么问题。

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
ws.Cells(1,1).Characters(Start:=1, Length:=3).font.Superscript = True
app.visible = True
--  作者：大红袍
--  发布时间：2015/6/10 22:20:00
--  
 如果是对整个单元格设置，就可以整列整行设置的。
--  作者：dtcaoqian
--  发布时间：2015/6/11 13:16:00
--  
谢谢了，虽然麻烦一些，毕竟是提供了一个解决问题的思路。