- 締切済み
塗りつぶしの色
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- imogasi
- ベストアンサー率27% (4737/17068)
VBAとかマクロとかの言葉が、質問に全くでないが、VBAの経験者か。 回答者にコードを作ってほしいとは、丸投げは規約違反。 ーーー マクロの記録をとって （１）シートＡのＡ８のセルの色が青なら、という青を捉えるには どういうコードになるか （２）オートシェイプ（楕円１）の色（塗りつぶし色？）を赤（に設定） はどういうコードになるか （３）シートAやBの指定方法（掴み方）（コード上で） （４）楕円１や楕円２の掴み方（コード上で） （５）＞ったようにシートＡのセルは３つづつ、 を対象にする、というルールのコード化 ーー 必要になる技術要素（コードやロジック）はこんなものだろう。 こういうように、文章の上で考えて書き上げて、１つ１つ本やWEBで照会でもして作っていく。ベテランは頭の中にイメージが直ぐ出てきて、すぐコードを打ち込むが、そうは行かないだろう。 それなりに努力と時間が必要。 ーー それに質問は、セルの値に関して、静的なものと思う（出来上がったシートデータを対象に実行して終わりのタイプ）が、動的に考えるとなると少し大事だ。 ーーー ちなみに、関数では色とか、オートシェイプを捕まえることは出来ない。関数は「セルの値」を使えるだけ。
関連するQ&A
- オートシェイプの○に条件付きで色付けできますか？？
Ｓｈｅｅｔ１の複数のセルには日付が入っています。 これらには、条件付き書式で色付けするよう設定しています。 ・過ぎると赤 ・残り半年で黄 ・その他、青 この色付けを別のＳheet２に作ったオートシェイプの楕円に同じように色付けしたいんです・・・・。 連動して色付けすることは可能でしょうか？？ 実際は１００箇所以上あります。 どなたかできるかたよろしくお願いします！！ ２００３エクセルです。
- ベストアンサー
- オフィス系ソフト
- Excel2002でオートシェイプの数の拾い出し
こんにちは。 Excel2002です。 ワークシート内に、以下のオートシェイプを配置します。 (1)基本図形：丸。色を赤に設定 (2) 〃 青に設定 (3) 〃 黄色に設定 各色、ランダムに多数配置。 このオートシェイプの、それぞれの個数を数えて セルにその個数を記入させたいのですが、 そのような事は可能ですか？ また、どうやるか教えて頂きたいのですが・・・ 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAでの複数のオートシェイプの色塗り方法
ネットから下記のコードを見つけたのですが、１つのシートに複数のオートシェイプの色塗りを変更する方法を教えてください。 例えばセル"A1"には数値の1と"A2"には数値2を入力したら、 オートシェイプAにはセル"A1"に対応した色塗り『赤色』を オートシェイプBにはセル"A2"に対応した色塗り『黄色』といった感じです。 下記のコードをいくつも繋げれば、複数のオートシェイプの色塗りが出来ると思ったのですが、コードを繋げる方法がわかりません。その他に何か良い方法がありましたら教えてください。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) <> "A1" Then Exit Sub With ActiveSheet.Shapes("ABC").Fill.ForeColor Select Case Target.Value Case Is = "赤" .SchemeColor = 2 Case Is = "黄" .SchemeColor = 5 Case Is = "緑" .SchemeColor = 3 Case Is = "青" .SchemeColor = 4 Case Else .SchemeColor = 1 End Select End With End Sub
- ベストアンサー
- Visual Basic
- EXCELのシートの色を元に戻したい
知人からもらったEXCELのファイルを開いたら、シート全体が真っ白になっていてセルとセルを区切っている線が見えなくて困っています。シート全体を範囲指定して、塗りつぶしなしとしても元に戻りません。赤や青などの違う色にすると塗りつぶしができるのです。（なんで？）どうすればふつうのEXCELのシートに戻るのか教えてください。 ＊EXCEL2000使用
- ベストアンサー
- オフィス系ソフト
- セルをクリックしたら色を変えまたくりっくしたらもと
エクセル2010です。 お願いいたします。 セルをクリックしたら色を変え、またくりっくしたらもと戻す というのを したいのですが。 詳しく述べます。 セル範囲 （A1:K1） の範囲で そのセルをクリックしたら 黄色 また 同じセルをクリックしたら 色なし というものに できないでしょうか？ （A1:K1)以外のセルには、その方式は適応させないものとしたい。 または、オートシェイプを A1 A2 A3 A4 A5 A6 A7 A8 A9 の高さ 幅を ピッタリしたものを 各セルの上に配置して オートシェイプにそれぞれマクロを登録する 形で 同様なものが できてもいいと考えております。 詳しい方アドバイス いただければと 思います。
- ベストアンサー
- その他MS Office製品
- エクセルのマクロで数値に応じてオートシェイプの色を変更したいのですが・
エクセルのマクロで数値に応じてオートシェイプの色を変更したいのですが・・・ マクロは初心者なもので、同じような例を調べて何度も試みたのですが、なかなか思い通りに動くプログラムが作れません。 どなたかマクロに詳しい方、ご教授願えればと思います。 やりたいことは以下の通りです。 シートが２つあります。 Sheet1には210の村について、人口性比のデータが列挙してあります。 Sheet2には、地図の中に、全ての村の所在をオートシェイプで作った○に番号をつけて表示してあります。 マクロを用いてやりたいことは、 Sheet1のG列にある人口性比の数値に応じて、以下の条件を元にSheet2のオートシェイプ（210個すべて）の色を変更させたいのです。 -950以上ならば黄色 -900以上950未満ならば緑 -850以上900未満ならば水色 -800以上850未満ならば青 -800未満ならば紺 というぐあいに。 他のデータに関しても同様に地図上で数値に応じた色分けをしたいので、一つ手本になるものができれば非常に有難いのですが。。 あと、macを使っているのですが、なかなか成功に至らないのはwindowsとのVBAの互換性の問題もあるのでしょうか？？ どなたかアドバイス宜しくお願いします。
- ベストアンサー
- その他MS Office製品
- エクセル条件付き書式（空白でない場合に色を付ける、偶数行・奇数行毎に色を変える）
エクセルの条件付き書式の設定で、 (1)セルが空白でない場合に色を付ける、 (2)偶数行・奇数行毎に色を変える という２つのことを同時に行う方法があれば 教えていただけないでしょうか？ （※空白セルは、色なしに設定） (1)=A1<>"" → 赤 (2)=MOD(ROW(),2)=0 → 青 =MOD(ROW(),2)=1 → 黄 上記の設定の場合、空白セルが青・黄になります。 入力すると赤に変わります。 こちらが行いたいことは、 【空白セルは「色なし」で、入力すると、 奇数行は黄色、偶数行は青になることです。】 例 ABC 1* ←A1は黄 2 * ←B2は青 3 A1とB2以外のセルは色なしとなるようにしたい。 ただし、入力した場合に色がつくようにしたい。 よろしくお願いします。
- ベストアンサー
- Windows XP
- 数値によって、オートシェイプの色が変わる方法
エクセルに2つのシートがあります。シート１には15営業所の年度別販売個数があります。シート２には、自分で作成した地図があり、15営業所の位置をオートシェイプで作成した●（丸）で地図内に表示しています。 次にシート1において対前年度比率を営業所別に求めました。（例 Ｓ営業所 対前年度106％の販売増） この対前年度比率に応じて、シート２のオートシェイプの色は、変えられるのでしょうか？ 具体的には、対前年度100％～105％はオレンジ、106％～110％は赤・・・というようにしたいのです。 数値に応じてセルの色を変える方法は分かるのですが、指定したオートシェイプの色は変えられるのでしょうか？ 関数、ＶＢＡでの解決方法を是非教えてください。よろしくお願いします。
- 締切済み
- オフィス系ソフト
- EXCEL２００２なんですが、色が付かないんです
最近パソコン（panasonic CF-W2)買ってofficeXP（EXCELは２００２）入れたんですが、今気づいたんですが、シートに色がつかないんです。 オートシェイプの色（線や塗りつぶし）やセルに塗りつぶしがつかないんです。フォントの色はつきます。 どうしてでしょうか？ 他のパソコンへ、メールの添付ファイルで送ると、色の付いていなかったEXCELに色が付いてます。 どこの設定を変えればいいのでしょうか？ あせって色々やっても効果がありません。 どうぞよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- セルの塗りつぶしの色を好きな色に固定したい。
Excel2003で、セルの塗りつぶしの色が黄色に固定されていて、いつもは青色を使うので、ファイルを開いたときに最初から塗りつぶしの色が青色になってればよいのですが、青色を選択して上書き保存しても、ファイルを開けば黄色になっています。 なのでファイルを開くたびにセルの塗りつぶしの色を青色に選択しなおしてから塗らないといけません。 最初からこれを青色に固定する方法ってありますでしょうか？
- ベストアンサー
- オフィス系ソフト
お礼
おっしゃるとおり 確かにまったくの素人でここでできたらラッキーという感じだったかもしれません。 一応、勉強はしているのですが、 基本がないためまったくもって前に進みません。 背景色を掴むには Interrior ColorIndex だから何っていう状態です。 楽をしようという考えがだめなんでしょうね？