任意の行でダブルクリックした時の動作マクロがわかりません

ＡシートのＡ列には任意の番号が振ってあります。このとき、Ａシートの任意の行で
ダブルクリックをしたときに、そのダブルクリックした時の同じ行のＡ列の番号を
拾って、ＢシートのＩ７セルにその数字を入力するマクロを作りたいです。
その任意の範囲は、Ａ３～Ｒ１０２の範囲です。ご教授いただければ幸いです；

No.1 ベストアンサー 回答者： hallo-2007 回答日時： 2015/07/13 19:34

Aシートのシート名のタブを右クリック

コードの表示をクリック
VBエディターが起動したら

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("Bシート").Range("I7").Value = Range("A" & Target.Row).Value
End Sub
張り付けて、閉じてみてください。

この回答へのお礼

ご回答ありがとうございます！！
迅速かつ適切で完璧な動作に感動しました；；
感謝いたします！！

お礼日時：2015/07/13 19:45

No.2 回答者： tom04 回答日時： 2015/07/13 19:40

こんばんは！

「A」Sheetのシートモジュールにしてみてください。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A3:R102")) Is Nothing Then Exit Sub
Cancel = True
Worksheets("B").Range("I7") = Cells(Target.Row, "A")
End Sub

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

ご回答ありがとうございます！！範囲までご指定していただいていたのですね；；　完璧な上に完璧でした；；

お礼日時：2015/07/13 21:17