Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7 Home Premium : Excel 2013)
セルのコピーと貼付け
投稿日時: 17/11/14 22:42:11
投稿者: himajii3

B3:B300の範囲で、セルを右クリック(ダブルクリック)したら、上の行をコピーして
クリックしたセルに値を貼り付けるというのをしたいのですが、どのように書いたら
よろしいのでしょうか。

回答
投稿日時: 17/11/14 23:01:51
投稿者: ピンク

シートモジュールに
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Application.Intersect(Target, Range("B3:B300")) Is Nothing Then Exit Sub
    Target.Value = Target.Offset(-1).Value
    Cancel = True
End Sub

回答
投稿日時: 17/11/14 23:11:34
投稿者: ピンク

すみません、左クリック(ダブルクリック)を書いてしまいました。
>セルを右クリック(ダブルクリック)したら
右のクリック(シングル)でしたら
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
     If Application.Intersect(Target, Range("B3:B300")) Is Nothing Then Exit Sub
     Target.Value = Target.Offset(-1).Value
     Cancel = True
End Sub

投稿日時: 17/11/14 23:27:31
投稿者: himajii3

ピンク 様
 
ご回答ありがとうございました。
 
うまくいきました。
 
ありがとうございました。