- ベストアンサー
VBAでセルに色付けは?
教えてください エクセルの条件付き書式では下記の 事ができません。 VBAでセルに色をつける 方法を教えて欲しいのですが。 例 セルA1 に 10 セルB1 に 入れた数字が 10以下なら 青 11から20なら 赤 21から25なら 黄 26以上なら ピンク と言う感じで B1 のセルに その数字と色を表示したいのですが 最終的には8色表示にしたいです。 よろしくお願いします WINXP EXCLは2002です
- みんなの回答 (5)
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (4)
- imogasi
- ベストアンサー率27% (4737/17068)
- imogasi
- ベストアンサー率27% (4737/17068)
- BLUEPIXY
- ベストアンサー率50% (3003/5914)
- chukenkenkou
- ベストアンサー率43% (833/1926)
関連するQ&A
- エクセルVBA 条件にあうときセルを塗りつぶすには?
エクセルVBA 条件にあうときセルを塗りつぶすには? エクセルVBAについて教えてください。 _________A 列 _________B 列_________C列_________D列 -------------------------------------------- 1行| 基準値_________ 5_____________1____________8 2行| りんご____________1_____________9____________0 3行| みかん___________12___________5____________3 4行| ぶどう____________15___________7____________8 5行| バナナ____________3_____________1____________4 上図のようにデータがあります。 (実物は列行共に膨大です。また条件を4つ以上つける予定なので条件付書式は使えません) 各列の基準値に対して、セルの増減が、0以下のときに黄色に、5から8のとき大きくなるときに赤、9以上のときに青にセルの色を塗りつぶしたいです。 どのようにすればよいでしょうか? B列の場合、基準値が5です。 B2のセルの場合、基準値5と1(B2セル)の増減は-4です。 増減が0以下のときは黄色に、増減が5から8のときは赤に、増減が9以上のときに青にするので、このときは黄色に塗りつぶします。 B3のセルの場合、基準値5と12(B3セル)の増減は7です。 増減が5から8のとき赤に塗りつぶすので、このセルは赤に塗りつぶします。 B4のセルの場合、基準値5と15(B4セル)の増減は10です。 増減が9以上のとき青色に塗りつぶすので、このセルは青色に塗りつぶします。 C2のセルの場合は、C列の基準値は1(C1セル)です。 基準値1と9(C2のセル)の増減は8です。 増減が5から8のとき赤に塗りつぶすので、このセルは赤に塗りつぶします。 よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- VBAでセルを条件数う塗りつぶしたい
特定のセル文字(記号)を入力すると、その横のセルに条件分の数セルを塗りつぶしたいです。 条件付き書式ではなんとかできたのですが、できればVBAでできればと思っています。 たとえば、◎なら右に3つ黄色に △なら右に2つ青 ○なら右に1ピンク ☆なら、表の端まで赤に。 すべて、表が終われば、塗りつぶしはなしにしたいです。 どうか、よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- エクセルでのセルの色づけ方法
教えてください。 エクセルで、8000行、15列程度の表があります。 例えば、A2に、Aと入力すると、A2とA1の両セルが水色 Bと入力すると、A2とA1の両セルが黄 Cと入力すると、A2とA1の両セルが赤 他にも、例えば C4に、Bと入力すると、C4とC3の両セルが赤 Bと入力すると、C4とC3の両セルが黄 Cと入力すると、C4とC3の両セルが赤 などのように、A=水色 B=黄色 C=赤になるように 条件付き書式を設定し、その書式を他のセルへコピーして、 1000行位までは、ちゃんと保存できたのですが、8000行程度まで、コピーして、保存すると、『保存できません』と表示されてしまい、1000行以上は条件付き書式のコピーをしても、コピーはできますが、保存できないため、大変困っています。。。もしかして、条件付き書式には、書式のコピーができる制限があるのでしょうか?あとは、VBなどで対応 するしかないのでしょうか。VBもまったく分かりません。。 是非、よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- セルの色付けについて
例えば セルAの1に「1」と入力したときセルB1が赤に「2」と入力 したときに青に「3」と入力したときにはピンクに・・・。 と色付ける方法を教えてください。 説明不足でしたら書き込んでください。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセル2007でのセルの自動色付けについて
エクセル2007を使用しています。 例えば、A1:D20の各セルに数値が入力された時、20以下の数値は青色、21~40は黄色、41以上は赤色としたい時は、どのようにしたら良いのでしょうか。 「ホーム」→「条件付き書式」→「新しい書式」→????この後がわかりません。 それとも別の方法があるのでしょうか。 どなたかご教授をお願いいたします。
- ベストアンサー
- オフィス系ソフト
- セル色の設定(条件付書式4つ以上)
A B C D 1 あ い う 2 60,000 A2のセルはリストボックスになっていて10,000だったらセル色”青”、30,000だったら”赤”40,000だったら"ピンク"60,000だったら”黄色”に。(この時点で条件付書式4つ以上となり設定できませんでした)セルA1,B1,C1はA2のセル色が変わった色と同色の色が入るようにしたいのです。また、色番号からセル色を入れるというのもできるのでしょうか。VBAはわかりませんので簡単な方法がありましたら教えてください。よろしくお願いいたします。
- 締切済み
- Windows系OS
- 【VBA】条件を満たしたセルを塗り潰し
VBAで下記のようにしたいのですが、どのようにすれば良いでしょうか? A 1 100 2 110 3 120 4 130 5 140 6 150 7 160 8 170 9 180 【条件】この場合、A1:A9の範囲内でB1の値を超える値が入力されているセルを黄色で塗りつぶす ※前提として、B1に150と入力されているとします 上記のようなVBAを作成したいと思っています。 この場合、塗りつぶしの対象となるセルはA7,A8,A9となります。 条件付き書式で対応できるのですが、Excel2007で作成したファイルをExcel2003で開くと条件付き書式が反映しませんでしたので、VBAで対応しようと思いました。 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルのセルへの色づけ方法について
現在、エクセルで統計用のデータシートを作っているのですが、あるセルにデータが入力されると、別の列で同じ行のセルの色が変わる、という設定をしたいのです。 たとえば、 B列のセルに数字or分数が入れられた場合はA列同行のセルが黄色 C列のセルに数字or分数が入れられた場合はA列同行のセルが赤色 D列のセルに数字or分数が入れられた場合はA列同行のセルが青色 E列のセルに数字or分数が入れられた場合はA列同行のセルが緑色 表自体はAに入力されているデータで管理されているので、そこから横に派生していく条件によってAのステータスが確認できるようにしたいと思っております。 つまり、B,C,D,E,のいづれかにデータが入力された場合、その列に応じてAの色が変わるという設定です。 色が3色だったら条件つき書式で設定が出来ましたが、四色以上になってくるとIF関数を使い =IF(B1>=1,"S",IF(C1>=1,"O",IF(D1""," ","D")))みたいな式を設定し 更にそのセルを確認して色を変える方法しか思いつかず。。。 ただでさえ非常に横に長いシートなので、不必要に使用する列を増やしたくないのと出来るだけ簡素化した表にしたいと思っております。 どなたかエクセルに詳しい方がいらしたらご教示いただけないでしょうか? 尚、エクセルは2003でOSはVISTAを使用しております。 お手数ですが宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 【Excel】 改ページ場所を設定するVBA
こんにちは A列 B列 品番 色 1000 赤 1000 黄 1001 黄 1001 青 1002 青 1002 赤 ・ ・ ・ このような表があります。 これを、 ----------------- 品番 色 1000 赤 1000 黄 ----------------- 品番 色 1001 黄 1001 青 ----------------- 品番 色 1001 黄 1001 青 ----------------- や、 ----------------- 品番 色 1001 青 1002 青 ----------------- 品番 色 1000 赤 1002 赤 ----------------- 品番 色 1000 黄 1001 黄 ----------------- の様に 品番毎や、色毎に改ページしてプリントする方法を教えて下さい。 VBAで設定できるみたいなのですが、VBAは初心者です。 設定方法を教えて頂けないでしょうか。 Excel2007です。
- ベストアンサー
- オフィス系ソフト
- VBA 時間の表示の判定
VBAで時間の判定をしたい場合 どのようなコードを書けばよいでしょうか? 条件書式や、書式設定などの方法はたくさん載っていますが VBAで行いたいです。 具体的はA1からJ1セルにh:mmのフォーマットで時間が表示されています。 マクロを実行すると、A1からJ1の範囲内で マイナス表示のセルは赤で塗りつぶし 0:15以内なら黄色で塗りつぶし 0:15以上なら青で塗りつぶしを行いたいです。 よろしくお願いします。
- ベストアンサー
- Excel(エクセル)
お礼
ややこしい質問に回答いただき ありがとうございます。 どうも、いろいろ質問に抜けがあるみたいでまことに すみません。 もうすこし質問文を整理してから、また再度 質問 したいと思います。 お付き合いほんとうにありがとう ございました。次回お目にとまりましたらまた ご指導よろしくお願いします