Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10949 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【19057】Setの使い方について カド 04/10/20(水) 12:29 質問[未読]
【19059】Re:Setの使い方について ichinose 04/10/20(水) 13:13 回答[未読]
【19061】Re:Setの使い方について IROC 04/10/20(水) 13:15 回答[未読]
【19070】Re:Setの使い方について カド 04/10/20(水) 20:29 お礼[未読]
【19057】Setの使い方について
質問  カド  - 04/10/20(水) 12:29 -
引用なし
パスワード
   以下のコードを実行すると、”selectメソッドの失敗”というエラーがでます。
処理シートの追加コードを削除すれば出ません。
どうしてなのでしょうか？


Sub ファイル読込()

　　Set ddd99 = Rows("12:16")

'処理シートの追加***********************

　Set ws = Worksheets.Add _
　　　(after:=Worksheets(Worksheets.Count))
　ws.Name = "処理シート"
'***************************************
　　
　　ddd99.Select 'コピー範囲　　　　　　　　←ここでエラーが出る
　　
End Sub
【19059】Re:Setの使い方について
回答  ichinose  - 04/10/20(水) 13:13 -
引用なし
パスワード
   ▼カド さん：
こんにちは。

>以下のコードを実行すると、”selectメソッドの失敗”というエラーがでます。
>処理シートの追加コードを削除すれば出ません。
>どうしてなのでしょうか？
>
>
>Sub ファイル読込()
>
>　　Set ddd99 = Rows("12:16")
>
>'処理シートの追加***********************
>
>　Set ws = Worksheets.Add _
>　　　(after:=Worksheets(Worksheets.Count))
>　ws.Name = "処理シート"
>'***************************************
　　 ddd99.Parent.Select 'これ入れてください　　
>　　ddd99.Select 'コピー範囲　　　　　　　　←ここでエラーが出る
>　　
>End Sub
【19061】Re:Setの使い方について
回答  IROC  - 04/10/20(水) 13:15 -
引用なし
パスワード
   >　Set ddd99 = Rows("12:16")
マクロを実行したときのアクティブシートの
Rangeがセットされているからです。
【19070】Re:Setの使い方について
お礼  カド  - 04/10/20(水) 20:29 -
引用なし
パスワード
   ichinoseさん
IROCさん

回答ありがとうございます。
理解できました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10949 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free