ベストアンサー 色の取得について 2005/12/14 21:21 例えば、セルA1でセルの書式設定で赤色を設定したときに、 その色情報（ColorIndex = 3）を取得するプログラムは可能でしょうか？ みんなの回答 （1） 専門家の回答 質問者が選んだベストアンサー ベストアンサー masa_019 ベストアンサー率61% (121/197) 2005/12/14 22:06 回答No.1 こんにちは。 セルA1の背景色を赤に設定する時は Range("A1").Interior.ColorIndex=3 のようにしますよね。 object.property=○○○ の形で設定できるプロパティは、たいていの場合 =object.property とするとその設定値を取得できます。 ですから、 X=Range("A1").Interior.ColorIndex MsgBox X とすると、3が表示されます。 （変数Xに受けないで、直接 MsgBox Range("A1").Interior.ColorIndex とすることも出来ます。） 質問者 お礼 2005/12/15 21:12 回答どうもありがとうございます。 解決することができました。 >object.property=○○○ >の形で設定できるプロパティは、たいていの場合 >=object.property >とするとその設定値を取得できます。 とても勉強になりました。 本当にありがとうございました。 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 カテゴリ [技術者向] コンピュータープログラミング・開発Visual Basic 関連するQ&A エクセルVBAで条件付書式の色を取得 セルに条件付書式で書式設定してあります。 A1は「値」100以下 A2は「値」500以下 A3は「値」１～１０の間 B1は「数式」で=B1<A1 以下さまざまな数式があります。 条件に一致すると、セルの文字が「赤」になります。 このとき、 Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox Target.Font.ColorIndex End Sub を実行しても、ColorIndexは、赤の「3」ではなく「-4105」と表示されます。 「-4105」は何もフォントの色を指定してないセルでも同じく表示されます。 質問１．条件付書式で、条件が一致して表示されたフォントの色は取得できないのでしょうか？ 質問２．-4105とは何でしょうか？ EXCEL2007セルの色を数式で取得したい EXCEL2007セルの色を数式で取得したい EXCEL2007で条件付き書式を使って現在使って特定の値が入っているセルを 条件付き書式を使って背景を赤色を変えるというシートを作成しました。 さらに、特定のセルをダブルクリックすると書式を水色に変わるという処理 をVBAで実現したのですが、既に条件付き書式によって赤くなっているセルの 背景色を水色に変えることができません。 つまり、書式設定した背景色が条件付き書式の背景色につぶされてしまいます。 書式設定した背景色(水色)の方を優先させたいので、条件付き書式の条件に セルの書式に背景色が設定されているときには条件外とするようにしたいのですが。 どうやって、数式で書式設定した背景色を取得できますか？ もしくは、他の方法で実現できるアイデアがありましたら、紹介してください。 どうぞ、よろしくお願いいたします。 perlとOLEでのExcelのフォント色を取得 お世話になります。 Perl の OLEを使用して、エクセルの解析を行なっています。 そこで、エクセルの１つのセルに入っている文字の赤色の部分だけを取得したいと思います。 、 例えば、そのセルには [ わたしは チョコレート が好きです ] と書いてあり、 「チョコレート」が赤、その他は黒で書かれています。 それらのようなセルがＡ列に１０行あり、 赤い部分の文字だけPerlのOLEで取得したいのですが、うまくいきません。 試しに ColorIndex を使用してみたのですが、取得できませんでした。 どなたかご存知の方がいらっしゃいましたら、方法をご教授いただけませんでしょうか。 よろしくお願いいたします。 ネットワークエンジニアとは？技術職の未来を考える OKWAVE コラム セル色を取得するユーザー関数 セル色を取得するユーザー定義関数として、 Function CellColor(objCell As Range) As Integer Application.Volatile CellColor = objCell.Interior.ColorIndex End Function 上記のコードを標準モジュールに貼り付け、例えばB2セルに「=CellColor(A2)」という計算式を入力すると、B2セルにA2セルの塗りつぶし色のColorIndex値が表示されるようになります。 これをB2セルに例えば「=CellColor()」というように入力すれば B2セルにB2セルの塗りつぶし色のColorIndex値が表示されるようにするには、 どのようなユーザー関数を作ればよいでしょうか？ よろしくお願いします。 エクセルで土・日のセルに幅広く色をつけたい エクセルで予定表を作成しています。A列に日付・BからH列まで項目を設けています。（A列は、33行目まで日付が入力されています） A列に条件付書式で、条件付書式の設定で条件（1）数式が＝WEEKDAY（A33）＝1 パターン 色 ブルー フォント 赤 A列に条件付書式で、条件付書式の設定で条件（2）数式が＝WEEKDAY（A33）＝7 パターン 色 グリーン フォント 赤 の設定を行いました。 A列の 土・日のフォントが赤に、セルの色がブルー・グリーンになるのですがBからH列はセルに色がつきません。 A33：H33 までの設定にするとセルの色がグレーになります。 AからHまでセルに同じ色を表示する設定はあるのでしょうか。 エクセルのセルの色について エクセル２００２を使用しているのですが、なんだか変です。 セルを赤色に塗りたいのですが、セルの書式設定→色を見ると 以前赤色があったところが灰色に変わっていて赤色を塗れません。 設定を元に戻したい（変えたい）のですが、どこからやればよろしいでしょうか。宜しくお願いします。 Excel VBA セルの色の取得は可能？ VBAにて、お世話になっています。 指定したセルの色が何色か取得は可能ですか？ 例えばsheet1のC11の ColorIndex=○○ ○○ は 何番かわかりますか？ Excel VBA 条件付書式の条件満たすセル取得 Excel2010のVBAで条件付書式の条件を満たすセルの番地を取得したい 具体的には、 Excel2010のあるシートのあるセル範囲(例えばA1～XFD1048576)に 条件付き書式が付けてあって、 (例えば、数式の条件が満たされたら背景色を赤色にするなど) この条件を満たすセルに指定した書式が付けられて表示されています。 この状態で、VBAで、この条件を満たしたセルの番地を、 順番に取得したいのですが、どのように記述すればよいでしょうか。 【追記】 数式をすべてのセルに入れて検出する方法や セルをひとつずつ数式に当てはめてみていく方法は、 セルが膨大なため容量的・時間的にNGです。 このため、条件付き書式で回避しています。 条件付き書式の判定結果である書式(この場合でしたら背景色が赤色) で判断する必要があります。(書式は背景色が赤色でなくてもいいです) よく分かりませんが、検索の中の書式で指定しても、 この条件付き書式の判定結果の書式はヒットしませんでした。 セル範囲にある文字を入力されたら、別のセルの色が付く様にしたいですが。 A10からA20 までの表の中に終了や返却などと文字を入力されると A1のセルが赤色が付くようにしたいのですが、 調べてやってみましたがうまくいきません。 A1を選択して条件付き書式の「数式を使用して、書式設定するセルを決定」で =$A$10:$A$20="終了" としたのですがA10を入力した時しか色が変わりません。 調べてみてたのですが、どうにも答えが見つけられません。 どなたか教えていただけると助かります。 マクロは理解しきれていないので、書式設定で何とかしたいと考えています。 色の付いているセルを探す。（excel) range("a1:a20")の中で、色（赤）が付いているセルを探すのに、 findは使えませんか。 マニュアルのサンプルでは、whatのところは文字列の指定しか見つかりませんでした。 「Interior.ColorIndex = 3」のように使いたいのですが。 宜しくお願いします。 Excelの条件付き書式について Excelの条件付書式について教えてください。 次のようなことをしたいです。 (1)１０個のセルに次のような条件付書式を設定します。 ・条件１：セルの値が５以上だったらセルの塗りつぶし(パターン)を青色にする。 ・条件２：セルの値が５未満だったらセルの塗りつぶし(パターン)を赤色にする。 (2)別の１つのセルで上の１０個のセルを監視して すべてのセルが青色だったら"PASS"と表示する。 ひとつでも赤色のセルがあったら"FAIL"と表示する。 VBAを使用して、条件付書式が設定されたセルを参照し、 どちらの条件付書式が適用されているのか調べられるのなら、 それでもかまいません。 条件付書式でセルの色(パターン)を設定した場合、 セルの.Interior.ColorIndex 及び PatternColorを参照しても、 塗りつぶしはされてないという扱いになっているようです。 なにか方法があるでしょうか？ エクセル 条件書式？ セルの色を複数設定したい 色々試しましたが、どうしても解らないので質問させていただきます。 指定のセルと同じ内容のセルに色を付けたいのですが、条件書式では３つまでしか設定できなくて困っています。 1Ａ あ 2Ａ お 1Ｂ い 2Ｂ か 1Ｃ う 2Ｃ き 1Ｄ え 2Ｄ く 上のように１Ａ～１～Ｄのセルと同じ内容のセルなら赤 ２Ａ～２Ｄと同じ内容のセルなら青というように設定したいのですが・・・ 条件書式では無理なのでしょうか？ 説明が解り難かったらすみません、よろしくお願いします！ AIは使う人の年齢や市場にも影響する？人工知能の可能性 OKWAVE コラム エクセル 特定の文字を入れると他のセルの色が変わる 例えばセルＡ１に[りんご]と入力したらＢ２からＢ５までの文字の色が赤に変わる・・・などということは、関数や書式の設定なので出来るのでしょうか？ おわかりの方教えてくださーい！ セルの書式設定のユーザー定義でセルに式を入力したい エクセル2007を使っています。 「セルの書式設定」の「ユーザー定義」で、 例えば「赤」とセルに入力しただけで、セルに「赤色」と表示される方法はわかるのですが（@"色"）、 Ａ１セルに「赤」と入力されているとして、 隣のＢ１セルを上記のようにセルの書式設定で「@"色"」と設定して、 Ｂ１セルに「=Ａ１」と入力しても 「＝Ａ１色」と表示されてしまいます。 これを「赤色」とＢ１セルに表示させたいのですが、どうしたらいいのでしょうか？ つまり、セルには式を入力して、尚且つ書式設定もしたいと思っています。 宜しくお願いします。 Excelで特定日が来たら色を変える 失敗例 １．入力して欲しいセルを選択 ２．メニューから「書式」→「条件付き書式」 ３．条件付書式の設定に「セルの値が」「次の値に等しい」「=**/11/**」と入力して、「書式」ボタンを押して色の赤を選択 見事失敗でした。ワイルドカードは無理なんですね こういった場合 たとえば セルに 2008/11/11 と誕生日を入力し、別のセルに＝TODAY() を設定した場合、毎年11月になった場合 赤色か点滅とかいった表現方法はあるでしょうか セル色の設定（条件付書式4つ以上） Ａ Ｂ Ｃ Ｄ １ あ い う ２ 60,000 A2のセルはリストボックスになっていて10,000だったらセル色”青”、30,000だったら”赤”40,000だったら"ピンク"60,000だったら”黄色”に。（この時点で条件付書式4つ以上となり設定できませんでした）セルA1,B1,C1はA2のセル色が変わった色と同色の色が入るようにしたいのです。また、色番号からセル色を入れるというのもできるのでしょうか。VBAはわかりませんので簡単な方法がありましたら教えてください。よろしくお願いいたします。 【Excel】 色の一致するセル数をカウントしたい。 こんにちは。 ある条件にあてはまるセルに、書式でセルの色を設定してあります。 いくつかの条件で色分けしてあるのですが、これらのセルの色が「赤」は幾つ、「青」は幾つというふうに、 カウントすることは出来るのでしょうか。 よろしくお願いいたします。 Excelのテキストボックスでフォントの色を変える Excel2007を使っています。 テキストボックスのフォントの色を「自動的」に変更するやり方はないでしょうか？ 例えばセルのA1に「-1」という数値が入っているとします。 テキストボックスを作ってA1にリンクを張ります。 テキストボックスは「-1」となりますが 数値がマイナスになったら自動的に赤に表示することは可能ですか？ セルでは書式設定で「0_ ;[赤]-0 」とすることにより 数値によって自動的に色が変更できますが テキストボックスの中身を自動的に赤にする方法が分りません。 (手動で赤色にする方法は分かります) 宜しくお願いします 「条件付き書式の設定」で赤色に設定された数値を検索 「条件付き書式の設定」で赤色に設定された数値も検索できる方法があれば教えてください。 →エクセルにて、あるセルに「１」と入力。 →そのセルの右下にマウスカーソルを当てる。 →十字のマークが表示されたら、20位まで下の方向へ、右クリックしたままドラッグアンドドロップ。 →「連続データ」をクリック。 →そのすぐ右にも全く同じように1～20の数値を入力します。 →最も左上の「１」のセルを選択。 →画面の最上部のメニューバーにて、「書式」、「条件付き書式」とたどって、「条件付き書式の設定」の小さな画面を表示させる。 →「セルの値が」「次の値の間」「５」と「１０」と設定し、OKをクリック。 →最も左上の１のセルを選択。 →そのセルの右下にマウスカーソルを当てる。 →十字のマークが表示されたら、下に右クリックしたままドラッグアンドドロップ。 →「書式のみコピー」をクリック。 →すると、左の列の数値のうち、５～１０は赤色の文字で表示されます。 →赤色の文字で表示された５～１０のすぐ右側にある、黒色のままの５～１０の数値が入力されているセルを選択し、「書式設定ツールバー」の「フォントの色」をクリックして赤色の文字に設定。 →すると、右側の列の５～１０も赤色の文字で表示されます。 →結果、５～１０の数値で、左側は「条件付き書式の設定」で赤色に、右側は「書式設定ツールバー」の「フォントの色」で赤色に設定されます。 →編集、検索とたどって、「検索と置換」と題されている小さな画面を表示させます。 →「検索する文字列」にて、「?」と入力し、そのすぐ右側にある「書式」をクリック。 →「書式の検索」と題されている小さな画面を表示させます。 →「フォント」タブをクリック。 →「色」の欄の逆三角形をクリック。 →赤を選択。OKをクリック。 →「次を検索」をクリック。 →すると、2列の数値の並びのうち、右側で「書式設定ツールバー」の「フォントの色」で赤色に設定された５～１０だけが検索されます。 この時、「条件付き書式の設定」で赤色に設定された数値も検索できる方法があれば教えてください。 エクセル条件付き書式（空白でない場合に色を付ける、偶数行・奇数行毎に色を変える） エクセルの条件付き書式の設定で、 (1)セルが空白でない場合に色を付ける、 (2)偶数行・奇数行毎に色を変える という２つのことを同時に行う方法があれば 教えていただけないでしょうか？ （※空白セルは、色なしに設定） (1)=A1<>"" → 赤 (2)=MOD(ROW(),2)=0 → 青 =MOD(ROW(),2)=1 → 黄 上記の設定の場合、空白セルが青・黄になります。 入力すると赤に変わります。 こちらが行いたいことは、 【空白セルは「色なし」で、入力すると、 奇数行は黄色、偶数行は青になることです。】 例 ABC 1* ←A1は黄 2 * ←B2は青 3 A1とB2以外のセルは色なしとなるようにしたい。 ただし、入力した場合に色がつくようにしたい。 よろしくお願いします。 注目のQ&A 「You」や「I」が入った曲といえば？ Part2 結婚について考えていない大学生の彼氏について 関東の方に聞きたいです 大阪万博について 駅の清涼飲料水自販機 不倫の慰謝料の請求について 新型コロナウイルスがもたらした功績について教えて 旧姓を使う理由。 回復メディアの保存方法 好きな人を諦める方法 小諸市（長野県）在住でスキーやスノボをする方の用具 カテゴリ [技術者向] コンピューター プログラミング・開発 Microsoft ASPC・C++・C#CGIJavaJavaScriptPerlPHPVisual BasicHTMLXMLCSSFlashAJAXRubySwiftPythonパフォーマンス・チューニングオープンソース開発SEOスマートフォンアプリ開発その他（プログラミング・開発） カテゴリ一覧を見る OKWAVE コラム 突然のトラブル？プリンター・メール・LINE編 携帯料金を賢く見直す！格安SIMと端末選びのポイントは？ 友達って必要？友情って何だろう 大震災時の現実とは？私たちができる備え 「結婚相談所は恥ずかしい」は時代遅れ！負け組の誤解と出会いの掴み方 あなたにピッタリな商品が見つかる！ OKWAVE セレクト コスメ化粧品 化粧水・クレンジングなど 健康食品・サプリ コンブチャなど バス用品 入浴剤・アミノ酸シャンプーなど スマホアプリ マッチングアプリなど ヘアケア 白髪染めヘアカラーなど インターネット回線 プロバイダ、光回線など
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_3_thumbnail_img_sm.png)
お礼
回答どうもありがとうございます。 解決することができました。 >object.property=○○○ >の形で設定できるプロパティは、たいていの場合 >=object.property >とするとその設定値を取得できます。 とても勉強になりました。 本当にありがとうございました。