[[20040819095818]]　『設定範囲の中の最大値・最小値に斜線を入れる』（あした）　ページの最後に飛ぶ

『設定範囲の中の最大値・最小値に斜線を入れる』（あした）

[設定範囲の中の最大値・最小値のセルに斜線を入れる]

     A　  B 　 C 　 D　　E　  F

 1  12　 15　 18 　20　　　　15.9
 2  13 　14 　16 　17
 3  16 　20 　18 　12

①最大値・最小値はそれぞれ1個だけ選択し、そのセルに斜線を入れる。

②F1にA1:D4の12個のデータから①のデータを引いた平均値を入れる。

OS Win2000
Excel2000

上記質問宜しく御回答　お願いいたします。（あした）

 質問には見えません。作成依頼ですか？　ご自分ではどこまで出来ましたか？

  (INA)

 >そのセルに斜線を入れる
 を、[条件付き書式] で [色を付ける] や [パターンを設定] なら、数式で出来ますが？

 A1:D3 を選択して
 [条件付き書式]
 条件１　数式が　=MAX(A1:D3)=A1　書式　　色を付けるかパターンを設定
 条件２　数式が　=MIN(A1:D3)=A1　書式　　色を付けるかパターンを設定

 ただし、[あした]さんの提示した例では、MAX,MIN とも２つずつ有るので
 ２つずつ、色かパターンがでます。

 >②F1にA1:D4の12個のデータから①のデータを引いた平均値を入れる。
 この意味がよくわからないのですが。
 A1:D3 の合計？　平均？
 F1 に　15.9　とはどのような計算式ですか？
 っていうか　15.9　とでてるので、計算できてる気もしますが。　　（jun53）

 >>②F1にA1:D4の12個のデータから①のデータを引いた平均値を入れる。
 >この意味がよくわからないのですが。

 A1:D4の12個の合計値からMAXとMIN（この場合20+12=32）を引き
出た値を12-2=10で割って平均を求める計算式をF1に入れるということかと。
極端に外れた数値を除外して、より平均に近い平均？を求めたいのでしょう。
けれど質問姿勢としてはINAさんに一票。　（とおりすがる～）

 ふふ
[とおりすがる～]さんのとうりですね。
けど、MAX,MINの対象が４つ有るのでちょっと（本当にチョット）探りを...　　（jun53）

(INA)さん（jun53）さん（とおりすがる～）さん　ありがとうございます。

A1:D4の12個の合計値からMAXとMIN（この場合20+12=32）を引き出た値を12-2=10で割って平均を求める計算式をF1に入れるということかと。そうです。
MAXとMINは2個づつあるので手入力で斜線入れてました。
[条件付き書式]でもちょっと無理かな？　（あした）

 jun53さんがおっしゃているように、条件付書式では斜線は引けません（条件付書式の中を見てみてください。）ので、
 色かパターンでならとのことです。
 また、同じ最小値の12のどちらに反映させるかは基準がありますか？
 それが判れば解決策があるやもしれません。
 （川野鮎太郎）

 15.9なら、
 Sub Macro1()
Dim C As Range, MyTbl As Range
Dim MyData As Double
Dim myCot As Double
Dim i As Boolean
Dim A As Boolean
i = False
A = False
    Set MyTbl = ActiveSheet.Range("A1:D3")
    myCot = Application.WorksheetFunction.Count(MyTbl)
    If myCot <= 2 Then Exit Sub
        MyData = Application.WorksheetFunction.Sum(MyTbl)
        If Not MyTbl.Borders(xlDiagonalUp).LineStyle = xlNone Then
            MyTbl.Borders(xlDiagonalUp).LineStyle = xlNone
        End If
            For Each C In MyTbl
                If C.Value = Application.WorksheetFunction.Min(MyTbl) And i = False Then
                    MyData = MyData - C.Value
                        C.Borders(xlDiagonalUp).LineStyle = xlContinuous
                    i = True
                ElseIf C.Value = Application.WorksheetFunction.Max(MyTbl) And A = False Then
                    MyData = MyData - C.Value
                        C.Borders(xlDiagonalUp).LineStyle = xlContinuous
                    A = True
                End If
                If A = True Then Exit For
            Next
        ActiveSheet.Range("F1").Value = MyData / (myCot - 2)
End Sub
  かな？
（夏目雅子似）
 すみません。一行追加。

 条件付書式を利用するものは、どうでしょう？

 A1:D3の範囲を対象として、最大と最小値を各一個除く平均は、
 =IF(COUNT(A1:D3)<3,"",(SUM(A1:D3)-MAX(A1:D3)-MIN(A1:D3))/(COUNT(A1:D3)-2))

 斜線の代わりに取り消し線で、範囲内で、上から下、左から右の順で最初のものを区別することにします。

 A1:D1を選択し、書式、条件付書式、条件1に数式が、その右に
 =AND(COUNTIF($A1:A1,A1)=1,OR(A1=MAX($A$1:$D$3),A1=MIN($A$1:$D$3)))として、
 書式をフォントの文字飾りの取り消し線とします。

 A2:D3を選択し、同様にして、数式の箱に
 =AND(SUM(COUNTIF($A$1:$D1,A2),COUNTIF($A2:A2,A2))=1,OR(A2=MAX($A$1:$D$3),A2=MIN($A$1:$D$3)))
 として、書式に取り消し線を指定します。　　　　　　　　　　　　　　　　　　　　　(LOOKUP)

 何度もすみません。焦る焦る
 アセアセo(^^；o)Ξ(o；^^)oΞo(^^；o)Ξ(o；^^)oドウモ～♪
（夏目雅子似）

いろいろご教授ありがとうございます。結果(LOOKUP)さんの方法で成功いたしました。
本当にありがとうございました。（あした）

コメント返信：

[ 一覧(最新更新順) ]

[[20040819095818]] 『設定範囲の中の最大値・最小値に斜線を入れる』（あした） ページの最後に飛ぶ

[[20040819095818]]　『設定範囲の中の最大値・最小値に斜線を入れる』（あした）　ページの最後に飛ぶ