Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6655 / 76734

←次へ　｜　前へ→


	【75678】ﾀﾞﾌﾞﾙｸﾘｯｸでｼｰﾄ移動

hamako - 14/6/12(木) 19:55 -


	引用なし

	パスワード

初めて利用します。よろしくお願いします。
★やりたい事★★★★★★★
エクセルは2010使用。
1.シート1のA1をダブルクリックするとシート2移動→シート2で選択したセルをダブルクリックすると
選択したセルの内容がシート1のA1に入る。
2.シート1のB1をダブルクリックすると今度はシート3に移動→シート3で選択したセルをダブルクリックすると
選択したセルの内容がシート1のB1に入る。
★★★★★★★★★★★★★★

1.については Alt＋F11の画面の
「ThisWorkbook」の中に下記を入れたらできました。
（よくわからずネットからコピペしたらできてしまいました）

Dim ToCell As Range
Const shName2 As String = "シート2"

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Sh Is Sheets(shName2) Then
If ToCell Is Nothing Then
MsgBox "先に転記先のセルをクリックしてから、このシートでダブルクリックしてください"
Exit Sub
End If
ToCell.Value = Target.Value
Application.Goto ToCell
Set ToCell = Nothing
Else
Set ToCell = Target
Sheets(shName2).Activate
End If
End Sub

しかし、
これだと1.は私の望み通りの事ができるのですが
シート1内のセルをダブルクリックするとすべてシート2に飛んでしまうのです。
Ｂ１をダブルクリックした場合はシート３に飛んで2.のような事をしたいのです。
さらに欲をいうと
シート１のＡ１、Ｂ１以外のセルをダブルクリックした場合は
他のシートに飛ばないようにしたいです。

お手数ですがご教授ください。

7 hits

▼

【75678】ﾀﾞﾌﾞﾙｸﾘｯｸでｼｰﾄ移動 hamako 14/6/12(木) 19:55

≪