Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


48721 / 76736 ←次へ | 前へ→

【32946】貼り付けられなくなってしまいました。
質問  ろく  - 05/12/27(火) 21:07 -

引用なし
パスワード
   初めて質問します。
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

右クリックでコピーや切り取りは出来るんですが、貼り付けが出来ません。
どこに問題があるのか見当も付きません。
どなたか良い知恵があれば、教えてください。

0 hits

【32946】貼り付けられなくなってしまいました。 ろく 05/12/27(火) 21:07 質問
【32947】Re:貼り付けられなくなってしまいました。 やっちん 05/12/27(火) 21:55 回答
【32961】Re:貼り付けられなくなってしまいました。 ろく 05/12/28(水) 8:00 お礼
【32948】Re:貼り付けられなくなってしまいました。 Kein 05/12/27(火) 22:36 回答
【32949】Re:貼り付けられなくなってしまいました。 やっちん 05/12/27(火) 22:55 発言
【32962】Re:貼り付けられなくなってしまいました。 ろく 05/12/28(水) 8:04 お礼

48721 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free