VBA设置单元格格式

Option Explicit
Sub setFormat()
    Dim SelectionCell As Range
    Set SelectionCell = Worksheets("Sheet1").Range("A1:D4")
    With SelectionCell
         .Borders.Weight = 4
         .Font.Size = 10
         .Font.Name = "宋体"
         .Interior.ColorIndex = 34
    End With
End Sub


郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。