Почему ошибка в этом коде 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)