Excel VBA質問箱 IV

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

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


48916 / 76732 ←次へ | 前へ→

【32742】Re:複数の条件を設定してセルに色を付けたい
お礼  RIVER  - 05/12/21(水) 14:42 -

引用なし
パスワード
   ▼Kein さん:
ありがとうございます。大いに参考になりました。
またわからないことがあったときはよろしくお願いします。

>イベント発生を許可するセルを、複数の範囲(仮に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
>
>などとします。
2 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 お礼

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