office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

VBA設置單元格顔色字體

2020-05-28 08:00:00
zstmtony
原創
8225

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


ActiveSheet.Range("A1:B5").Interior.ColorIndex = 2
ActiveSheet.Range("A1:B5").Borders.LineStyle = xlContinuous
ActiveSheet.Range("A1:B5").HorizontalAlignment = Excel.xlCenter
ActiveSheet.Range("A1:B5").Font.Name = "宋體"

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


分享