[[20041014124345]]　『最大値、最小値の数値に色付け』（はっしー）　ページの最後に飛ぶ

『最大値、最小値の数値に色付け』（はっしー）

9列×3行の表に3桁の数値が入力されて、その表内での最大値と最小値を赤くしたいのですが。
しかも値が重複している場合は（最大値、最小値共）そのうち1つだけを赤くし、且つ、その
色をつける2つの数値（1つは最大値、もう1つは最小値）は出来るだけ離れた値を選択させた
いのですが。可能でしょうか？
できればVBAを使わずに関数で出来れば良いのですが…。
どうぞご教授宜しくお願い致します。

[Excel2000]
[Windows98SE]

 なるべく離れた・・ということですから、作業列を使った方法を考えてみました。
でも、後からきといいのが出てくると思います。
v(=∩_∩=)v
（SoulMan）
http://ryusendo.no-ip.com/cgi-bin/upload/src/up0107.xls

SoulManさん、ありがとうございます。
これで、セルではなくフォントに色をつけることは可能ですか？
それが出来るようであればすごく助かります。
（始めの説明が説明不足ですみませんm(__)m)
（はっしー）

 102	102	102	102	102	102	102	102	102
 103	103	103	103	103	103	103	103	101
 104	104	104	104	104	104	104	104	104
 条件付書式の設定でフォント色を変えて、パターンを無しにするだけですよ。
 でも、数式では難しいですね。＿/￣|○ il||li
 （川野鮎太郎）

 川野鮎太郎さん、返事遅くなってすみません。

 条件付書式では
 >しかも値が重複している場合は（最大値、最小値共）そのうち1つだけを赤くし、
 >且つ、その色をつける2つの数値は出来るだけ離れた値を選択させたいのですが。
という条件を満たすことができません。

 自分の説明は読み返してみると説明がわかりづらいですね(^^ゞ
もう一度説明します。

 1、9×3の27コのセルに３桁の数値を入力します。
 2、最大値、最小値の文字を赤くさせたい。（セルではなくフォントに色づけ）
 3、最大値が重複した場合はそのうちで1つだけ赤くする。
 4、最小値が重複した場合はそのうちで1つだけ赤くする。
 5、最大、最小の赤い文字はできるだけ離れたもの同士を選択させる。
 6、マクロやＶＢＡを使わないでできる方法。（可能であればですが…。）

 以上の条件でできるのであれば、教えていただきたいのですが。

 改めて、宜しくお願いいたします。
 （はっしー）

 私が上記で書いた＞ 条件付書式の設定でフォント色を変えて、パターンを無しにするだけですよ。
 は、SoulManさんの条件付書式がパターンに色付けだったのをフォントが色つきになる方法を示しただけです。
 先にも述べましたように、数式で条件をクリアする方法は大変難しいです＿/￣|○ il||li
 マクロに頼ったほうが良いのかもしれません。
 （川野鮎太郎）

 っていうかぁ、、これじゃだめなの？？
(SoulMan）
http://ryusendo.no-ip.com/cgi-bin/upload/src/up0112.xls

 私が上に書いた数値を入れてみてください・・・。
 （川野鮎太郎）

 横から失礼します。

 ・A1～I3を入力範囲とします。
 ・AA～BC列を作業列とします。
 ・AA2～AA28とAB1～BB1に A1 A2 ・・・ G3 H3 I3 と、
 　入力範囲のセルアドレスを入力します。
 ・AB2に下記数式を入力し、AB2～BB28の範囲にコピーします。

=IF(AND(INDIRECT($AA2)=MAX($A$1:$I$3),INDIRECT(AB$1)=MIN($A$1:$I$3)),ABS(ROW(INDIRECT($AA2))-ROW(INDIRECT(AB$1)))+ABS(COLUMN(INDIRECT($AA2))-COLUMN(INDIRECT(AB$1))),0)

 ・BC2に下記数式を入力し、BC3～BC28にコピーします。

=MAX(AB2:BB2)

 ・AB29に下記数式を入力し、AC29～BB29にコピーします。

=OFFSET(AB1,MATCH(MAX($BC$2:$BC$28),$BC$2:$BC$28,0),)

 ・AT30に　=OFFSET(AB1,MATCH(MAX($BC$2:$BC$28),$BC$2:$BC$28,0),)　とします。
 ・AT31に　=INDEX(AB1:BB1,MATCH(MAX(AB29:BB29),AB29:BB29,0))　とします。
 ・A1～I3を選択し、「書式」－「条件付き書式」を下記のように設定します。
 [数式が]　[=ISNA(MATCH(ADDRESS(ROW(),COLUMN(),4),$AT$30:$AT$31,0))=FALSE]とし、
 書式でフォントを赤に設定

 ↓私が作成したサンプルです。
http://pub.idisk-just.com/fview/JzOFNEcWplMfLN1CpLIxkWg1C26avXiAqqzmLMyBhSNUbL6HW1Ypdyc9f1XdbAak/5pyA5aSn5YCk5pyA5bCP5YCk44Gr6Imy5LuY44GR.xls
 （Yosh!）

 やはり作業列がそれだけ必要なんですね。＿/￣|○ il||li
 (^-^)//""パチパチ
 というか、まさか・・先ほどからの短時間に作ったわけじゃないですよね(;^_^A アセアセ
 （川野鮎太郎）

 大変、返事が遅くなり誠に申し訳ありません。また、みなさん忙しい中ありがとうございます。m(__)m
 いろいろ試してみて勉強になり有難く思っています。

 それで、Yosh!さんのものだとうまく出来ました。ありがとうございました。
 また、SoulManさんのだと
http://ryusendo.no-ip.com/cgi-bin/upload/src/up0112.xls
の例ですと、
1、Ａ2に「105」を入力した時に赤のＡ1の「102」がＩ1に移動しない。
2、Ｉ2に「101」を入力した時に緑のＩ3の「104」がＡ3に移動しない。
ということがわかりました。

 もしかしたら、少しの手直しで可能かも知れないとも思いましたが
時間も無かったので、Yosh!さんの方法を取らせていただきましたが、
本当に助かりました。皆さんに感謝してます。
また、機会があったときにはご教授お願いします。
 （はっしー）

コメント返信：

[ 一覧(最新更新順) ]

[[20041014124345]] 『最大値、最小値の数値に色付け』（はっしー） ページの最後に飛ぶ

[[20041014124345]]　『最大値、最小値の数値に色付け』（はっしー）　ページの最後に飛ぶ