Excel VBA質問箱 IV

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

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


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

12845 / 76734

←次へ　｜　前へ→


	【69403】Re:エラー6が出ました。助けてください。

みそじのおじさん - 11/7/6(水) 7:04 -


	引用なし

	パスワード

おはようございます。 >次の「Sheets(1).Range(Cells(7, 15), Cells(Xia, 15)).Copy」を CellsもRangeも、その前を省略すると標準モジュールにコードを書いたなら→アクティブシートが対象シートモジュールにコードを書いたなら→そのシートが対象になります。ですので、RangeはSheets(1)を指定しているのに、Cellsのほうは対象が Sheets(1)になっていない為にそのエラーが発生します。 Sheets(1).Range(Sheets(1).Cells(7, 15), Sheets(1).Cells(Xia, 15)).Copy の様に省略せずに指定します。コードが長くなるのが嫌ならば、下記の様な書き方を使います。　　Dim wh As WorkSheet 　　Set wh = WorkSheets(1) 　 'Set wh = WorkSheets("シート名") 　　wh.Range(wh.Cells(7, 15), wh.Cells(Xia, 15)).Copy 　　　　Set wh = Nothing