VBA設置單元格顔色字體

SUB 設置單元格顔色字體等()

ActiveSheet.Range("A1:B5").Font.Size = "12"

END SUB

相關蔘考

Sub 設置字體屬性() '利用with

    With ActiveWorkbook.Sheets(1).Range([a2], [a2].End(xlDown)).Font

        .Bold = True '加粗

        .Italic = True '傾斜

        .ColorIndex = 3 '紅色

        .Name = '微軟雅黑' '設定字體

        .Size = 21 '字體大小

        .Strikethrough = False '不要下劃線

        .Superscript = fasle '不要上標

        .Subscript = fasle '不要下標

        .Underline = xlUnderlineStyleDouble '指定雙下畵線

    End With

End Sub