Question

我正试图从excel工作簿的CoverPage Sheet中选择执行。它打算在下一页选择一个单元格区域并做任何事情。

ThisWorkbook.Sheets("Purpose").Range(Cells(48, 1), Cells(48, 9)).Select

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

但是，当我打开“目的”表时，代码会运行。但是一旦我从封面上运行它就失败了。它与引用有关，我猜，但是我尝试了其他解决方案，我找不到它也行不通。

任何帮助都是适用的，史蒂芬

Answer 1

如果在运行宏时工作表名称Purpose未处于活动状态，则会出现错误，因为Excel无法在非活动工作表上Select范围。

修订：

With ThisWorkbook.Sheets("Purpose").Range(Cells(48, 1), Cells(48, 9))
    .Borders (xlEdgeBottom)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
End With

范围（）。选择并出错1004问题

1 个答案: