- ベストアンサー
Excel VBA 条件付書式の条件満たすセル取得
ushi2015の回答
- ushi2015
- ベストアンサー率51% (241/468)
こんにちは 条件付書式で設定した背景色はInterior.ColorIndex等では検索出来ないので Evaluate(条件の数式)で判定していくしかないと思います。
関連するQ&A
- エクセルVBAで条件付書式の色を取得
セルに条件付書式で書式設定してあります。 A1は「値」100以下 A2は「値」500以下 A3は「値」1~10の間 B1は「数式」で=B1<A1 以下さまざまな数式があります。 条件に一致すると、セルの文字が「赤」になります。 このとき、 Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox Target.Font.ColorIndex End Sub を実行しても、ColorIndexは、赤の「3」ではなく「-4105」と表示されます。 「-4105」は何もフォントの色を指定してないセルでも同じく表示されます。 質問1.条件付書式で、条件が一致して表示されたフォントの色は取得できないのでしょうか? 質問2.-4105とは何でしょうか?
- ベストアンサー
- オフィス系ソフト
- エクセル 条件付書式の結果がすぐに反映されない
仮にセルA1に、次のような条件付書式を入力します。 数式が =A2<>"" のときにセルの色を赤にする。 そしてセルA2になにか値を入力しても、セルの色がかわりません(セルA1とセルA2の境界が赤になるときもある)。 条件付書式の入力が間違っているのかと思っていたら、 ・スクロールしてセルA1とセルA2を画面上から見えなくした後、再度表示させる。 ・印刷プレビューで確認し、再度表示させる と、条件付書式が反映され、セルの色が指定どおり赤にかわっています。 WinNT Execel97 と WinNT Execel2000 両方で試してみましたが、結果は同じでした。 この現象を回避し、入力後、即条件付書式の結果が反映される方法はないのでしょうか? どなたかよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- EXCEL2003 条件付書式が狂ってくる
条件付書式は、見ためにどのセルに入っているのかわからないというのと、複数の条件付書式が入ると、なぜかその前に決めていた条件付書式が消えてしまっているということがあって、なかなか不便に思っています。(やりかたが悪いのかもと思うのですが) それで、VBAの entireculumn というのを見つけたのですが、 これで対応できるでしょうか? やりたい事は、 1 2*--------------------------- 3*--------------------------- 4 5 6*--------------------------- 7*--------------------------- 上記のように、「*」をつけた行にだけ、行全体に色をつけておく、 というのを条件付書式で、 「数式が」「=$A1="*"」 としたもので、その設定をしているシートに、横にずっと、いろんな関数を入れていってます。 ですが、関数を入れたり、そのプロセスで列挿入などすると、 色がずれてしまうのです。 その回避策として、VBAで最初に色の設定をしておけないでしょうか? 「*がある行だけに色をつける。」 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセルのVBAを使った条件付き書式
VBAの初心者です。というか使ったことがありません。 4つ以上の条件付き書式はVBAが必要になるようなので困惑中です。 下記の条件付き書式をVBA作りたいと思っています。 「1」を含む値の場合セルの背景を黄色に 「2」を含む値の場合セルの背景を緑色に 「3」を含む値の場合セルの背景を水色に 「4」を含む値の場合セルの背景を赤色に 例) 1北海道 → セルの背景を黄色 2山形 → セルの背景を緑 これを実現するVBAのコードを教えてください。 また、そのコードをどこに貼付ければいいのでしょうか? まったくの初心者で申し訳ありません。
- ベストアンサー
- オフィス系ソフト
- EXCELで条件付書式を使いたいが
またまた質問させていただきます。 条件付書式を使ってセルの色を変えようとしたのですが、条件が6条件有り出来ませんでした。 やりたいことは、C5~AJ54の範囲のセルに下記の文字が入ったとき、そのセルの色を変えたいのです。 入力 セル色 赤外---黄色 青外---黄色 赤中---緑色 青中---緑色 赤内---青色 青内---青色 といったことがしたいのです。 VBAを使ってセルを塗りつぶす例などを調べてやってみましたが、勉強不足で旨くいきませんでした。 どうか、宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excelの条件付き書式について
Excelの条件付書式について教えてください。 次のようなことをしたいです。 (1)10個のセルに次のような条件付書式を設定します。 ・条件1:セルの値が5以上だったらセルの塗りつぶし(パターン)を青色にする。 ・条件2:セルの値が5未満だったらセルの塗りつぶし(パターン)を赤色にする。 (2)別の1つのセルで上の10個のセルを監視して すべてのセルが青色だったら"PASS"と表示する。 ひとつでも赤色のセルがあったら"FAIL"と表示する。 VBAを使用して、条件付書式が設定されたセルを参照し、 どちらの条件付書式が適用されているのか調べられるのなら、 それでもかまいません。 条件付書式でセルの色(パターン)を設定した場合、 セルの.Interior.ColorIndex 及び PatternColorを参照しても、 塗りつぶしはされてないという扱いになっているようです。 なにか方法があるでしょうか?
- ベストアンサー
- オフィス系ソフト
- エクセル 条件付書式について
エクセルの条件付書式について、お尋ねします。 A1のセルには、背景と同じ色で文字が入力されていて、そこに文字を上書きすると、A1のセルの文字の色が黒に変更されるようにしました。 その後B1のセルに文字を入力すると、A1からE1までのセルの背景がグレーになるようにしたかったのですが、A1のセルだけが、塗りつぶされませんでした。 説明が十分かどうかわからないのですが、質問としては、このようなことが、条件付書式で可能かどうか、可能ならば、その方法を教えていただけますでしょうか。 どうぞよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- EXCELの条件付書式について
I1のセルに赤色太文字で日付を入力すると、B1~H1のセルが水色に塗り潰されると言う条件付き書式を設定したところ、I1のセルに入力した日付の色が黒色になってしまいました。 I1のセルの日付を赤色太文字で表示したい場合、どの様な条件を設定(追加)すれば宜しいでしょうか? 条件付書式:数式が=AND(ISNUMBER($I1),LEFT(CELL("format",$I1),1)="D") ⇒ B1~H1のセルが水色に塗り潰される。 過去に似た様な質問がある中大変恐縮ですが、ご回答をお待ちしております。
- 締切済み
- Windows XP
- エクセル 条件付書式で時刻の判定
エクセル2000を使用しています。 VBAでボタンを押した時にFileDateTimeで複数のファイルの更新時間を取得してきて表のように一覧で表示する形になっています。 その更新時間が今日じゃなかったら、エラーなので条件付書式で今日じゃない日付のセルだけ赤くしたいのですが、条件付書式に=today()を入れてもうまくいきません。 あと日に何回か更新されるファイルの場合、時間でも判定したいのですがどんな数式にすればよいのでしょうか? 例えば、10時と14時と17時に更新される場合、12時に判定した時に10時に更新されていれば正常で、15時に判定した時に10時のままだとエラー、のような形で条件付書式で設定できると思うのですが、どうやればいいのでしょうか? ここで検索したら、条件付書式だけで千件以上ヒットして検索しても余計に分からなくなってしまいました。 ご存知の方がいたら是非教えて下さい。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- EXCEL2007セルの色を数式で取得したい
EXCEL2007セルの色を数式で取得したい EXCEL2007で条件付き書式を使って現在使って特定の値が入っているセルを 条件付き書式を使って背景を赤色を変えるというシートを作成しました。 さらに、特定のセルをダブルクリックすると書式を水色に変わるという処理 をVBAで実現したのですが、既に条件付き書式によって赤くなっているセルの 背景色を水色に変えることができません。 つまり、書式設定した背景色が条件付き書式の背景色につぶされてしまいます。 書式設定した背景色(水色)の方を優先させたいので、条件付き書式の条件に セルの書式に背景色が設定されているときには条件外とするようにしたいのですが。 どうやって、数式で書式設定した背景色を取得できますか? もしくは、他の方法で実現できるアイデアがありましたら、紹介してください。 どうぞ、よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
お礼
通常の背景色と同じように 条件付書式で設定された背景色も検索ができれば 何も悩まなかったのですが・・・・ ありがとうございました。