Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9874 / 76807

←次へ　｜　前へ→


	【72490】Re:sheet1のデータをsheet2に整形して抽出する方法

UO3 - 12/8/15(水) 22:40 -


	引用なし

	パスワード

▼タケルさん：

ループ構文の改善は、後回しにして

>
>　　 Sheets(2).Range(Cells(j, "A"), Cells(j + 5, "A")).MergeCells = True 'アプリケーション定義またはオブジェクト定義のエラー（上手く行く時もある）
>　　
>　　
>　　 Sheets(1).Range(Cells(i + 1, "E"), Cells(i + Y, "E")).Select 'アプリケーション定義またはオブジェクト定義のエラーが発生
>　　 Sheets(1).Range(Cells(i + 1, "H"), Cells(i + Y, "H")).Select

うっかりと、このような記述をしてしまい、悩む人が多いようですね。

Sheets(2).Range(

こは、Sheets(2)の領域の宣言をします。その詳細は (・・) のなかに記述していますと
こういうことを意味しています。
で、その (・・・・) の中ですが、このセルからこのセルまで　こういう記述ですよね。
でも、『このセル』って、どこのシートのセルでしょうか？
Cells(i + 1, "H")　も Cells(i + Y, "H"))　も、どこのシートということが明示的に
示されていませんね。
こういう場合、ＶＢＡは、標準モジュールであればアクティブシート、
シートモジュールであれば、そのモジュールが属しているシートと見なします。

そうしますと、標準モジュールの場合、Sheets(2)がアクティブシートなら結果オーライですが
それ以外がアクティブになっていると、
Sheets(2)のセル領域の規定で、その詳細は、Sheets(2)以外のここからここまで。
このような矛盾のある規定になりますのでアプリケーション定義エラーとなります。
(・・・・) の中のセルにも SHeets(2). とシート修飾することが必要です。

1 hits

▼

【72481】sheet1のデータをsheet2に整形して抽出する方法 タケル 12/8/15(水) 14:45