エクセルの学校：全文検索：Hyper Estraier：条件付き書式

Results of 1 - 1 of about 4505 for 条件付き書式 (0.006 sec.)

[[20091121165102]]: #score: 3704; @digest: 578c5c9312bfb38ff6b420e567aafdff; @id: 46503; @mdate: 2009-11-29T06:03:24Z; @size: 5633; @type: text/plain; #keywords: 太線 (14281), 細線 (13222), 件欄 (11781), 上設 (8375), 藤| (7048), 罫線 (5663), sasa (5526), 田| (5008), 値未 (4887), 上| (4562), 藤佐 (4537), 下回 (4310), 件3 (3750), 表全 (3465), 右側 (2881), 字色 (2768), 井上 (2656), 線を (2449), い→ (2376), linestyle (2348), の罫 (2341), 佐藤 (2221), 条件 (2133), borders (1894), 件付 (1678), 景色 (1600), 各月 (1591), 山田 (1438), 線が (1393), 左右 (1306), colorindex (1273), 背景 (1206); 『条件付き書式3つ以上』（ちいこ）
いつもお世話になっています。今回も知恵をお借りできたらと思います! 表題の通り、条件付き書式を3つ以上設定したいのです。過去記事検索をしてみましたが、答えを導き出せず・・・すいません。 Excel2003です。下記のような表があります。 1月 2月 3月 4月 5月 6月条件 +----+----+----+----+----+----+----+ 1 |1100|2000|3100|1500|1800|2200| | +----+----+----+----+----+----+----+ 2 |0.54|0.63|0.43|0.38|0.55|0.62|0.50| +----+----+----+----+----+----+----+ 3 | 12| 10| 21| 15| 17| 13| | +----+----+----+----+----+----+----+ 4 | 480| 500| 550| 750| 500| 600| 580| +----+----+----+----+----+----+----+ 5 |井上|山田|山田|佐藤|佐藤|佐藤| | +----+----+----+----+----+----+----+ 条件欄に数字が入っている項目については（この場合、2と4）各月の数字が条件欄の数字を下回った場合背景色を赤、文字色を白。 5に入っている人の名前を見て、人が切り替わった時に、表全体に罫線を入れる。 ↓罫線結果。 1月 2月 3月 4月 5月 6月条件 +----+----+----+----+----+----+----+ 1 |1100|2000 3100|1500 1800 2200| | + + + +----+ 2 |0.54|0.63 0.43|0.38 0.55 0.62|0.50| + + + +----+ 3 | 12| 10 21| 15 17 13| | + + + +----+ 4 | 480| 500 550| 750 500 600| 580| + + + +----+ 5 |井上|山田山田|佐藤佐藤佐藤| | +----+----+----+----+----+----+----+ このようになって欲しいのですが、どのようにVBAを作成すればいいでしょうか? よろしくお願いします。 ---- 条件付き書式は >条件欄に数字が入っている項目については（この場合、2と4） >各月の数字が条件欄の数字を下回った場合 >背景色を赤、文字色を白。と >5に入っている人の名前を見て、 >人が切り替わった時に、表全体に罫線を入れる。の2つなので、普通に条件付書式で出来ます。例えば条件1の数式を =AND($H2<>"",B2<$H2) 条件2の数式を =B$6<>C$6 (sasa) ---- 条件付き書式では出来ませんので。。。。マクロです。但し、自動では実行されませんので入力が終わったら手動で実行してください。 '------ Sub chiiko() Dim i As Long, ii As Long Dim mr As Long, mc As Long Dim tbl As Variant mr = Cells(Rows.Count, 1).End(xlUp).Row mc = Cells(1, Columns.Count).End(xlToLeft).Column With Range("A1").Resize(mr, mc) tbl = .Cells.Value .Interior.ColorIndex = xlNone .Font.ColorIndex = xlAutomatic .Borders.LineStyle = True .Resize(mr - 1, mc - 1).Offset(1) _ .Borders(xlInsideHorizontal).LineStyle = xlNone For i = 2 To mr - 1 If tbl(i, mc) <> "" Then For ii = 1 To mc - 1 If tbl(i, ii) < tbl(i, mc) Then Cells(i, ii).Interior.ColorIndex = 3 Cells(i, ii).Font.ColorIndex = 2 End If Next End If Next For i = 1 To mc - 2 If tbl(mr, i) = tbl(mr, i + 1) Then .Resize(mc, 2).Offset(0, i - 1) _ .Borders(xlInsideVertical).LineStyle = xlNone End If Next End With End Sub '------ (HANA) ---- お返事が大変遅くなり、申し訳ありません! sasaさん、HANAさんありがとうございます!! sasaさん、ありがとうございます! でもすいません、私の説明不足でした。実は、罫線は太線が引きたくて、現在はあらかじめ太線を引いておき、条件付き書式で細線を入れているのです。それだけですでに条件3つを使っており、さらに色付けの条件を入れたかったのでした・・・ HANAさん、ありがとうございます!! このマクロを分解し、どこで何をしているのかなんとか理解できました。自分の表に当てはめられるように変更して希望通りの罫線と色づけをすることができました! おかげで少しVBAの知識も深まりました。どうもありがとうございました!! (ちいこ) ---- >実は、罫線は太線が引きたくて、 > 現在はあらかじめ太線を引いておき、条件付き書式で細線を入れているのです。 > それだけですでに条件3つを使っており、さらに色付けの条件を入れたかったのでした・・・分かっています。但し先にレスしたように条件は2つのみで出来ます。 (背景色を赤、文字色を白にで1つ。罫線の処理で1つ) なにを持って条件3つといっているのですか? ま、理解できないのなら好きにして下さい。 (sasa) ---- 【罫線がセルの片方にだけひかれているときに】 条件付き書式だけで可能ですね。この【罫線がセルの片方にだけひかれているときに】と言う条件は、重要な点だと思いますが。。。罫線がセルの両側に引かれている時は 1.左右の名前が等しい → 左右の罫線を変更 2.左の名前が等しい → 左の罫線を変更 3. 右の名前が等しい → 右の罫線を変更の三つのパターンが、どうしても必要に成ると思いますので。例えば、範囲のセルに細線を引く（あるは罫線を削除）しておいて 1.1月の範囲を選択してセルの書式設定から右側に太線を引く 2.この範囲をコピーして6月までの範囲に貼り付ける 3.表全体を太線で囲うこれで、縦罫線が太線の表が出来ますが太線はセルの右側にしか引かれていないので右側の名前だけを確認して、罫線の設定を変更すれば良いことになります。表の範囲を選択して於いて 条件付き書式の設定で条件1 値未満,右側の名前と等しい → セル色赤,文字色白 , 右側の罫線を細線に条件2 値未満 → セル色赤,文字色白条件3 右側の名前と等しい → 右側の罫線を細線に表がA列から始まっていて、A列の左側を太線にしていた場合うっかりそのセルをコピーして貼り付けをして仕舞うと希望する結果は得られなくなってしまいますが・うっかりしないとか・表の左側に一列以上設ける等で対応出来るかもしれません。 (HANA) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200911/20091121165102.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ