vba - 在宏中设置边框时出错

Question

我正在运行一个设置一组单元格格式的宏。

Public LastRow as Integer
Sub Formatting()
    LastRow = 20
    With ThisWorkbook.Sheets("Sheet1").Range("A15:" & "AA" & LastRow)
        .Borders.Weight = xlThin
    End With
End Sub

当我第一次运行宏时它工作但第二次我收到以下错误运行时错误'1004'：无法设置边框类的权重属性。

我现在也无法手动更改受影响单元格的边界。我不确定发生了什么。我正在运行 excel 2010

提前致谢，

Answer 1

一些事情

1. 不要Function为此使用 a。使用Sub. Function当你想退货时使用 a
2. 完全限定您的变量/对象
3. 我没有看到您设置LastRow任何地方的值。

尝试这个

Sub Formatting()
    Dim LastRow As Long
    LastRow = 20

    '~~> Change Sheet1 to the relevant sheetname or use Code Name
    With ThisWorkbook.Sheets("Sheet1").Range("A15:" & "AA" & LastRow)
        .Borders.Weight = xlThin
    End With
End Sub