带有边框的运行时错误'438'

我有以下代码，这符合罚款。 然而，当它运行时，它会添加薄边框，但厚边框给我一个Run-time 438 error 。

  Border = ActiveSheet.Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row Range("A3:H" & Border).Select With Selection.Borders .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With Range("A3:H" & Border).BorderAround_ Weight = xlThick 

我的目标是提供围绕所有单元格的边框，然后在边缘周围设置厚边框。 任何帮助将是伟大的。 谢谢！

Answer 1

问题在于BorderAround 方法的语法风格和Border 对象之间的区别。 权Weight参数是一个内部参数指定，而不是一个属性（我希望我描述正确！）。

 Dim border As Long border = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row With Range("A3:H" & border).Borders .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With Range("A3:H" & border).BorderAround Weight:=xlThick 

注意当给BorderAround分配权重时使用冒号等于。