如何为整个工作簿设置字体和大小而不是逐页设置？答案

【问题标题】：How to setup font and size for entire workbook instead of sheet by sheet?如何为整个工作簿设置字体和大小而不是逐页设置？
【发布时间】：2015-12-02 17:40:54
【问题描述】：

我希望我的宏更新整个工作簿的字体、大小和垂直对齐，但我能找到的只是逐页执行的选项。这不是太麻烦，但我想知道您是否不能全局设置这些并使用 1 个命令更新整个工作簿。

Sub SetFormat()
    With Sheets(1)
        .Cells.Font.Name = "Segoe UI"
        .Cells.Font.Size = 10
        .Cells.VerticalAlignment = xlCenter
    End With
End Sub

【问题讨论】：

您可以在您编写的代码周围添加一个循环，并让它遍历每张纸。

标签： excel vba

【解决方案1】：

如果这适合您，您可以在 Styles 上工作。更改工作簿的默认样式非常快，但可能会产生副作用。试试看。

With ActiveWorkbook.Styles("Normal").Font
    .Name = "Aharoni"
    .Size = 11
End With

【讨论】：

有什么副作用？
我发现已经格式化为工作簿默认字体和大小的文本已更新。行号和列字母字体也会受到影响。

【解决方案2】：

此代码应遍历工作簿中的每个工作表并更改属性。

Sub SetFormat()
Dim ws as Worksheet
    For Each ws in Worksheets
         With ws
            .Cells.Font.Name = "Segoe UI"
            .Cells.Font.Size = 10
            .Cells.VerticalAlignment = xlCenter
         End With
    Next ws
End Sub

【讨论】：

该方法的问题是工作簿默认不变，新添加的工作表将使用默认字体。