- ベストアンサー
ExcelVBAで特定条件の塗りつぶし方法
xls88の回答
総当たりでやってみます。 (例1) Dim rng As Range Dim c As Range Dim idx As Variant Set rng = Range("B1:B100") For Each c In rng Select Case c.value Case "りんご": idx = 3 Case "オレンジ": idx = 46 Case Else: idx = xlNone End Select c.Interior.ColorIndex = idx Next c
関連する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
- 【エクセル】リストと一致するデータを抽出し、文字に色をつけることは可能でしょうか?
エクセルで作成したファイルの【シート1:表】に様々なデータを打ち込んでおり、【シート2:リスト】にはリスト一覧を入れています。 シート1の表で、リストと該当する文字列だけに色をつけることは可能でしょうか。表はこのような感じです。 【表】 A列 B列 1 りんご apple 2 りんごを食べる eat an apple 3 みかん orange 4 みかんを買う get an orange 【リスト】 A列 B列 1 りんご apple 2 みかん orange このような表なのですが、例えば、1行目、3行目はリストと同じなので赤い文字で表示し、A2のセルの「りんごを食べる」の「りんご」とB2セルの「eat an apple」の「apple」、またA4セルの「みかんを買う」の「みかん」と「get an orange」の「orange」の文字列だけを赤字にするようなことは可能でしょうか。 少量のデータなら手作業で変更できるのですが、データが大量にあるため手作業では追いつかず困っています。どなたかご存知の方がいらっしゃいましたら、よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excel VBAにおける複数条件での検索方法
以下のように、Excelシートがあって このExcelシートで以下の条件で検索、その結果を返すVBAを作りたいのですが、悩んでいます。 検索条件 果物:りんご 産地:青森 複数ある時は、購入日が一番古いものを選ぶ。 更に複数ある時は、値段の安いものを選ぶ。 ⇒行番号を返す これで、1つの行が選択できたら、そのF列に「在庫なし」を挿入する。 A列 B列 C列 D列 E列 F列 1行 購入日 果物 産地 数量 値段 在庫 2行 2017/4/10 りんご 青森 2 110 3行 2017/4/10 みかん 愛媛 3 350 4行 2017/4/10 りんご 青森 1 100 5行 2017/4/10 りんご 長野 2 120 6行 2017/4/12 みかん 静岡 3 350 7行 2017/4/13 みかん 愛媛 2 240 8行 2017/4/14 りんご 長野 2 120 9行 2017/4/15 りんご 青森 1 100 結果としては、上から4行目のリンゴのF列に「在庫なし」が 入るようにしたいです。 すみません、いろろと調べてはいるのですが、ちょっとわからず、こちらに投稿しました。どなたか、わかる方教えていただければ幸いです。 よろしくお願いします。
- 締切済み
- Visual Basic
- 条件付書式の延長で・・・
初めて利用させていただきます。どうか教えてください。 いくつかのページを拝見したのですが、自分の問題解決には至りませんので助けて頂きたいのです。 ○○さん りんご みかん メロン ぶどう △△さん みかん ぶどう 柿 ××さん りんご めろん りんご 上記の様な時に、「りんご」のセルは赤、「みかん」のセルはオレンジに「ぶどう」のセルには紫、「メロン」のセルには緑、「柿」のセルには黄色と言ったように『セルの背景色』を指定したいのですが何とかなるものでしょうか?
- ベストアンサー
- オフィス系ソフト
- マクロについて質問です。
A B C 1 3 りんご 2 赤 3 くだもの 4 6 みかん 5 オレンジ 6 くだもの 7 9 ぶどう 8 紫 9 くだもの というデータがシート1にあったとして、シート2のa2セルに6と入力すると以下のようにa5セル以降に抽出し、6という入力を消すと抽出したものも消えるようなマクロを教えていただきたいです。どうかよろしくお願いします。 6 みかん オレンジ くだもの
- ベストアンサー
- Excel(エクセル)
- エクセルで管理している特定のデータを探す方法
お世話になっています。 エクセルで下記のようなデータを管理しています。 A B C 1さん りんご 110 2さん りんご 110 3さん みかん 220 4さん 柿 330 5さん 柿 330 6さん 柿 340 7さん キウイ 440 8さん キウイ 420 9さん メロン 550 … … A列に購入者名、B列に果物名、C列に値段が入力されています。 通常は同じ果物は同じ値段なのですが、極まれに同じ果物なのに違う値段が入力されているデータがあります(上の例では6さん7さん8さんなど)。 これらをピックアップしたいと考えています。 現在考えている方法は、 B列が2つ以上同じデータのとき、それらの値段でひとつでも異なるデータがあれば、D列に×印を付けることを考えています。 これを実現するVBAをご教示いただけますでしょうか。 また、他に良い方法がありましたらぜひ教えてください。
- ベストアンサー
- オフィス系ソフト
- EXCEL2007 条件付き書式
変数AとBがあります。AorBと一致するセルのみを活かして一致しないセルを書式と文字列をクリアするにはどのようにすればいいでしょうか??? EXCEL2007 条件付き書式→数式を用いて・・・関数ORをつかってみましたがうまくできません。 ちなみにABの変数にはすでに背景色が設定されており、そのまま活かして残したいです。 例えると、データは以下のように表になっています。 {りんご みかん} りんご ばなな すもも すいか みかん りんご・・・・・・・ {いちご れもん} ばなな りんご すもも すいか いちご れもん・・・・・・・ 処理後↓ {りんご みかん} りんご みかん りんご・・・・・・・ {いちご れもん} いちご れもん・・・・・・・ 上記のような感じで処理できればと思います。 VBAの知識も無く、処理できず困っています。宜しくお願いします!
- 締切済み
- オフィス系ソフト
- エクセル AVERAGEを取るときに
平均値を取りたいのですが 範囲が少し複雑だったのでどのように式を作ったらいいのか わかりません。 シート1に A列 りんご みかん ばなな このようにデータがありそれぞれシート2にある りんご の個数の平均値をB列に求めたいのですが シート2には A列 B列 りんご 3 8 9 みかん 5 9 10 このように果物の種類の項目名が1番上にしかなく 個数はそれに対して必ず3行あるので VLOOKUPなどを使うとりんごと書かれている真横のセルしか 参照しないので常にその項目の横のセルから3行を参照したい のですが どうしたらよいでしょうか? 教えてください。よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセル 他シートに特定項目のみ自動入力する方法
質問 エクセルで、次のように設定することが、関数またはマクロでできませんでしょうか。どうか知恵をお貸しください。 Sheet1(購入一覧) 果物 単価(円) 個数 購入金額(円) みかん 100 2 200 りんご 200 3 600 Sheet2(みかん) Sheet1の「果物」列で「みかん」と入力すると、「みかん」行全体(「果物」列~「購入金額(円)」列まで)が自動入力される。 一方、Sheet1で「果物」列に他の果物(りんごなど)を入力しても、Sheet2に自動入力されない。 Sheet3(りんご) Sheet1の「果物」列に「りんご」と入力すると、「りんご」行全体(「果物」列~「購入金額(円)」列まで)が自動入力される。 一方、Sheet1で「果物」列に他の果物(みかんなど)を入力しても、Sheet3に自動入力されない。
- ベストアンサー
- Excel(エクセル)
- 条件付き書式について
条件付き書式について A B C 件数 売上商品名 売上日 0 リンゴ 1/1 4 リンゴ 1/2 3 リンゴ 1/3 0 リンゴ 1/4 上記のような表をエクセル2003で作成しました。 A列の3行目と6行目の0件は誤入力です。 そこで質問なのですが、Bにリンゴの入力があり、かつ、 A列に0が入っていれば、セルを黄色にする条件付き書式 設定をしたいのですが、やり方がよくわかりませんでした。 教えてください。 あと、できればVBAで出来る方法も教えていただければ幸いです。
- ベストアンサー
- オフィス系ソフト
お礼
素晴らしい。思い通りの事ができました。 回答ありがとうございました。