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

Question

我希望我的宏更新整个工作簿的字体,大小和verticalaligment,但我能找到的所有选项都可以逐页完成.这不是太麻烦,但我想知道你是否不能全局设置这些并用1命令更新整个工作簿.

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

Answer 1

如果这适合你,你可以继续工作Styles.更改工作簿的默认样式非常快,但可能有副作用.试试吧.

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

Answer 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