![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
sheet1とsheet2 の2つのシートがあります。
sheet1のA1セルをダブルクリックすると、sheet2のA1セルへ移動させたいのですが、
下記のコードで実行すると、
'Range'メソッドは失敗しました:'_WorkSeet'オブジェクト
のエラーメッセージが表示されました。
どうぞアドバイスお願い致します。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("sheet2").Select
Range("Target.Address").Select
End Sub
No.2ベストアンサー
- 回答日時:
(1)("Target.Address").と””で囲んで,リテラルの文字列である「TargetAddress」という文字列にしてしまってはダメ。
変数のままで使う。(2)標準モジュールで
Sub test02()
Worksheets("Sheet2").Range("A1").Select
End Sub
はエラー。
RangeのSelectはActivateかSelectかしておくと
Sub test02()
Worksheets("Sheet2").Activate
Worksheets("Sheet2").Range("A1").Select
End Sub
ならOK。
結局
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("sheet2").Activate
Sheets("sheet2").Range(Target.Address).Select
End Sub
Sheets("sheet2").はActiveSheet.でもよい。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBA For Each Next構文...
-
Excel2000 VBA ダブルクリック...
-
EXCEL 行内のデータを2行に分け...
-
EXCELで2つの数値のうち大きい...
-
エクセルで二つの数字の小さい...
-
Excelで隣のセルと同じ内容に列...
-
エクセル 文字数 多い順 並...
-
Excelで半角の文字を含むセルを...
-
エクセルでオートフィルタのボ...
-
エクセル(勝手に太字になる)
-
PowerPointで表の1つの列だけ...
-
エクセルで最初のスペースまで...
-
エクセルで時刻(8:00~20:00)...
-
エクセルの列を範囲選択しての...
-
Excel関数で、範囲内の最後のセ...
-
文字列に数字を含むセルを調べたい
-
2つのエクセルのデータを同じよ...
-
お店に入るために行列に並んで...
-
エクセル、11と1の区別
-
SUMIFとCOUNTIFを合わせたよう...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの表示形式を保ったま...
-
excelのマクロでrangeの選択が...
-
エクセル 1つのセル毎に入力...
-
Excel2000 VBA ダブルクリック...
-
EXCEL 行内のデータを2行に分け...
-
Excel VBA For Each Next構文...
-
Gメールの内容をスプレッドシ...
-
vbaにて並べ替えしたい。
-
エクセルで別シートにある各々...
-
VBA重複チェック
-
#N/A表示を空白にしたいのです...
-
VLOOKUPで行き詰まったので、教...
-
他のブックでマクロを実行する...
-
エクセルでこのような事できま...
-
【Excel関数】商品コードと商品...
-
エクセルのフォームのVBAについて
-
VBA:値をシート間で転記する方法
-
Excel VBAのComboboxのRemoveItem
-
EXCELで2つの数値のうち大きい...
-
Excelで隣のセルと同じ内容に列...
おすすめ情報