|
よろしくお願いします。
コンテキストメニューからコピー貼り付けを行うとWorksheet_Changeの
下記のプログラムでブックが固まってしまいます。
Ctr+CでコピーしてCtr+Vで貼り付けても問題はなし、
当然通常のキーボードからの入力も問題はありませんが、コンテキストメニュー
からはコピー貼り付けだけが固まってしまいます。
ご指導の程よろしくお願いします。
Private Sub Worksheet_Change(ByVal Target As Range)
R = Target.Row
C = Target.Column
If (C = 1 And R >= 3) Or (C = 2 And R >= 3) Or (C = 3 And R >= 3) Or (C = 4 And R >= 3) Then
If Cells(R, 1) <> "" Then
Cells(R, 5) = Cells(R, 1) & RR
Cells(R, 6) = Cells(R, 1) & " " & Cells(R, 2) & " " & Cells(R, 3) & " " & Cells(R, 4)
Else
Cells(R, 5) = ""
Cells(R, 6) = Cells(R, 1) & " " & Cells(R, 2) & " " & Cells(R, 3) & " " & Cells(R, 4)
End If
end if
end sub
|
|