Excel VBA質問箱 IV

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

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


48715 / 76732 ←次へ | 前へ→

【32948】Re:貼り付けられなくなってしまいました。
回答  Kein  - 05/12/27(火) 22:36 -

引用なし
パスワード
   "合計"ということから推測すると、そのセルには SUM関数などの数式が入力されて
いるのではないでしょーか ? それなら Calculateイベント が適切と思います。
例えば・・

Private Sub Worksheet_Calculate()
  Dim Col As Long

  With Range("合計")
    Select Case .Value
     Case Is = 0: Col = -4142
     Case Is < 20: Col = 3
     Case Is < 30: Col = 6
     Case Is >= 30: Col = -4142
    End Select
    With .Interior
     .ColorIndex = Col
     .Pattern = xlSolid
    End With
  End With
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 お礼

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