如何使用 vba 设置字体大小（附示例）

您可以使用 VBA 中的Font.Size属性来获取和设置 Excel 中特定单元格的字体大小。

例如，您可以使用以下宏创建一个消息框，显示单元格A1的当前字体大小：

 SubGetFontSize ()
MsgBox Range(" A1 ").Font.Size
End Sub

或者您可以创建以下宏将单元格A1的字体大小设置为20 ：

 Sub SetFontSize()
Range(“ A1 ”). Font.Size = 20
End Sub

或者您可以创建以下宏，使A1:C1范围内每个单元格的字体大小等于20 ：

 Sub SetFontSize()
Range(" A1:C1 ").Font.Size = 20
End Sub

以下示例演示如何使用 VBA 以及 Excel 中的以下数据集获取和设置字体大小：

示例 1：使用 VBA 获取字体大小

我们可以创建以下宏来创建一个消息框，显示单元格A1的当前字体大小：

 SubGetFontSize ()
MsgBox Range(" A1 ").Font.Size
End Sub

当我们运行这个宏时，我们会收到以下输出：

消息框告诉我们单元格A1当前的字体大小为11 。

这是 Excel 中的默认字体大小。

示例 2：使用 VBA 设置特定单元格的字体大小

我们可以创建以下宏将单元格A1的字体大小设置为20 ：

 Sub SetFontSize()
Range(" A1 ").Font.Size = 20
End Sub

当我们运行这个宏时，我们会收到以下输出：

我们可以看到单元格A1的字体大小已更改为20 ，而所有其他单元格的字体大小保持不变。

示例 3：使用 VBA 设置一系列单元格的字体大小

我们可以创建以下宏来设置A1:C1到20范围内每个单元格的字体大小：

 Sub SetFontSize()
Range(" A1:C1 ").Font.Size = 20
End Sub

当我们运行这个宏时，我们会收到以下输出：

我们可以看到A1:C1范围内每个单元格的字体大小已更改为20 ，而所有其他单元格的字体大小保持不变。

注意：您可以在此处找到 VBA Font.Size属性的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何更改字体颜色
VBA：如何将字体设置为粗体
VBA：如何替换字符串中的字符