[[20060615184852]]　『入力規則のプルダウン』（ミキ）　ページの最後に飛ぶ

『入力規則のプルダウン』（ミキ）

はじめて質問します。
データの入力規則でリストから選んだりするときに
そのリストのフォントや塗りつぶしがそのまま使える方法ってありますか？
4択にしてるんですけど、回答によって色を変えたいんです。
よろしくお願いします。

 >そのリストのフォントや塗りつぶしがそのまま使える方法ってありますか？
 >4択にしてるんですけど、回答によって色を変えたいんです。
 4択全てを変えたいとなるとマクロになると思います。
 3つまで（変更無しを入れて4つ）であれば、条件付書式でできると思います＾＾
 ※そのままのフォントと言うことではございません。
　
 こちらの、ライブラリにある
 条件付き書式 Win
http://www.excel.studio-kazu.jp/lib/e2qw/e2qw.html
 条件付き書式 Win(旧) 
http://www.excel.studio-kazu.jp/lib/e1qw/e1qw.html
　
 こちらが参考になりますでしょうか？
　
 ※全文検索で、検索すると色々でてきますよ～
　
 （キリキ）(〃⌒o⌒)b

キリキさんありがとうございます。

うーん、マクロわかんないんです・・・
何も入力しない状態では塗りつぶしはないんですけど、
選択肢のA～Dに応じて文字の色かセルの色を変えたいんです。

 >選択肢のA～Dに応じて文字の色かセルの色を変えたいんです。
 フォントの色を４つ分、変える方法です。
　
１）入力規則が設定してあるところを範囲指定
２）書式 → セル
　　「ユーザー定義」で、[赤]G/標準　を設定。OK。
３）書式 → 条件付書式
　　条件１「セルの値が」「次の値に等しい」「="B"」
　　【書式】をクリック→ お好きなフォント色を指定。OK。
　　条件２「セルの値が」「次の値に等しい」「="C"」
　　【書式】をクリック→ お好きなフォント色を指定。OK。
　　条件３「セルの値が」「次の値に等しい」「="D"」
　　【書式】をクリック→ お好きなフォント色を指定。OK。OK。
　
 以上で、４種類までいけます。
　
 （キリキ）（〃⌒o⌒)b

ありがとうございますぅ！！すごいです！！

これってセルの色も4種類っていうのはできるんですか？？

 >これってセルの色も4種類っていうのはできるんですか？？ 
 書式設定で、フォントの色は変えられるけど
 セルの色は変えられません。。。
 無色（何も設定変更しない状態のもの）をカウントすれば、４種類ですが
 実際には、条件付書式で設定できるのは、３種類までです。
　
 （キリキ）（〃⌒o⌒)b

そうですか～残念！！
でもでもありがとうございましたっ！！(^o^)丿

また何かあったらよろしくお願いします。
条件が３つなんて、結構ケチですねぇ～

 次のバージョンでは、でーじ沢山あるらしい・・・・・・・(-｡-) ボソッ

 （川野鮎太郎）

 衝突～☆
　
 >条件が３つなんて、結構ケチですねぇ～ 
 Office 2007 では、条件付書式等も仕様変更があるようです。
　
 参考過去ログ
[[20051106102317]]『VBAで数値のみを貼り付け』（Green）
 ※でーじ沢山あることが書いてあります＾＾
　　
 個人的には、そんなに増やすこと無いような気もしますが。。。
 （キリキ）（〃⌒o⌒)b

みなさんやっぱりお詳しいですね！！
私なんて無知なんでわからないことだらけです・・・

ところで、選択肢A～Dを選ぶときに
マクロを使えば選択肢によってセルの色を塗り分けたりも
出来ちゃうんですか？？
基本的なことなのかもしれませんが・・・
あういう文字の羅列を見てるだけで頭がおかしくなりそうで☆

ちなみに選択肢で答える欄ははE,G,Zの列にあります。

 検索して見ました＾＾
　
http://www.excel.studio-kazu.jp/cgi-bin/estindex/estseek2.cgi?phrase=%EF%BC%93%E3%81%A4%E4%BB%A5%E4%B8%8A%E3%80%80%E6%9D%A1%E4%BB%B6%E4%BB%98%E6%9B%B8%E5%BC%8F&perpage=10&attr=&order=&clip=-1
　
 （キリキ）(〃⌒o⌒)b

ありがとうございます！！
それっぽいのをみて、貼り付けてみたんですけど、
コンパイルエラー。名前が適切でありませんWorksheet_Change

っていわれました。
今作っているやつのコードの上の方にも前任者が違うものを作っていたらしくて
Private Sub Worksheet_Change(ByVal Target As Range)
・・・・・・・

ってやつがあったんですけど
２つはできないんですか？？

 >それっぽいのをみて、貼り付けてみたんですけど、コンパイルエラー。
 それは、そうでしょう。。。
 σ(^o^;)は、
 >ところで、選択肢A～Dを選ぶときにマクロを使えば選択肢によってセルの色を塗り分けたりも出来ちゃうんですか？？
 こちらの疑問の参考になればと思い、レスしました。
　
 >ってやつがあったんですけど２つはできないんですか？？
 そうですね。
 ２つは出来ないですね。もし、２つのものを活かしたいのであれば、１つのコードに組み込むことになります。

 （キリキ）（〃⌒o⌒)b

１つのコードに組み込む・・・私には無理なようです(-_-;)

職場の同僚に聞いて、やりたいことははっきりさせられたのですが、
コードを作ることは皆目見当がつきませんでした。

でもでも、以下のコードができれば１つでＯＫになりました。

《やりたいこと》
Ｉの列の各行に問いに関する回答欄でＡ～Ｄの選択肢がある。
その選択肢によって、その行のAとHからJとWのセルの色を塗りたいんです。

A：ローズ,B：ベージュ,

C：うすい黄,D：うすい緑

ちなみに選択肢はI4から始まります。（I1～I3は空欄です）
選択肢はI48まであります。（今後増えるかも・・・）

どなたかお時間のある方、作っていただけないでしょうか？？
私には？マークしか浮かんできません・・・はぁ

 なるべく、ご自身で編集しやすいように考えて作りましたが
 これで宜しいでしょうか？
　
 シートモジュールへ
'------------------
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyCol As Long, MyR As Long
    MyR = Target.Row
    If Target.Count <> 1 Then: Exit Sub
    If Target.Column <> 9 Then: Exit Sub
    If MyR < 4 Then: Exit Sub
        Select Case Target.Value
            Case "A"
                MyCol = 38
            Case "B"
                MyCol = 40
            Case "C"
                MyCol = 36
            Case "D"
                MyCol = 35
        End Select
    With Range("A" & MyR & ",H" & MyR & ",J" & MyR & ",W" & MyR)
        .Interior.ColorIndex = MyCol
    End With
End Sub
　
 （キリキ）(〃⌒o⌒)b

 せんせぇ、Case Else: MyCol = xlNone
は要りまへんか？あと、
 > Range("A" & MyR & ",H" & MyR & ",J" & MyR & ",W" & MyR)
   Range("A" & MyR & ":H" & MyR & ",J" & MyR & ":W" & MyR)
では？
(ROUGE)

 >せんせぇ、Case Else: MyCol = xlNone
 For...Eachで、回してないから MyCol = 0 になってない？
 それでは駄目かな～？
　
 >Range("A" & MyR & ":H" & MyR & ",J" & MyR & ":W" & MyR)
 >では？
 いや、
 Range("A" & MyR & ",H" & MyR & ":J" & MyR & ",W" & MyR)
 でしょ？ｗ
　
 （キリキ）(〃⌒o⌒)b

すっご～いです！！感激です(^o^)丿

こんなことまで出来ちゃうんですね☆

でもでも、これだとＩのセルは塗れないです・・・
HからJで塗りたいんですが。

マネしてI" & MyR & ",ってやつを入れたらできましたが
連続してる部分は何か違うやり方があるんですか？？

 > For...Eachで、回してないから MyCol = 0 になってない？
 > それでは駄目かな～？
 そうですた・・・orz

 > Range("A" & MyR & ",H" & MyR & ":J" & MyR & ",W" & MyR)
 > でしょ？ｗ
 いちゃもんつけるつもりが逆につけられとるがな～（苦笑

 いちゃもん屋にはまだまだなれない (ROUGE)

 >With Range("A" & MyR & ",H" & MyR & ",J" & MyR & ",W" & MyR)
 を
 With Range("A" & MyR & ",H" & MyR & ":J" & MyR & ",W" & MyR)
                                     ~~~
 に変更しましたか？
　
 （キリキ）(〃⌒o⌒)b

おぉ～！！問題無事に解決しました！！

ありがとうございました☆

こんなに便利なら私も少し勉強しようかな・・・？？

っあ！！その前に、作ってもらった解答欄に使う問題を考えなくては♪

それにせっかく4択になったんだから選択肢も頑張って作ります☆

また質問しに来ますので、みなさん暖かく迎えてくださいね～

コメント返信：

[ 一覧(最新更新順) ]

[[20060615184852]] 『入力規則のプルダウン』（ミキ） ページの最後に飛ぶ

[[20060615184852]]　『入力規則のプルダウン』（ミキ）　ページの最後に飛ぶ