Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5457 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【50602】Selectメソッドの失敗 Misako 07/8/4(土) 7:44 質問[未読]
【50603】Re:Selectメソッドの失敗 ichinose 07/8/4(土) 7:54 発言[未読]
【50676】Re:Selectメソッドの失敗 Misako 07/8/8(水) 23:12 お礼[未読]
【50602】Selectメソッドの失敗
質問  Misako  - 07/8/4(土) 7:44 -
引用なし
パスワード
   質問させていただきます

標準モジュールのこのコードは動作しますが
Sub Select_A()
　Sheets("一覧表").Activate
　Range("C5").Select
End Sub

Sheet1に同じコードを書いてもエラー「実行時エラー1004」(セレクトメッソドが失敗しました)が出ます。
どこが問題なのでしょうか？
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　 Sheets("一覧表").Activate
　 Range("C6").Select
End Sub
【50603】Re:Selectメソッドの失敗
発言  ichinose  - 07/8/4(土) 7:54 -
引用なし
パスワード
   ▼Misako さん：
おはようございます。
以前も同じ質問がありました。

>
>標準モジュールのこのコードは動作しますが
>Sub Select_A()
>　Sheets("一覧表").Activate
>　Range("C5").Select
>End Sub
>
>Sheet1に同じコードを書いてもエラー「実行時エラー1004」(セレクトメッソドが失敗しました)が出ます。
>どこが問題なのでしょうか？
>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 　 with Sheets("一覧表")
　　　 .Activate
　　　.range("c6").Select
　　　 end with

>End Sub

にしてください。

理由は、

www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=46598;id=excel#46617

↑この過去ログから、解明してください。
【50676】Re:Selectメソッドの失敗
お礼  Misako  - 07/8/8(水) 23:12 -
引用なし
パスワード
   ▼ichinose さん：

お礼が遅くなりました。
よく理解できました。これからもよろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5457 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free