Excel VBA質問箱 IV

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

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


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

【47736】Selectメソッドで失敗します コウ 07/3/21(水) 11:17 質問[未読]
【47737】Re:Selectメソッドで失敗します ウッシ 07/3/21(水) 11:42 発言[未読]
【47738】Re:Selectメソッドで失敗します りん 07/3/21(水) 11:43 回答[未読]
【47739】Re:Selectメソッドで失敗します コウ 07/3/21(水) 11:49 お礼[未読]

【47736】Selectメソッドで失敗します
質問  コウ  - 07/3/21(水) 11:17 -

引用なし
パスワード
   お世話になります。

Widows2000,Exel2000の環境で、下記のコードを実行するとエラーになります。

wb2.Worksheets(strSheetName2).Range(wb2.Worksheets(strSheetName2). _
  Cells(7, 1), wb2.Worksheets(strSheetName2).Cells(8, 2)).Select

※1つ目のブックのシートのマクロから、2つめのブックのシートの範囲指定
 をしたいのです。範囲指定したいセルには値は入っています。

もともと2つ目のブックのシートのソートをしたいのですが、うまくいかないので、
範囲指定の部分を試したのですがうまくいきません。

ご教授いただければ幸いです。

よろしくお願いいたします。

【47737】Re:Selectメソッドで失敗します
発言  ウッシ  - 07/3/21(水) 11:42 -

引用なし
パスワード
   こんにちは

Selectする必要が無い処理かと思います。
Selectしない書き方を習得した方がいいですよ。

もしSelectするとしたも、

Application.GoTo wb2.Worksheets(strSheetName2).Cells(7, 1).Riseize(2, 2)

のようにすればいいかと。

【47738】Re:Selectメソッドで失敗します
回答  りん E-MAIL  - 07/3/21(水) 11:43 -

引用なし
パスワード
   コウ さん、こんにちわ。

>wb2.Worksheets(strSheetName2).Range(wb2.Worksheets(strSheetName2). _
>  Cells(7, 1), wb2.Worksheets(strSheetName2).Cells(8, 2)).Select
>

>※1つ目のブックのシートのマクロから、2つめのブックのシートの範囲指定
> をしたいのです。範囲指定したいセルには値は入っています。
ソートをしたいだけならSelectは不要ですが、エラーの原因はSelectしたいセルのあるシートがアクティブでないからと思われます。

  With wb2.Worksheets(StrSheetName2)
   'Selectしたいセルのあるシートがアクティブでないとエラーになります
   .Activate
   .Range(.Cells(7, 1), .Cells(8, 2)).Select
  End With

【47739】Re:Selectメソッドで失敗します
お礼  コウ  - 07/3/21(水) 11:49 -

引用なし
パスワード
   ウッシさん、りんさん返信ありがとうございます。
教えていただいた方法でやってみます。

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