[[20190308140654]]　『標準と比較する　条件付き書式？』（もも）　ページの最後に飛ぶ

『標準と比較する　条件付き書式？』（もも）

選択した基準の値を満たしているかどうか色付けをしたいです。
C1セルで都道府県を選択して集計すると
A10以降に、どの都道府県に存在する店名が横軸、縦軸に商品名が表示されている部分に売り上げが集計されます。
この売上が商品ごとに都道府県の平均(標準)売り上げ高に比べて高いかどうか色付けして表示させたいです。
(標準より多いと赤、少ないと青など)
横軸と縦軸は変更ありません。
同じシートの方が良いかと思い、標準はH10以降に記載しています。

　　A　B　　　　C　　D　E　F　G　H　・・・
1 　　選択→東京
2
3
4　設定ボタン
5
6　集計ボタン
7
8
9
10　商品名　店名A　店名B 商品名　東京　神奈川　愛知
11 あああ　10000　35000 あああ 10000 23000 40000　
12　いいい　26000　5000 いいい 20000 8000 23000
13　ううう　30000　150000 ううう 13000 34000 1200
14　えええ　8000　 2000 えええ 9000 12000 34500
15　おおお　12000 49000 おおお 1200 90000 1200

↑この場合は東京の標準値と比べるので、商品「あああ」は店名Bが赤色
「いいい」は店名Aが赤色、店名Bは青色になります。

上手く伝えられているかわかりませんがこのようなことを行いたいです。
条件付き書式ではやれなけばマクロになるのでしょうか。。。
よろしくお願いします。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 提示のデータで設定する場合（数式を使用して～）

 適用先：=$B$11:$C$15
 条件：=B11<INDEX($E11:$G11,MATCH($C$1,$E$10:$G$10,0))⇒青色
 =B11>INDEX($E11:$G11,MATCH($C$1,$E$10:$G$10,0))⇒赤色

 みたいな感じでは如何でしょうか？
（コナミ） 2019/03/08(金) 14:57

 >標準はH10以降に記載しています

 あ、ここ見落としてました。
 というか全体的にどのように入っているのかちょっと
 わかんないね(^_^;)

 E列からG列を指定している部分をH列からJ列に変えてください。
 というか現状に合わせていただければ。
（コナミ） 2019/03/08(金) 15:02

C1セル→都道府県を選択(東京or神奈川or愛知)
マクロボタンを押すとA10以降に選択した都道府県のデータが抽出
↓↓↓

　　A　　　　B　　　C　　　・・・　　H　　　I　　　J　　　K　　　　

10　商品名　店名A　店名B　　　　　　商品名　東京　神奈川　愛知　　　　　　
11　あああ　1000　5000　　　　　　　あああ　1000　2000　　30000　　
12　いいい　8000　4000　　　　　　　いいい　8000　1000　　2000
13　ううう　4000　2000　　　　　　　ううう　3000　9000　　3400
14　えええ　5000　1000　　　　　　　えええ　9000　4000　　1300
15　おおお　2000　9000　　　　　　　おおお　3400　6000　　2500　

AとHは固定
選択した都道府県の平均売上(I11～I15)と店別売上(B11～C15)を比べる
C1を神奈川にした場合は店別売上の値が変わり、神奈川の平均売上(J11～J15)と比べるようにしたい。
(平均より上なら赤、下なら青)

行はもっと多いです。
わかりづらいですがよろしくお願いします。　　
（もも） 2019/03/11(月) 15:47

Sub main()

    Dim c As Range, col As Long
    If Range("i10", "K10").Find(Range("C1").Value, , , xlWhole) Is Nothing Then MsgBox "C1セルに県名なし": Exit Sub
    col = Range("i10", "K10").Find(Range("C1").Value, , , xlWhole).Column
    For Each c In Range("B11:C" & Rows.Count).SpecialCells(2)
        If IsNumeric(c.Value) Then
            If c.Value > Cells(c.Row, col).Value Then c.Font.Color = vbRed
            If c.Value < Cells(c.Row, col).Value Then c.Font.Color = vbBlue
        End If
    Next c
End Sub
（mm） 2019/03/11(月) 16:10

セル番地が違っていたので直したのですが
C1セルに入力していますがC1セルに県名なし、となってしまいます
（もも） 2019/03/11(月) 16:19

すみません、再度見直したら訂正する部分が違ったみたいで、正しく直しましたらほしい結果が得られました！！ありがとうございます！！
（もも） 2019/03/11(月) 16:26

コメント返信：

[ 一覧(最新更新順) ]

[[20190308140654]] 『標準と比較する 条件付き書式？』（もも） ページの最後に飛ぶ

[[20190308140654]]　『標準と比較する　条件付き書式？』（もも）　ページの最後に飛ぶ