[已解决]VBA设置EXCEL当前工作表，所有单元格格式。

yjwdjfqb

VBA设置EXCEL当前工作表，所有单元格格式。


设置当前工作表，所有单元格，文字对齐方式为居中、字体仿宋、三号、

请教VBA代码。

最佳答案

月排行榜 / 总排行榜

fjmxwrs

2013-11-26 21:10

也可以写在一起

1. Sub test()
   
2.     With ActiveSheet.Cells
   
3.         .HorizontalAlignment = xlCenter '水平居中
   
4.         .VerticalAlignment = xlCenter '上下居中
   
5.         .Font.Name = "仿宋_GB2312"
   
6.         .Font.Size = 14
   
7.     End With
   
8. End Sub

复制代码

跳转到最佳答案楼层

fjmxwrs

1. Sub test()
   
2.     With ActiveSheet.Cells
   
3.         .HorizontalAlignment = xlCenter '水平居中
   
4.         .VerticalAlignment = xlCenter '上下居中
   
5.     End With
   
6.     With ActiveSheet.Cells.Font
   
7.         .Name = "仿宋_GB2312"
   
8.         .Size = 14
   
9.     End With
   
10. End Sub
    

复制代码

fjmxwrs

也可以写在一起

1. Sub test()
   
2.     With ActiveSheet.Cells
   
3.         .HorizontalAlignment = xlCenter '水平居中
   
4.         .VerticalAlignment = xlCenter '上下居中
   
5.         .Font.Name = "仿宋_GB2312"
   
6.         .Font.Size = 14
   
7.     End With
   
8. End Sub

复制代码

yjwdjfqb

fjmxwrs 发表于 2013-11-26 21:10
也可以写在一起

谢谢版主的帮助！