VC如何设置Excel2003单元格内某个字的格式，比如单元格有'ABC'3个字，如何只给其中的'A'加下划线

[zuoluocs]

VC如何设置Excel2003单元格内某个字的格式，比如单元格有'ABC'3个字，如何只给其中的'A'加下划线，如何设置其中某些字的格式，哪位大哥帮忙解决下，小弟不胜感激。最好是VC，其他的有的话发过来参考下，网上实在找不到资料
Font可以改变整个单元格的字体格式，但是如何改变单元格内一部分内容的格式呐？？？

Font ft;
ft.AttachDispatch(m_ExlRge.GetFont());
ft.SetName(_variant_t("宋体"));//字体
ft.SetColorIndex(_variant_t((long)11));//字的颜色
ft.SetSize(_variant_t((long)12));//字号
ft.SetUnderline(_variant_t((long)2));//下划线

[csuyuanweiqingking]

这个之前还真没遇到过 和楼主一起求解

[zuoluocs]

多谢帮顶 再看一眼 睡觉去

[xiezonglin]

录制的宏经处理后是下面这样的

Sub 宏1()
'
' 宏1 宏
'

'
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "ABC"
    With ActiveCell.Characters(Start:=1, Length:=1).Font
        .Name = "宋体"
        .FontStyle = "常规"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleSingle
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
End Sub

从上面看
ft.AttachDispatch(m_ExlRge.GetFont());应该改成ft.AttachDispatch(m_ExlRge.Characters(1,1).GetFont());之类的,我没试过,自己找找看有没相关的类

[zuoluocs]

[Quote=引用 4 楼 xiezonglin 的回复:]

录制的宏经处理后是下面这样的VBScript code
Sub 宏1()
'
' 宏1 宏
'

'
Range("A1").Select
ActiveCell.FormulaR1C1 = "ABC"
With ActiveCell.Characters(Start:=1, Length:=1).Font
.Name = "宋体"
.Fo……
[/Quote]谢谢先，我试下

[zuoluocs]

还是不行，

[iqy]

做这个有什么意义，就直接在Excel里面设置就行了，

[zuoluocs]

[Quote=引用 7 楼 qinyi2010 的回复:]

做这个有什么意义，就直接在Excel里面设置就行了，
[/Quote]都想你这样就好了，哈哈