使用VBA将边框应用于单个单元格

Question

我要遍历一张纸并一次打印一个单元格，并且要建立一个更好的格式，我需要动态添加边框等内容。

我对Range.Borders很熟悉，但是例如可以使用VBA在单元格的左边缘添加一个虚线边框吗？

Answer 1

使用示例

 ActiveCell.Borders(xlEdgeLeft).LineStyle = xlContinuous 

您可以将xlContinuous替换为xlLineStyle枚举

这是Microsoft Docs XlLineStyle Enumeration

中的列表

名称=枚举值说明：

xlContinuous = 1 连续行。

xlDash = -4115 虚线。

xlDashDot = 4 （点划线）。

xlDashDotDot = 5 短划线后跟两个点。

xlDot = -4118 虚线。

xlDouble = -4119 双行。

xlLineStyleNone = -4142 无行。

xlSlantDashDot = 13 斜线。