□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| CELLsでApplication またはobject定義エラーとなる理由は | |
|---|---|
[196513] CELLsでApplication またはobject定義エラーとなる理由は- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ VBA初心者 -(2025/04/14(21:27)) □U R L/ シートモジュール（Worksheets("前回")）でのコマンドで 下記コードを実行すると Worksheets("前回").Activate Worksheets("今回").Activate Worksheets("今回").Range(Cells(2, 1), Cells(LastRow, 30)).Copy の時点で題目のエラーとなります 下記コードを変更して Worksheets("今回").Range(Worksheets("今回").Cells(2, 1), Worksheets("今回").Cells(LastRow, 30)).Copy または Worksheets("今回").Range("a2:aa1000").Copy の時はエラーとなりません 前もって Worksheets("今回").Activateとしており アクティブシートなので Worksheets("今回").Range(Cells(2, 1), Cells(LastRow, 30)).Copyは エラーとならないと思うのですが、 なぜでしょうか？ どなたかご教示頂ければ幸いです。 ++++++++++++++++++++ OS ⇒Windows 11 Version⇒Excel 2019 ++++++++++++++++++++ | |
[196514] Re[1]: CELLsでApplication またはobject定義エラーとなる理由は- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2025/04/14(23:31)) □U R L/ ＞アクティブシートなので
＞エラーとならないと思うのですが、
＞なぜでしょうか？
シートモジュールに書いた Cells(2, 1) は、
そのシート(前回）の Cells(2, 1) を意味します。つまり、
アクティブシート の Cells(2, 1) ではないのです。
なので、この記述は、括弧の外と中でシートがかみ合っていないので、エラーになります。
＞Worksheets("今回").Range(Cells(2, 1), Cells(LastRow, 30)).Copy | |
[196515] Re[2]: CELLsでApplication またはobject定義エラーとなる理由は- ■  / 記事引用/メール受信=OFF■
□投稿者/ VBA初心者 -(2025/04/14(23:38)) □U R L/ 半平太 さん ありがとうございました。 いくら別のシート名でアクティブにしても あくまで シートモジュールに書いた Cells(2, 1) は、 そのままではシート(前回）の Cells(2, 1)になるわけですね。 よくわかりました。 大変お世話になりました。 | |