エクセルの学校：全文検索：Hyper Estraier：条件付書式　３つ以上

Results of 1 - 1 of about 37 for 条件付書式　３つ以上 (0.008 sec.)

条件付書式 (2647), 3つ以上 (180)

[[20111209090038]]: #score: 10902; @digest: 056fb32d14e028f2e563eace89dd3f1d; @id: 56925; @mdate: 2011-12-20T00:17:02Z; @size: 7077; @type: text/plain; #keywords: colr (7015), 工程 (5484), 発行 (2890), 貰う (2709), 上側 (2469), 下側 (2319), 生日 (1820), 字色 (1661), 背景 (1608), ＞＞ (1570), 2011 (1551), 付書 (1428), スレ (1310), target (1301), て貰 (1293), colorindex (1273), ォン (1159), case (1095), 了日 (1067), 条件 (948), 行番 (942), 件付 (932), セル (922), 振り (874), り分 (862), 完了 (856), ベン (759), 側の (726), 分け (700), 書式 (619), イベ (618), 番号 (602); 『3つ以上の条件付書式』（さと）
VBAは全く分からないエクセル初心者です。仕事上でのデータで、1行で1つの工程を見られるようにしています。（A列が工程名、B列が現状どこで作業が止まっているかの名称、C列が開始日…など） B列の工程途中の名称のセルに色を振り分けたいのですが、複数の条件で1つ、他の複数の条件で1つ…といったように、つけたい条件が全部で5つあります。 3つ以上はマクロを組まなくてはできないことは理解しましたが、マクロが全く分からないのでお助けください。色をつけたい（振り分けたい）列はB列全体で、具体的な条件としては以下のイメージです。 B列に@、A、B、C、D、E、Fが入力されている場合は、セルを「ローズ」 B列にGが入力されている場合は、セルを「黄」 B列にH、I、Jが入力されている場合は、セルを「薄いオレンジ」 B列にK、L、M、N、Oが入力されている場合は、セルを「ラベンダー」 B列にPが入力されている場合は、文字色を「青」という条件付書式を付けたいのです。データはどんどん増えていきます。入力されたら対応できるようにしておきたいのですが、このような事が可能でしょうか? Excel2003、WindowsXPで作成しております。お助けください、宜しくお願い致します。 ---- ここの下の方を見てください。 http://www.excel.studio-kazu.jp/lib/e2qw/e2qw.html BJ ---- >1行で1つの工程 B列に@〜Pとはどんな形で入力されているのですか。1つのセルに@・・Pすべて入力? ---- BJ様そのページは拝見しておりましたが、マクロを理解できていないので応用できずにいました。せっかくご紹介してくださったのに申し訳ございません。＞B列に@〜Pとはどんな形で入力されているのですか。1つのセルに@・・Pすべて入力? いえ、@〜Pまでのいずれかが必ず入っている状態です。 @〜Pまでの分類分けは、上記のとおりとなっております。お手数おかけいたします。（さと） ---- AセルとBセルが並んでいます。2つのセルの組合せで 3×3 = 9通りまでの場合分けを実現できるのでは。 ---- > AセルとBセルが並んでいます。2つのセルの組合せで 3×3 = 9通りまでの場合分けを実現できるのでは。 Aセルには工程名、と書きましたが、正しくは工程発行番号が振り分けられていて、作業が増えると番号も増えていきます。以下、イメージ図です。 A列 B列 C列 D列 E列 F列 Z列発行番号現作業名発生日工程1 工程2 工程3 … 完了日 AB-A11-001 検査員 2011/12/1 2011/12/3 AB-A11-002 完了 2011/12/4 2011/12/5 2011/12/7 2011/12/9 2011/12/12 Aセルはあくまでも発行番号であり Bセルが発生日から完了日までの、その一連の作業のどこで止まっているかを表すセルとなっています。なので、今回の振り分け条件にはAセルは一切関与しない表となっています。やはり条件付書式のみでは不可能でしょうか。（さと） ---- 2003以前の場合、条件付書式で設定出来る書式は3つ迄です。これは変えられません。 ↑の名無しさんの提案は二つのセルを使って色分けをすれば9通り出来ると言う事だと思います。振り分け条件にA列のセルの状態を含めると言う事ではなく。全文検索はしてみましたか? 良くある質問なので、探してみるとご要望にかなり一致したコードが見つかると思いますよ。似ているのは↓の辺り [[20050115131721]] 『条件式書式を6つやりたいんですが・・・』（sirouto） [[20041021153913]] 『4種類以上の文字の色を変えるには』（さくらちゃん）まず、上側のスレを見て貰うと A列のセル色を変更するコードが有ります。＞ If Target.Column <> 1 Then Exit Sub を If Target.Column <> 2 Then Exit Sub にして貰うと、B列のセルが対象に成ります。＞ Case "さる" 等を Case "@" ,"A","B","C","D","E","F" 等に変更＞ colr = 3 'ここの色番号をお好きなようにの所は、マクロの記録をとって番号を確認して書き替えて下さい。まずはこの辺りから初めて貰って行き詰まったら何処で行き詰まったのか書込してもらえると良いと思います。 (HANA) ---- HANA様＞レスありがとうございました。コードの意味が分からないので、HANA様が書いてくださった部分だけを書き換えて、ThisWorkbookの部分に貼り付けてみました。保存して閉じ、立ち上げなおしましたが、何も変化がありませんでした。このように書いてみました。 Private Sub Worksheet_Change(ByVal Target As Range) '変数宣言 Dim colr As Integer If Target.Count > 2 Then Exit Sub If Target.Column <> 2 Then Exit Sub Select Case Target.Value Case "@","A","B","C","D","E","F" colr = 38 ' Case "G" colr = 6 ' Case "K","L","M","N","O" colr = 39 ' Case "H","I","J" colr = 40 ' Case "P" colr = 2 ' Case "Q" colr = 15 ' Case Else colr = xlNone End Select Target.Interior.ColorIndex = colr End Sub 本当はPはセルを白、フォントを「青」にしたいのですが分からなかったので、セルの色指定だけをしてみました。どこがいけなかったのでしょうか。（さと） ---- Worksheet_ChangeイベントプロシージャはSheetモジュールに記載すべきものです。また、Changeイベントはセルの編集が実行トリガーになります。また、Targetは編集されたセルへの参照が格納されますから、ご提示のマクロはあくまでB列のセルに入力等の編集を行った時に実行されるものです。したがって、ThisWorkbookモジュールに貼り付けて保存したものを開いただけでは何も起こりません。 (みやほりん)(-_∂)b ---- (みやほりん)(-_∂)b様＞ありがとうございます、各シートにそれぞれを貼り付け教えて頂いた通りB列を入力しなおしたらできました! 感激です…。ありがとうございます。もうひとつ解決させたい箇所があるのですが、教えてください。 Pはセルを白、フォントを「青」にしたいのですがどこを書き換える、書き加えるなどすれば良いのでしょうか。あと一歩の所まで来て本当に嬉しいです。どうかよろしくお願いいたします。（さと） ---- フォントに関しては、通常の条件付書式を使って設定して一応の希望の形ができました。この質問はこれにて解決とさせていただきます。ご意見、ご教授くださいましたみなさま、ありがとうございました。（さと） ---- みやほりんさん、フォロー有り難う御座います。＞この質問はこれにて解決とさせていただきます。と言う事ですが。。。。過去ログを二つリンクしましたが、上側のスレが基本コードと背景色を変更するコード下側のスレが、フォントに関するコードが載っていると言うつもりでした。下側のスレを見て貰うと＞＞＞あっ背景じゃなかったOrz ＞＞＞すいません＞＞＞.Interior.ColorIndex こっちは背景です＞＞＞をすべて＞＞＞.Font.ColorIndex こっちが文字の色です＞＞＞に変更してください。＞＞＞＞＞＞(Null) と書いてあって、その上までが背景色の変更。その下が文字色の変更のコードに成っていますので、見比べて貰うと分かりやすいと思いますが。。。今回の場合、文字色だけが単独で変われば良いので同じ様な作りのコードにして End Sub の上に Select Case Target.Value Case "P" colr = 5 Case Else colr = 0 End Select Target.Font.ColorIndex = colr を入れておくだけでも良いかもしれません。 (HANA) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201112/20111209090038.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ