如何使用 vba 将文本居中(带有示例)
您可以使用 VBA 中的HorizontalAlignment和VerticalAlignment属性分别将 Excel 中特定单元格中的文本水平和垂直居中。
以下是在实践中使用这些属性的三种常见方法:
方法 1:使用 VBA 将文本水平居中
SubCenterText ()
Range(" A2:A11 ").HorizontalAlignment = xlCenter
End Sub
方法 2:使用 VBA 垂直居中文本
SubCenterText ()
Range(" A2:A11 ").VerticalAlignment = xlCenter
End Sub
方法 3:使用 VBA 水平和垂直居中文本
SubCenterText ()
Range(" A2:A11 ").HorizontalAlignment = xlCenter
Range(" A2:A11 ").VerticalAlignment = xlCenter
End Sub
以下示例展示了如何在 Excel 中使用以下数据集实际使用每种方法:
示例 1:使用 VBA 将文本水平居中
我们可以创建以下宏,将A2:A11范围内每个单元格中的文本水平居中:
SubCenterText ()
Range(" A2:A11 ").HorizontalAlignment = xlCenter
End Sub
当我们运行这个宏时,我们会收到以下输出:
请注意, A2:A11范围内每个单元格中的文本已水平居中。
示例 2:使用 VBA 垂直居中文本
我们可以创建以下宏,将A2:A11范围内每个单元格中的文本垂直居中:
SubCenterText ()
Range(" A2:A11 ").VerticalAlignment = xlCenter
End Sub
当我们运行这个宏时,我们会收到以下输出:
请注意, A2:A11范围内每个单元格中的文本已垂直居中。
示例 3:使用 VBA 水平和垂直居中文本
我们可以创建以下宏,将A2:A11范围内每个单元格中的文本水平和垂直居中:
SubCenterText ()
Range(" A2:A11 ").HorizontalAlignment = xlCenter
Range(" A2:A11 ").VerticalAlignment = xlCenter
End Sub
当我们运行这个宏时,我们会收到以下输出:
请注意, A2:A11范围内每个单元格中的文本已水平和垂直居中。
其他资源
以下教程说明如何在 VBA 中执行其他常见任务: