Excel VBA質問箱 IV

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

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


10938 / 13644 ツリー ←次へ | 前へ→

【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さん

回答ありがとうございます。
理解できました。

10938 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free