|
初めて質問します。
Worksheet_SelectionChange でシートのデータが書き換えられたときに特定のセル(ここでは合計ですが)の値が一定の範囲を超えた場合にセルの色を黄色、赤に変えるようにしたところ、コピー&ペーストが出来なくなりました。
一応、その部分を張っておきます。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case [合計]
Case Is = 0
With [合計].Interior
.ColorIndex = xlNone
.Pattern = xlSolid
End With
Case Is < 20
With [合計].Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Case Is < 30
With [合計].Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Case Is >= 30
With [合計].Interior
.ColorIndex = xlNone
.Pattern = xlSolid
End With
End Select
End Sub
右クリックでコピーや切り取りは出来るんですが、貼り付けが出来ません。
どこに問題があるのか見当も付きません。
どなたか良い知恵があれば、教えてください。
|
|