[已解决]请高手给个简单的代码

东方智彩

我想在表1的D2-IV2范围内的
           字体显示为10号字、红色、加粗、边框显示为绿色
在D3-IV203范围内的
           字体显示为9号字、兰色、正常、边框显示为粉色
      
          全部居中和最适合列宽显示

        请高手给个简单的代码，录制的代码一看就头痛，先谢谢啦！

最佳答案

月排行榜 / 总排行榜

amulee

2010-1-20 08:36

Sub 格式设置()
    With Range("D3:IV202")
        .Font.FontStyle = "常规"
        .Font.Size = 9
        .Font.ColorIndex = 5
        .Borders.ColorIndex = 7
    End With
    With Range("D2:IV2")
        .Font.FontStyle = "加粗"
        .Font.Size = 10
        .Font.ColorIndex = 3
        .Borders.ColorIndex = 10
    End With
    With Range("D2:IV202")
        .HorizontalAlignment = xlCenter
        .EntireColumn.AutoFit
    End With
End Sub

跳转到最佳答案楼层

amulee

Sub 格式设置()
    With Range("D3:IV202")
        .Font.FontStyle = "常规"
        .Font.Size = 9
        .Font.ColorIndex = 5
        .Borders.ColorIndex = 7
    End With
    With Range("D2:IV2")
        .Font.FontStyle = "加粗"
        .Font.Size = 10
        .Font.ColorIndex = 3
        .Borders.ColorIndex = 10
    End With
    With Range("D2:IV202")
        .HorizontalAlignment = xlCenter
        .EntireColumn.AutoFit
    End With
End Sub

东方智彩

谢谢amulee老师也手这么快,哈哈这回简单多了,看着也舒服!

amulee

学习VBA你可以从简化录制宏开始。

别怕烦，学会简化录制宏，对自己水平提高很有帮助。

老糊涂

学习了