求助：能否用Excel接口实现在一个单元格内写入不同的字体？

Question

本帖最后由 yayiba2020 于 2012-01-16 19:30:22 编辑

Answer 1

以下是 Excel 宏里的一些代码，可能对你有帮助，，，Sub Macro1()
'
' Macro1 Macro
' 宏由 beifang1986 录制，时间: 2012-1-18
''
    Range("A4").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "（共27人） 。"
    With ActiveCell.Characters(Start:=1, Length:=9).Font
        .Name = "宋体"
        .FontStyle = "常规"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:=10, Length:=2).Font
        .Name = "隶书"
        .FontStyle = "加粗"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 3
    End With
    With ActiveCell.Characters(Start:=12, Length:=4).Font
        .Name = "宋体"
        .FontStyle = "常规"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("A5").Select
End Sub