1

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

ただし、シート「目的」を開くとコードが実行されます。しかし、カバーページから実行すると失敗します。それは私が推測する参照と関係がありますが、私が見つけることができる他の解決策を試しましたが、うまくいきませんでした。

どんな助けでも感謝します、スティーブン

4

1 に答える 1

2

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
于 2013-11-04T17:23:59.113 に答える