对Excel单元格进行深度编程！

Question

我不明白为什么要这样，但是我们头要求这样：在一个Excel单元格中输入一句话，然后要对这句话的不同字进行不同的设置。例如：在一个Excel单元格中输入“你好中国”这句话，然后要把“你好”设置成黑体，把“中国”设置成红色。请教各位高手，该怎样做，最好有完整代码！！谢谢，万分感谢！急用啊！

Answer 1

Range("C3").Select
    ActiveCell.FormulaR1C1 = "sdfds"
    With ActiveCell.Characters(Start:=1, Length:=2).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:=3, Length:=1).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:=4, Length:=1).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:=5, Length:=1).Font
        .Name = "ËÎÌå"
        .FontStyle = "³£¹æ"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 46
    End With
    Range("E8").Select

Answer 2

工具----宏-----录制新宏载excel中设置字体字号工具----宏-----录制新宏---停止录制
alt+f11

Answer 3

your boss is very 强!!!