- ベストアンサー
エクセル ＶＢＡについて
Ａ、Ｂ、Ｃの黒色の丸い図があるとします。 ＡとＣが赤だったらＢが青になるようにしたいのですがどうすればよろしいのでしょうか。 詳しい方いましたらよろしくお願いします。
- n5s1r3k1
- お礼率65% (28/43)
- その他（プログラミング・開発）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- エクセルについて。
エクセルでお願いします。xpを使用しています。Ａ１からＡ３までを白、Ａ４からＡ６までを黒という具合に、 白、黒、赤、青、黄、緑、オレンジ、ピンクと８つの色を付け、次の列のＢ１からＢ３までのどれかに数字を入れて、それをまた各色ごとに同じように数字を入れ、その数字の小さい(若い？)順に色を並べかえ、Ｃ列に表示させる事は可能でしょうか？
- ベストアンサー
- Windows XP
- エクセルの数式教えて下さい
セルＡの列にＡっていれたらＢ1とＣ1が赤く ＢっていれたらＣ1とＤ1が青く ＣっていれたらＢ1とＥ1が黄色くセルに色をつけたいのですが‥ Ａの列（Ａ200まで英字を入れたい) Ａ（Ａ1） 赤（Ｂ1） 赤（Ｃ1） Ｂ（Ａ2） 青（Ｃ1）青（Ｄ1） Ｃ（Ａ3） 黄（Ｂ1） 黄（Ｅ1） Ｂ（Ａ4） 青（Ｃ1）青（Ｄ1） 教えて下さい
- ベストアンサー
- オフィス系ソフト
- エクセルＶＢＡ 全ての組み合わせを作る
エクセルＶＢＡで、全ての組み合わせを表現する方法を教えてください 既にＡ列に色、Ｂ列に数字、Ｃ列にサイズが入力済みだとします Ａ Ｂ Ｃ 1 色 数字 サイズ ←タイトルの行 2 赤 １ Ｓ 3 青 ２ Ｍ 4 緑 ３ Ｌ （完成例） Ｄ Ｅ Ｆ 1 色 数字 サイズ ←タイトルの行 2 赤 １ Ｓ 3 赤 １ Ｍ 4 赤 １ Ｌ 5 赤 ２ Ｓ 6 赤 ２ Ｍ 7 赤 ２ Ｌ 8 赤 ３ Ｓ 9 赤 ３ Ｍ 10 赤 ３ Ｌ 11 青 １ Ｓ 12 青 １ Ｍ 13 青 １ Ｌ 14 青 ２ Ｓ 15 青 ２ Ｍ 16 青 ２ Ｌ 17 青 ３ Ｓ 18 青 ３ Ｍ 19 青 ３ Ｌ 20 緑 １ Ｓ 21 緑 １ Ｍ 22 緑 １ Ｌ 23 緑 ２ Ｓ 24 緑 ２ Ｍ 25 緑 ２ Ｌ 26 緑 ３ Ｓ 27 緑 ３ Ｍ 28 緑 ３ Ｌ ・全ての組み合わせが表現できていれば、2～28行目は上の完成例の順番でなくてもいいです ・完成はＤ～Ｆ列の上から（2行目から）結果を反映させ、空白行を作らないようにする ・今回はＡ～Ｃ列の4行まで入力されている例をあげましたが、実際はＡ～Ｃ列の何行まで入力されているか随時変更します ・Ａ～Ｃ列のデータ入力は、必ず上から（2行目から）されています ・Ａ～Ｃ列のデータ入力は、5行目以降に続くこともあります ・Ａ～Ｃ列のデータ入力は、データがない場合もあります （データ入力がない場合） Ａ Ｂ Ｃ 1 色 数字 サイズ ←タイトルの行 2 １ Ｓ 3 ２ Ｍ 4 Ｌ （この場合の完成例） Ｄ Ｅ Ｆ 1 色 数字 サイズ ←タイトルの行 2 １ Ｓ 3 １ Ｍ 4 １ Ｌ 5 ２ Ｓ 6 ２ Ｍ 7 ２ Ｌ 空白行が出来てしまってはいけないので、『まずデータ入力されている列を認識し、認識した列の情報で全ての組み合わせを作成する』という考え方なのかな？と思ったのですが、そのようなことをエクセルＶＢＡでできるのでしょうか もし分かる方がいたら教えてください よろしくお願いします
- 締切済み
- Excel（エクセル）
- エクセルの関数での処理方法
下記のようなデーターベースがあります 列 A B C D E F 行 4/1 4/10 4/20 1 青 100 青 1100 青 11000 2 黄色 200 黄色 1200 黄色 12000 3 緑 300 緑 1300 緑 13000 4 赤 400 赤 1400 赤 14000 5 紫 500 紫 1500 紫 15000 6 黒 600 黒 1600 黒 16000 7 白 700 白 1700 白 17000 8 茶 800 茶 1800 茶 18000 9 水色 900 水色 1900 水色 19000 10 朱色 1000 朱色 2000 朱色 20000 上の図では分かりにくいかも知れませんが、 A列には上から4/1、青、黄・・・ B列には上から空白、100、200・・・ C列には上から4/10、青、黄・・・ D列には上から空白、1000、2000・・・ E列には上から4/20、青、黄・・・ F列には上から空白、10000、20000・・・と並んでます。 4/1の項目は4/9までの値段 4/10の項目は4/19までの値段 4/20の項目は4/30までの値段になります。 4/5、4/10/、4/15、4/25の白の値段を調べるにはどのようにすればいいでしょうか？ 4/5、4/10、4/15、4/25のそれぞれに VLOOKUP関数の式を入れて調べるんではなく ひとつの式を入れて調べる日付のセルの値だけが 変わるだけで 全部同じ式で反映されるようにしたいんですが・・・ できますか？ VOOLUP関数やIF関数を組み合わせてやってるんですが うまくいきません。 それともマクロでないとできないですか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル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
- Excel VBA データを抽出して各シートにコピー
色々調べましたが、同じものがなく苦戦しています。 Ａ Ｂ Ｃ Ｄ 色 成績 １ 赤 優 １ １ 黄 可 １ 白 優 １ 青 可 １ １ 緑 可 上記データをシート“Ａ”、“Ｂ”、“Ｃ”、“Ｄ”に振り分けたいです。 １が立てばそのシートに“色”より右側が転記されるようにしたいです。 ちなみに、１が重複で立っているものは、それぞれに転記です。 ■シート“Ａ”は… 色 成績 赤 優 緑 可 ■シート“Ｂ”は… 色 成績 黄 可 白 優 ■シート“Ｃ”は… 色 成 黄 可 ■シート“Ｄ”は… 色 成 青 可 緑 可 となるようにです。 ２日程、これだけに苦しんでいます。 ご教授いただければ幸いです。
- ベストアンサー
- オフィス系ソフト
- エクセル２００３のＶＢＡで困っています。
エクセル２００３のＶＢＡで困っています。 Ｄ３～Ｄ５０の中で○のセルが合った場合にその行のＡ列～Ｃ列までのセル背景を青く塗るようにしたいです。 ちなみに△の場合は黄色で×の場合は赤色でそれ以外の場合は塗色なしにしたいです。 上記の説明が分かにくいかもしれないので、もう少し具体例を言います。 Ｄ３～Ｄ５０の中でＤ５が○だったらＡ５～Ｃ５の背景を青色 Ｄ１０が△だったらＡ１０～Ｃ１０の背景を黄色 Ｄ１５が×だったらＡ１５～Ｃ１５の背景を赤色 Ｄ２０がそれ以外だったらＡ２０～Ｃ２０の背景を塗色なし を各行（Ｄ３～Ｄ５０）になるようにしたいです。 以上ですが、急ぎですので誰かお願い致します。
- 締切済み
- オフィス系ソフト
- エクセルVBAについて
現在、エクセル2010を使用し文字色が黒だったら1と加算しそれ以外は0というVBAを VBA素人ながら、コピペしながら組んでいました。 以下 'ColorIndex = 1 は、黒です ３は赤 黄色は7 青は 5 '============================================ Function fcolor(a As Range, b As Integer) Dim c As Range, cu As Integer, frg As String Application.Volatile For Each c In a With c.Font If b = 1 Then If .Color = vbBlack Then cu = cu + 1 Else If .ColorIndex = b Then cu = cu + 1 End If End With Next fcolor = cu End Function という風にし、範囲を=fcolor(D3:E37,1)としていますが、 本当なら”0”と表記されるべきなのですが”66”となってしまいます。 VBAど素人なのでよろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセルVBA 集計
事情がありピボットテーブルを使用しないで実現したいです シート1のドロップダウンリストで集計したい項目を2つ選択(15項目中) 例えば、項目1が色、項目2が形と選択 シート2に500件程(数が増える)のデータがあり、シート3へ集計 (シート3) A | B | C | D |・・・・・・ 1|色|数|形|数|・・・・・・ 2|赤|30|○|10| 3|青|20|△|20| 4|白|40|□|30| 5|黄|40| ・ ・ シート1で設定した項目1でシート3の1行目を参照し、合致したデータをシート4のA列、B列に貼り付け シート1で設定した項目2でシート3の1行目を参照し、合致したデータをシート4の1行目、2行目に貼り付け 数値は例えばC3なら赤で○のものを表示 (シート4) A | B | C | D |・・・・・・ 1| | 形 |・・・・・ 2| | |○|△|□| 3| |赤|20|10|16| 4|色|青|10|15|23| 5| |白|14|15|35| 6| |黄|17|15|35| ・ ・ このような感じでシート4を作るVBAをご伝授ください。 シート1、シート2、シート3は出来ているので大丈夫です。 稚拙な説明ですいません。 よろしくお願いいたします。
- 締切済み
- オフィス系ソフト
お礼
大変勉強になりました。 勉強不足です。 またお願いします