Excel VBA質問箱 IV

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

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


48926 / 76732 ←次へ | 前へ→

【32732】Re:複数の条件を設定してセルに色を付けたい
回答  Kein  - 05/12/21(水) 13:56 -

引用なし
パスワード
   イベント発生を許可するセルを、複数の範囲(仮にA1:A10)にしたければ

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim Co As Integer
 Dim C As Range

 If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
 For Each C In Target
   Select Case C.Value
    Case "A": Co = 3
    Case "B": Co = 5
    Case "C": Co = 6
    Case "D": Co = 10
    Case Else: Co = 0
   End Select
   C.Offset(, 1).Resize(, 5).Interior.ColorIndex = Co
 Next
End Sub

などとします。

0 hits

【32723】複数の条件を設定してセルに色を付けたい SWX 05/12/21(水) 12:15 質問
【32724】Re:複数の条件を設定してセルに色を付けたい Statis 05/12/21(水) 12:24 発言
【32727】Re:複数の条件を設定してセルに色を付けたい SWX 05/12/21(水) 12:54 お礼
【32731】Re:複数の条件を設定してセルに色を付けたい RIVER 05/12/21(水) 13:40 質問
【32732】Re:複数の条件を設定してセルに色を付けたい Kein 05/12/21(水) 13:56 回答
【32742】Re:複数の条件を設定してセルに色を付けたい RIVER 05/12/21(水) 14:42 お礼

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