请问用Delphi可以对excel中的某个字段的某一段文字设置字体嘛?(200)

  • 主题发起人 主题发起人 jacknes111
  • 开始时间 开始时间
J

jacknes111

Unregistered / Unconfirmed
GUEST, unregistred user!
各位大虾.请问用Delphi可以对excel中的某个字段的某一段文字设置字体嘛? 怎样设置....麻烦告诉下,先在这谢谢拉.
 
遇到这种问题,请用excell的宏来解决查看代码如何编写,例如我在某个单元格填写了一段文字asdfaadf,然后把前几个字节的颜色改变,产生如下代码: Range("A1").Select ActiveCell.FormulaR1C1 = "asdfadf" With ActiveCell.Characters(Start:=1, Length:=3).Font .Name = "ËÎÌå" .FontStyle = "³£¹æ" .Size = 12 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 5 End With With ActiveCell.Characters(Start:=4, Length:=4).Font .Name = "ËÎÌå" .FontStyle = "³£¹æ" .Size = 12 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With---------------------------录制宏的方法1.工具/宏/录制新宏2.进行excell操作3.工具/宏/停止录制4. alt+F11,查看宏代码
 
同上 (*^__^*) 嘻嘻……
 
用delphi怎么写.................
 
怎样设置当前的ActiveCell.Characters(Start:=1, Length:=3).Font这句怎么翻译。。。。
 
ActiveCell.Characters(1,1).Font
 
后退
顶部