エクセル クリックした値を転記

こんにちは、値を転記するのに解らないので教えていただけますか？

画像のようにB列からI列の29行までデータがあります。

その中の一つをダブルクリックしたらその値を同じ行のK列に貼り付けたいと思います。
ダブルクリックする度に同じ動作をさせたいです。

またK列の値をダブルクリックしたらそのセルのみ空白に戻したいと思います。

他のシートや標準モジュールには既にマクロがたくさん書いてあるので、sheet2にのみ適用できると嬉しいです。

詳しい方、よろしくお願いいたします。

No.1 回答者： Qchan1962 回答日時： 2021/02/03 12:22

こんにちは、

https://oshiete.goo.ne.jp/qa/11915397.html
goodを頂き呼ばれましたでしょうか？

先のコードを改造すると
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B1:I29,K1:K29")) Is Nothing Then Exit Sub
Cancel = True
If Not Intersect(Target, Range("B1:I29")) Is Nothing Then
Range("K" & Target.Row).Value = Target.Value
Exit Sub
End If
If Not Intersect(Target, Range("K1:K29")) Is Nothing Then
Target.ClearContents
Exit Sub
End If
End Sub
こんな感じになります。
対象シートモジュールで

先のものと、今回のものを読み比べてください。
日もたっているので、簡単に理解できるのではないでしょうか。

Intersectに関しては、理解しておいた方が良いと思います。
http://officetanaka.net/excel/vba/tips/tips118.htm

この回答へのお礼

わっ　早速の回答を頂きありがとうございます。
おかげさまで一発で出来ました。

理解してない事を理解すれば一瞬で回答出来るって、凄いですね。

今はまだ結果が出てないので考える機会が少ないですが、もう少し落ち着いたら考えて見たいと思います。

いつも教えてくださり、ありがとうございます。

お礼日時：2021/02/03 12:32