Sub FontFormat()
With Range("B:B").Font
.Name = "Calibri"
.Size = 11
.ColorIndex = xlAutomatic
End With
End Sub
如果有许多这样的替换或需要对范围进行部分格式化,则使用VBA是合理的。例如,相隔一行的选定范围:
Sub FontFormat2()
Dim rRng As Range, i As Long
Set rRng = Selection
Application.ScreenUpdating = False
For i = 1 To rRng.Rows.Count Step 2
With rRng.Rows(i).Font
.Name = "Calibri"
.Size = 11
.ColorIndex = xlAutomatic
End With
Next i
Application.ScreenUpdating = True
End Sub
单元格中指定的字体格式是应用于整个单元格的格式。但!
您可以选择一段文本并为其设置自己的格式。在这种情况下,单元格的一般字体格式不会改变(但如果您选择的不是片段,而是整个文本,它会改变)。
示例中显示的格式是如何获得的?
我们编写任何文本,自行决定其格式。例如,对于所有字符(所有文本),我们设置字体
Arial 14
。完成编辑。在功能区上,单元格的字体类型可见 -Arial 14
。我们用字体复制另一个单元
Calibri 11
格,用我们的文本选择一个单元格,粘贴格式(同样可以使用“panicle” -格式根据示例)。这不会改变单元格中文本的外观,但文本的一般格式会变为Calibri 11
. 如果您在编辑模式下选择文本,功能区将显示Arial 14
。它被简单地对待。选择格式有问题的一列或单元格区域,然后手动更改格式选项 - 设置格式、大小、颜色。
用一个通用模块编写的小宏也可以做到这一点:
如果有许多这样的替换或需要对范围进行部分格式化,则使用VBA是合理的。例如,相隔一行的选定范围: