Excel中的字体如何编程设置？？？

Question

Excel中的字体如何编程设置？？？

Answer 1

With Selection.Font
        .Name = "楷体_GB2312"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With

Answer 2

Range("A1:B6").Select
    With Selection.Font
        .Name = "楷体_GB2312"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("C7:D12").Select
    With Selection.Font
        .Name = "隶书"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With