[[20220813085151]]　『条件付き書式を使わずにセルの色をかえる』（ぴょんた）　ページの最後に飛ぶ

『条件付き書式を使わずにセルの色をかえる』（ぴょんた）

標記の件、ご指導お願いします。

  A 　 B　　C(店名)　 D(先月売上)　D(当月売上)
　5　　1　　●●店　　420万　　　　800万　
　3　　2　　●●店　　500万　　　　790万
　1　　3　　●●店　　700万　　　　730万
　2　　4　　●●店　　650万　　　　680万
　7　　5　　●●店　　150万　　　　660万
　6　　6　　●●店　　390万　　　　520万
　4　　7　　●●店    480万　　　　210万

上記の表で、A列は先月の売上順位で、B列は当月の売上順位です。

B列のセルの色を、先月から２つランクアップしたら青色、

２つランクダウンしたら赤色に塗りつぶしたいです。

出来れば、赤色は文字を白にしたいです。

この表で行くと・・・
B1セル　青色
B3セル　赤色の白文字
B4セル　赤色の白文字
B5セル　青色
B7セル　青色

クラウドからデータをエクセルに落とし込むシステムになっていて、

なぜか条件付き書式は反応しないので、出来れば関数だとありがたいです。

マクロはよくわからないですが、貼付けだけなら何とかなるかもしれません。

ご指導宜しくお願いします。

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

 >420万　　　　800万

 これらは文字列なんですかね？
 数値とか、入力の仕方が問題じゃないですかね？

 420
 としか入力しないで、表示形式で
 0万
 とか。
 その辺、はっきりと説明した方がいいと思います。
 それともこの辺まるっきり解らないということでしょうか？
 実際に入力しているものをはっきりさせた方がいいと思います。
（説明不足） 2022/08/13(土) 09:49

 >赤色の白文字
 無理だとおもう。

（説明不足） 2022/08/13(土) 10:14

無理ですか。。。

仕方ないので、手動で色塗します　m(_ _)m

ありがとうございました。
（ぴょんた） 2022/08/13(土) 10:31

 ＞マクロはよくわからないですが、貼付けだけなら何とかなるかもしれません。

 マクロでよければ何とでもなりますよ。
 (まぁ、マクロで新たに条件付き書式を設定するだけですけどね）

（半平太） 2022/08/13(土) 10:36

１行目が項目名、データは２行目からとして、
B列の２行目からデータの最後まで選択しておいて
条件付き書式を下記のように設定すれば、いけると思うが。

数式
=A2-B2>2
書式
塗りつぶし　青

数式
=A2-B2<=-2
書式
塗りつぶし　赤
フォント色　白

（hatena） 2022/08/13(土) 10:51

＞なぜか条件付き書式は反応しないので
どんな条件を指定しているのですか？
それを示すのが先決じゃないですか？

A列とB列の数値どうしの差で判定すればよいので、売上額の単位は関係ないですし、
「赤色の塗りつぶしで、文字フォントを白にする」のが、
なぜできないのか分かりませんでした。

投稿重なりました。
$A2-$B2 を使うのがよいのでは？
（γ） 2022/08/13(土) 10:56

赤色の白文字
って、赤の白抜き文字と思ってしまった。
（説明不足） 2022/08/13(土) 11:03

説明不足ですみません。

関数などの数式は反映されますが、条件付き書式は全て反映されないようです。

色々試して、通常使えている条件付き書式も当てはめてみましたが全て反映されないので
そのようなシステムになっているようです。
（クラウドにエクセルシートをアップロードして、クラウド上のデータを
　エクセルに落とし込むシステムで条件付き書式だけは反映されないです）
　　
私的には、
=if(A2-B2>2,青色に設定,"")のように、関数に書式設定の条件を入れられればと思っています。

何か解決策があれば幸いです。

（ぴょんた） 2022/08/13(土) 11:23

| クラウドにエクセルシートをアップロードして、クラウド上のデータを
| エクセルに落とし込むシステムで条件付き書式だけは反映されないです
ん？よくわかりません。
落とし込んでから条件付き書式を設定するのではないんですか？
手作業による書式より、条件付き書式のほうが優先度高いので、
条件付き書式の設定が正確にされていればできるはずです。

あらためて再度書きますが、
| どんな条件を指定しているのですか？

色を付けるのがA列からD列と即断してしまったので、（B列だけでした）
私の
| $A2-$B2 を使うのがよいのでは？
は取り消しです。失礼しました。

（γ） 2022/08/13(土) 11:32

＞（クラウドにエクセルシートをアップロードして、クラウド上のデータを
　エクセルに落とし込むシステムで条件付き書式だけは反映されないです）

どのようなシステムなのか分かりませんが、エクセルファイルなんですよね。
なら、条件付き書式が使えないということはないと思うのですが。

データを落とし込むときに条件付き書式を削除しているとかかな。

＞=if(A2-B2>2,青色に設定,"")のように、関数に書式設定の条件を入れられればと思っています。

関数では書式を設定できません。値を返すことしかできないので。
そのための条件付き書式です。

条件付き書式を使わずに書式を変更するなら、VBAになります。
（hatena） 2022/08/13(土) 11:36

色々、説明不足で申し訳ありません。
現状では条件付き書式は反応しないので、VBAを教えて頂く事はできます？

VBAは全く、知識ないのでコピー貼り付けみたいな感じで出来れば
宜しくお願いします。
（ぴょんた） 2022/08/13(土) 12:13

名前を付けて保存から一旦xlsxで保存してから
開き直して条件付き書式を設定しても反映されないですか。
（ax） 2022/08/13(土) 13:12

 こんな感じかな？

 Sub setFmtCond()     
     Cells.FormatConditions.Delete

     With Range("B1", Cells(Rows.Count, "B").End(xlUp))
         .FormatConditions.Add Type:=xlExpression, Formula1:="=A1-B1>=2"
         .FormatConditions.Add Type:=xlExpression, Formula1:="=B1-A1>=2"

         .FormatConditions(1).Interior.Color = RGB(0, 0, 255)
         .FormatConditions(2).Interior.Color = RGB(255, 0, 0)
         .FormatConditions(2).Font.Color = RGB(255, 255, 255)
     End With

 End Sub

（半平太） 2022/08/13(土) 14:24

コメント返信：

[ 一覧(最新更新順) ]

[[20220813085151]] 『条件付き書式を使わずにセルの色をかえる』（ぴょんた） ページの最後に飛ぶ

[[20220813085151]]　『条件付き書式を使わずにセルの色をかえる』（ぴょんた）　ページの最後に飛ぶ