运行时错误'1004' Range.boarders

Question

收到与此代码段有关的错误。我正在使用 Excel 2010 工作表中的代码，它可以在 Excel 2013 计算机上正常工作。我所有的库都已正确更新，我们不确定为什么这似乎不向前兼容。

With Me.Range("T3:Y196")

    .borders(xlEdgeBottom).Weight = xlThick
    .borders(xlEdgeLeft).Weight = xlThick
    .borders(xlEdgeRight).Weight = xlThick    '<--- error here
    .borders(xlEdgeTop).Weight = xlThick      '<--- once above code is commented out error occurs here

End With

这里也收到错误：

With Range(ConvertColumnNumberToLetter(questionTextCol - 1) & CStr(myRow) & ":" & ConvertColumnNumberToLetter(instructionsCol) & CStr(myRow)).borders(xlEdgeTop)
'above Range gives same result as "T3:Y196" but I hard coded it to do some testing in the previous With Statement
    .LineStyle = xlContinuous    '<--- Error
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlMedium           '<--- Error
End With

现在，.LineStyle 和 .Weight 都可以在代码的其他区域工作，所以我们不知道该怎么做。

当我录制一个宏时，我得到了这个：

With Selection.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlMedium
End With

当我在其中添加范围时，它可以完美地工作（同样这是在一张干净的纸上）：

With Range("C2:I20")
    .Borders(xlEdgeBottom).Weight = xlMedium
    .Borders(xlEdgeRight).Weight = xlMedium
    .Borders(xlEdgeLeft).Weight = xlMedium
    .Borders(xlEdgeTop).Weight = xlThick
End With

任何帮助将不胜感激。谢谢！

Answer 1

我不知道这是否会有所帮助，但不要与 Me.Range 一起使用，而是尝试设置一个工作表对象并从那里开始工作。我倾向于以这种方式减少故障。例子

    Dim TheSheet as Worksheet
    Set TheSheet = Sheets("Your Sheet Name")
    With TheSheet.Range("T3:Y196")
         .borders(xlEdgeBottom).Weight = xlThick
         .borders(xlEdgeLeft).Weight = xlThick
         .borders(xlEdgeRight).Weight = xlThick    '<--- error here
         .borders(xlEdgeTop).Weight = xlThick  
    End With

我唯一能想到的另一件事是合并单元格问题，其中一半单元格在设定范围内，而一半单元格不在。