ベストアンサー エクセルＶＢＡでセルの色を取得できますか？ 2005/03/15 12:51 エクセルＶＢＡについて教えてください。 セルの色のカラーコードを取得とかってできますでしょうか？ 「#000000」みたいに。 みんなの回答 （1） 専門家の回答 質問者が選んだベストアンサー ベストアンサー jazzkazz ベストアンサー率37% (114/308) 2005/03/15 13:28 回答No.1 Range("A1").Interior.Color = &h0000FF と言った具合に設定が可能なので、この.colorの内容を取得すればできます。 ちなみに16進数で取得したい場合は、 Hex(Range("A1").Interior.Color) で上記例であれば、&h0000FFが返されます。 質問者 お礼 2005/03/15 13:51 できました！ ありがとうございます！ 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 カテゴリ [技術者向] コンピューター業務ソフトウェアその他(業務ソフトウェア) 関連するQ&A Excel VBA で色付きのセルの値を取得する ExcelのVBAマクロで、For ～ Then構文で複数のセルを参照していき、 色付きのセル（塗りなしのセル）に入力されている値のみを取得する方法を教えてください。 Excel2007を使用しています。 Excel VBA セルの色の取得は可能？ VBAにて、お世話になっています。 指定したセルの色が何色か取得は可能ですか？ 例えばsheet1のC11の ColorIndex=○○ ○○ は 何番かわかりますか？ エクセル VBA ある条件でセルに色をつけたいのですが、 エクセル VBA ある条件でセルに色をつけたいのですが、 例えば、A2からA50に文字列が入っていて、ある処理を終えると、空白を除くセルに薄い水色（33）をつけます。ここまでは、VBAで作成できました。 次に、空白を除くセルが、すべて薄い水色になったら、A1を薄い黄（36）にしたいのです。 教えてください。よろしくお願いします。 ネットワークエンジニアとは？技術職の未来を考える OKWAVE コラム Excelでのセル色のカウントについて Excelで、セルの色を取得するような事は出来ますか？ ある色だけをカウントしたいのですが・・。 CELL関数の"color"は何か違うような気がします。 エクセルVBAセルの色 前回の作成の作業スケジュールで、作業時間をセルの色で塗りました。 そこで、空白の時間帯を非表示にしたいと思います。 エクセルVBAにて、セルの色が空白ならその列を非表示にすることは可能でしょうか。 EntireColumn.Hidden = True あたりで表現できないでしょうか。 よろしくお願いします。 ＶＢＡ セル色取得 現在車の配車用のエクセルを作っているのですが、Ａ車、Ｂ車、Ｃ車が何時から誰が使用していたかを管理したくて、セルの色も一緒に表の中でかえたら見やすいかなと思っております。 そこで質問ですが以下の関数は難しいと思いますので、以下の形式で色を一気に取得できるコードを教えてください。 1.行は決まっておりますがどの時間帯になるかは不明 2.Ａ車は2ｈなので2列、Ｂ車は3ｈなので3列の色を変更 3.Ａ、Ｂ、Ｃそれぞれセルの色を変えたい。 書いていてつかみどころがなくなってしまいましたが、if~を使って任意のセルからrangeで色が指定できるコードを教えてくださればあとは何とかします。 よろしくお願いいたします。 エクセルVBAでセル選択 エクセル2000でリストを作成し、ＶＢＡで編集しようとしています。 Ａ列に入力されているコードの先頭に「’」をつけて文字列とするための関数をＢ２のセルからＡ列のデータが入力されている最後のセルの隣までコピーしたいと思っています。 Ａ列の最終セルを取得するＶＢＡは分かったのですが、その値をＢ列の選択範囲として使用する方法がわかりません。 エクセルＶＢＡは全くの初心者です。 どなたか教えてください！ Excel VBA セルの色の取得について 例えば sheet1 セルC11 のセルの色を取得できますか？ エクセルVBAで関数が入った空白セルの取得 エクセルVBAで下記のようなセルの参照をしたいのですが、よろしくお願いします。（エクセル２００２です） A B C D E F １ 78 80 セル（A1）（B1）には値も関数も入れられています。 セル（C1）（D1）（E1）には値は入っていませんが、ワークシート関数が組み込まれており空白となっています。（関数の""にて空白） セル（F1）には何も入力されていません。 今回はセル（B1）の80の値を取得できるようにVBAで下記のようにコードを組みました。 Range（"F1").End(elToLeft).Activate そうすると、セル（E1）に関数があるために（？）（E1）がアクティブな状態となります。 関数が入力されていても空白として（B1）をアクティブな状態にするために良い方法はありますでしょうか？ 誠に申し訳ございませんが、よろしくお願いします。 セルが何行なのかをVBAで取得したい セルが何行なのかをVBAで取得したいのですが どういうコードにすればいいですか？ 例えば、Ａ１セルに a b c と入ってる場合、３行ですが それをVBAで取得するにはどうすればいいですか？ Sub test() Dim r As Range Set r = Cells(1, 1) If r.Value Like "*" & Chr(10) & "*" Then MsgBox "改行があります" End If End Sub というコードで改行が有ることは取得できたのですが 何行かまでは取得する方法がわかりません。 Excel VBAでセルの色塗りについて VBAの初心者です。 Excel2003であるセル範囲のセルが色Aに塗られています。 今、このセル範囲でセルの値により５つの条件でセルの色を塗り分け て、条件に合致しないものは元の色のままにしたのですが、For Each とCASEステートメントを使ったVBAプログラムを教えて下さい。 Excelの、指定したセルに色をつける方法 よろしくお願いいたします。 最近エクセルをさわりはじめ、以下のようなことをしたいのですが、やり方がわからずに困っています。 セルＡ１にカラーコードを入力し、その色が自動的にセルＢ１の背景色として表示される。 と、いった具合です。 お分かりの方いらっしゃいましたら、どうかよろしくお願いいたします。 AIは使う人の年齢や市場にも影響する？人工知能の可能性 OKWAVE コラム VBA セルの色を変更する VBA（エクセル2007使用）で、セルの背景色を変更する場合についての質問です。 マクロを実行する度に、セルの背景色を変更するマクロを作成しました。 オレンジ→水色→緑→灰色→無色 という風に変わっていくところまでは できたのですが、これだとマクロを実行するのにセルの状態が無色か、指定した カラーコードで塗りつぶされていないと実行できません。 下記、コードの一番最初の Case で ”背景色がどんな色の場合でも”という条件に したいのですが、どのように記載したらわからずにいます。。。 ---------------------------- Sub 色チェンジ() n0 = ActiveCell.Interior.ColorIndex Select Case n0 Case xlNone ’ここを”どんな色の場合でも、、、という条件にしたいです。。” Selection.Interior.ColorIndex = 40 Case 40 Selection.Interior.ColorIndex = 34 Case 34 Selection.Interior.ColorIndex = 35 Case 35 Selection.Interior.ColorIndex = 15 Case 15 Selection.Interior.ColorIndex = xlNone End Select End Sub ----------------------------------- エクセル：セルの色のコード番号のようなもの？を取得したい よろしくお願いします。 たとえば、セルA1のセルをピンクにしていたとします。そこで、B1に関数か何かを使ってA1セルの色を特定するコードを取得したいのです。 （その後、オートフィルでA列のピンク色のついたセルだけをB列のコードを使って選びたいのです） 雑誌の立ち読みで、可能なことまではわかっているのですが、やり方を忘れてしまいました。 その雑誌では「名前」と「マクロの色コード」と「関数」で可能だったように記憶しています。 よろしくお願いいたします。 エクセルVBAで別ファイルのデータを取得しに行ってます。 エクセルVBAで別ファイルのデータを取得しに行ってます。 http://www.officetanaka.net/excel/vba/tips/tips28.htm の二つ目に書かれたコードを参考に作ったんですが、取得セル範囲を何も入力されてない所まで広げると何も入力されてない所は『0』と取得、表示されてしまいます。 取得した時に『0』で表示するのを避ける方法はありますか？ エクセルＶＢＡでセルに色を付けるには エクセル2010の質問です。 例えばＡ列に入力した文字のバイト数が38より多い場合、セルに色を付けたいのです。 条件付き書式で =LENB($A2:$A1048576)>38 でもよかったのですが シート内のデータをクリアすると条件付き書式までクリアされてしまい困っています。 ＶＢＡで出来るのが一番なのかなと思っていますが、ご教授お願い致します。 エクセル セルの色について エクセルについて教えてください。 セルに塗りつぶしで色をつける。 そのセルを移動すると色も移動してしまいます。 シート内に設定した各セルの色を固定にする方法を 教えてください。 他の人が作った表が 1行ごとにカラー、無色と交互になっていて データを上下に移動しても 全体の配色は変わらないように なっていてこれはいいなと思ったのですが やり方がわかりません。 よろしくお願いします。 EXCEL VBAを使ってファイル内にある特定の文字すべてに色をつけたい おはようございます。 EXCEL VBAであるひとつのEXCELファイルの中のすべてのシートの特定の文字が入っているセルに色をつけるにはどのようなコードを使えばいいでしょうか？ （例）田中 という文字列が入っているセルはすべてブルーの色がつくという感じです。 教えて下さい。 よろしくお願いします。 塗りつぶしの色の取得方法 エクセルVBA エクセルのメニューバーに塗りつぶしボタン（斜めになったバケツの絵）があり、最後に使った色になっています。 この色の値を知るにはどのようにしたらよいでしょうか？ 尚、現在セレクトしているセルの色は関係ありません。 それから、カラーパレットなどを表示して簡単に色を選択する方法はないでしょうか。 よろしくお願い申し上げます。 Excel(VBA)で１つのセルを選択したときのアドレス またまた 誰か教えていただけるとうれしいです エクセルのVBAであるセルを選択したときに そのセルのアドレス（A1）みたいなかんじの ものを取得する方法が知りたいのですが お願いします！ 注目のQ&A 「You」や「I」が入った曲といえば？ Part2 結婚について考えていない大学生の彼氏について 関東の方に聞きたいです 大阪万博について 駅の清涼飲料水自販機 不倫の慰謝料の請求について 新型コロナウイルスがもたらした功績について教えて 旧姓を使う理由。 回復メディアの保存方法 好きな人を諦める方法 小諸市（長野県）在住でスキーやスノボをする方の用具 カテゴリ [技術者向] コンピューター 業務ソフトウェア CAD・DTP会計ソフトグラフィックソフトグループウェアオープンソースその他(業務ソフトウェア) カテゴリ一覧を見る OKWAVE コラム 突然のトラブル？プリンター・メール・LINE編 携帯料金を賢く見直す！格安SIMと端末選びのポイントは？ 友達って必要？友情って何だろう 大震災時の現実とは？私たちができる備え 「結婚相談所は恥ずかしい」は時代遅れ！負け組の誤解と出会いの掴み方 あなたにピッタリな商品が見つかる！ OKWAVE セレクト コスメ化粧品 化粧水・クレンジングなど 健康食品・サプリ コンブチャなど バス用品 入浴剤・アミノ酸シャンプーなど スマホアプリ マッチングアプリなど ヘアケア 白髪染めヘアカラーなど インターネット回線 プロバイダ、光回線など
お礼
できました！ ありがとうございます！