- ベストアンサー
ＶＢＡでセルに色付けは？
chukenkenkouの回答
- chukenkenkou
- ベストアンサー率43% (833/1926)
質問の意味が分からないのですが？ （１）セルＡ１とＢ１の関係は？ （２）セルＡ１に入れた数字で、セルＢに作用させたいということですか？ セルＢ１にセルＡ１と同じ数字を入れて、文字の色を変えたいということですか？ それなら、条件付き書式でできますが？
関連するQ&A
- エクセルVBA 条件にあうときセルを塗りつぶすには？
エクセルVBA 条件にあうときセルを塗りつぶすには？ エクセルVBAについて教えてください。 _________A 列 _________B 列_________C列_________D列 -------------------------------------------- 1行| 基準値_________ 5_____________1____________8 2行| りんご____________1_____________9____________０ 3行| みかん___________12___________5____________3 4行| ぶどう____________15___________7____________8 5行| バナナ____________3_____________1____________4 上図のようにデータがあります。 （実物は列行共に膨大です。また条件を４つ以上つける予定なので条件付書式は使えません） 各列の基準値に対して、セルの増減が、０以下のときに黄色に、５から８のとき大きくなるときに赤、９以上のときに青にセルの色を塗りつぶしたいです。 どのようにすればよいでしょうか？ B列の場合、基準値が５です。 B2のセルの場合、基準値５と１（B2セル）の増減は－４です。 増減が０以下のときは黄色に、増減が５から８のときは赤に、増減が９以上のときに青にするので、このときは黄色に塗りつぶします。 B3のセルの場合、基準値５と１２（B３セル）の増減は７です。 増減が５から８のとき赤に塗りつぶすので、このセルは赤に塗りつぶします。 B4のセルの場合、基準値５と１５（B４セル）の増減は１０です。 増減が９以上のとき青色に塗りつぶすので、このセルは青色に塗りつぶします。 C２のセルの場合は、C列の基準値は１（C1セル）です。 基準値１と９（C2のセル）の増減は８です。 増減が５から８のとき赤に塗りつぶすので、このセルは赤に塗りつぶします。 よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- VBAでセルを条件数う塗りつぶしたい
特定のセル文字（記号）を入力すると、その横のセルに条件分の数セルを塗りつぶしたいです。 条件付き書式ではなんとかできたのですが、できればVBAでできればと思っています。 たとえば、◎なら右に3つ黄色に △なら右に2つ青 ○なら右に1ピンク ☆なら、表の端まで赤に。 すべて、表が終われば、塗りつぶしはなしにしたいです。 どうか、よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- エクセルでのセルの色づけ方法
教えてください。 エクセルで、8000行、15列程度の表があります。 例えば、Ａ２に、Ａと入力すると、Ａ２とＡ１の両セルが水色 Ｂと入力すると、Ａ２とＡ１の両セルが黄 Ｃと入力すると、Ａ２とＡ１の両セルが赤 他にも、例えば Ｃ４に、Ｂと入力すると、Ｃ４とＣ３の両セルが赤 Ｂと入力すると、Ｃ４とＣ３の両セルが黄 Ｃと入力すると、Ｃ４とＣ３の両セルが赤 などのように、Ａ＝水色 Ｂ＝黄色 Ｃ＝赤になるように 条件付き書式を設定し、その書式を他のセルへコピーして、 1000行位までは、ちゃんと保存できたのですが、8000行程度まで、コピーして、保存すると、『保存できません』と表示されてしまい、1000行以上は条件付き書式のコピーをしても、コピーはできますが、保存できないため、大変困っています。。。もしかして、条件付き書式には、書式のコピーができる制限があるのでしょうか？あとは、ＶＢなどで対応 するしかないのでしょうか。ＶＢもまったく分かりません。。 是非、よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- セルの色付けについて
例えば セルAの１に「１」と入力したときセルB1が赤に「２」と入力 したときに青に「３」と入力したときにはピンクに・・・。 と色付ける方法を教えてください。 説明不足でしたら書き込んでください。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセル2007でのセルの自動色付けについて
エクセル2007を使用しています。 例えば、Ａ1：Ｄ20の各セルに数値が入力された時、20以下の数値は青色、21～40は黄色、41以上は赤色としたい時は、どのようにしたら良いのでしょうか。 「ホーム」→「条件付き書式」→「新しい書式」→？？？？この後がわかりません。 それとも別の方法があるのでしょうか。 どなたかご教授をお願いいたします。
- ベストアンサー
- オフィス系ソフト
- セル色の設定（条件付書式4つ以上）
Ａ Ｂ Ｃ Ｄ １ あ い う ２ 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で対応しようと思いました。 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルのセルへの色づけ方法について
現在、エクセルで統計用のデータシートを作っているのですが、あるセルにデータが入力されると、別の列で同じ行のセルの色が変わる、という設定をしたいのです。 たとえば、 Ｂ列のセルに数字or分数が入れられた場合はA列同行のセルが黄色 C列のセルに数字or分数が入れられた場合はA列同行のセルが赤色 D列のセルに数字or分数が入れられた場合はA列同行のセルが青色 E列のセルに数字or分数が入れられた場合はA列同行のセルが緑色 表自体はAに入力されているデータで管理されているので、そこから横に派生していく条件によってAのステータスが確認できるようにしたいと思っております。 つまり、B,C,D,E,のいづれかにデータが入力された場合、その列に応じてAの色が変わるという設定です。 色が３色だったら条件つき書式で設定が出来ましたが、四色以上になってくるとIF関数を使い =IF(B1>=1,"S",IF(C1>=1,"O",IF（D1""," ","D")))みたいな式を設定し 更にそのセルを確認して色を変える方法しか思いつかず。。。 ただでさえ非常に横に長いシートなので、不必要に使用する列を増やしたくないのと出来るだけ簡素化した表にしたいと思っております。 どなたかエクセルに詳しい方がいらしたらご教示いただけないでしょうか？ 尚、エクセルは2003でOSはVISTAを使用しております。 お手数ですが宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 【Excel】 改ページ場所を設定するVBA
こんにちは Ａ列 Ｂ列 品番 色 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（エクセル）
お礼
説明が足りなくてすみません。 セルＡ１にいれた数字に対して （０～２５まで変ります例では１０にしてます） Ｂ１に入れた数字を８段階の条件で色分けしたかったのです セルはＢ１としていますが、実際は２０セルぐらい使います。