'设置Excel工作簿字体为Times New Roman，大小为10
Sub opena()
Dim sht As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.Open Filename:="C:\test.xlsx"
For Each sht In Sheets
sht.Activate
Cells.Select
With Selection.Font
.Name = "Times New Roman"
.Size = 10
End With
Range("a1").Select
Next
Sheets(1).Select
Range("a1").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox ("完成")
End Sub
VBA实例03：批量修改Excel文件字体
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
- 文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
推荐阅读更多精彩内容
- 有时，我们需要将一个excel工作薄里的每张工作表，单独存为一份工作簿。如果只有一两张工作表倒也没什么，如果一个工...
- 今天的这个实例来自公号的一位粉丝，如下图： 这里有若干份同样表格，但是不同内容的word文档。需求是：将所有的wo...
- 今天分享的一个实例是：按指定字段分类批量提取内容。 问题描述 这个是之前帮一个网友朋友解决的问题，可能其他朋友也会...
- 批量插入、删除表格中的空行 日常工作中有时候需要插入大量的行做数据处理，或者是遇到导出的excel数据表、收到的e...
