为什么这个VBA代码中的错误？

Question

当我运行此VBA代码时，出现错误。

Option Explicit
Sub CreateBorder()
ActiveCell.CurrentRegion.BorderAround
LineStyle:=xlDot, Weight:=xlThick, Color=RGB(255,0,0)
End Sub

错误似乎出现在Sub CreateBorder（）行中。问题是什么？

Answer 1

有两个问题：

• 您不能跨两行拆分语句（除非您在第一行末尾使用_）
• 参数名称必须由:=（您使用Color=...）
后跟

所以它可以是：

ActiveCell.CurrentRegion.BorderAround LineStyle:=xlDot, Weight:=xlThick, Color:=RGB(255, 0, 0)

或

ActiveCell.CurrentRegion.BorderAround _
        LineStyle:=xlDot, Weight:=xlThick, Color:=RGB(255, 0, 0)