[[20070606153056]] 『セル横に▼データー選択色付け』(マロン) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『セル横に▼データー選択色付け』(マロン)
 セルの横に▼を付ける事は出来るのですがその中のものを色付けしたい場合はどうするのですか?
 ▼=データー、入力規則でリストにし、元の値で範囲指定し作成
 セルで▼をクリックし項目から選んだ際に色も付けたいのですが・・・
 教えて下さい。

 (e2k)簡易リストボックス
http://www.excel.studio-kazu.jp/lib/e2k/e2k.html

 リスト元に付けた色も参照させたい と言う意味ですか?
 Excelでは、値のみしか参照できません

 リスト元から選択したら、色が付くようになら、条件付書式で出来ると思います

[[20020805175728]]『参照先のセルも同時に塗りつぶす』(コルドバ)

 (Ohagi)

ありがとうございます、分かりづらい質問に答えて頂き感謝です
添付されているところで色々見ましたが・・・分かりません・・・。(マロン)

 Excelでは、値のみしか参照できませんので、
 何か条件を付けて色を付ける事は出来ないのですか?

 >分かりません
 「何がどうなっていて、どうしたい」かは、画面が見えないので分かりませんし
 「何を見て、どこがどう分からないか」は、マロンさんにしか分かりません…(^_^;)
 出来たら、補足質問にお答えいただけるとありがたいのです

 (Ohagi)

 >何か条件を付けて色を付ける事は出来ないのですか?
 その条件を付ける事が出来ない素人です・・・。
 >「何がどうなっていて、どうしたい」かは、画面が見えないので分かりませんし
 セルをクリックすると▼が出てその▼をクリックすると範囲指定したデーターが表示され
 その中から一つ選びクリックするとセルの所に文字が表示されるという
 良く使われるものです
 その時に選択した際、セルにも色を付けたいのです。
 >「何を見て、どこがどう分からないか」は、マロンさんにしか分かりません…(^_^;)
 全部見ました、で、書いてあることが理解できなくて・・・すみません。
 (マロン)

 選んだリストによりセルに色をつけたいとのことですが、
 条件はその「リストの文字」になると思います。

 リストのデータが3つまでなら条件付書式にて色をつけることが可能ですが、
 4つ以上になってしまうとマクロになります。

 ちなみに条件付書式は下記を参考に。
http://www.excel.studio-kazu.jp/lib/e2qw/e2qw.html

 入力する際、
 ←先頭に半角スペースを入れると改行されますので見やすくなりますよ。 
 (勝手ながら上の文章、整形させていただきました)
 (gloomy)

 先に提示した「簡易リストボックス」の事であっているのですよね?

 >その条件を付ける事が出来ない素人です
 う…ん(^_^;)
 そういう意味ではなくて、「色を付けたい条件」です

 リスト内の「マロン」という値のセル「赤」で塗ったとします
 リストから選択するセルに条件付書式で「セルの値が」「次の値に等しい」「マロン」
 で、「赤」で塗る条件を付けてあげます

 色を付ける条件は「セルの値が"マロン"である」と言う事になりますよね?
 他にも「50以上の数値に色を付ける」「リストに含まれていない値に色を付ける」…等々
 も、色を付ける条件になると思います
 ご自分のなさりたい事を、具体例を挙げて説明できませんか?

 (Ohagi)


 よく解らないので質問です色をつけたい条件は
1リスト(▼をクリック)から選択したらどの様な値(文字)でも色をつける(すべて同じ色)
2              〃   値(文字)により色を変える(例イチゴ・赤 メロン・緑)
どちらでしょうか?
 (FF)

 リストの元の値が同じシートで、なおかつ名前を設定せずにセル範囲で指定されている前提ですが、
 以下のコードをシートモジュールに貼り付けではどうでしょうか。
 サンプルはA1に入力規則を設定しているものとしております。
 必要に応じて、3行目のセル番地(adrs)を書き換えてください。
 (ROUGE)
'----
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim txt As String, rng As Range, adrs As String
    adrs = "A1"
    If Intersect(Target, Range(adrs)) Is Nothing Then Exit Sub
    With CreateObject("VBScript.RegExp")
        .Pattern = "^=(\$?([A-Z]|[A-H][A-Z]|I[A-V])(\$?\d+)?(:\$?([A-Z]|[A-H][A-Z]|I[A-V])(\$?\d+)?)?)$"
        For Each rng In Intersect(Target, Range(adrs))
            If rng.Validation.Type = 3 Then
                If .test(rng.Validation.Formula1) Then
                    txt = .Replace(rng.Validation.Formula1, "$1")
                    If rng.Value = "" Then
                        rng.Interior.ColorIndex = xlNone
                    Else
                        rng.Interior.ColorIndex = _
                            Range(txt).Find(rng.Value, , , xlWhole).Interior.ColorIndex
                    End If
                End If
            End If
        Next
    End With
End Sub
 2007/6/7 10:40頃 ちょっと修整

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.