Range（）。選擇並錯誤1004問題

Question

我正在嘗試從Excel工作簿的Coversheet 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