VBA 条件付書式の条件にあっているか

質問

答えてねっとがなくなってしまったのですね、でこちらにたどり着きました。

ユーザー入力したアンケート(業者が作成）から集計表を作成しています。
A1　男性　　　　　B1　年齢
A2 /////////
A3
A4　///////

A1の性別B1の年齢から判断して条件付書式によりA3のみに答えを入力するよう白抜きになりA2/A4はもともとのフォーマットが網掛けになっています。
ただその際にA2/A4は網掛けになっているのですが場合によって回答が残っていることがあるので、集計表が正しくなくなってしまいます。
集計表に情報を取ってくる際に、条件付書式がTrueの場合、または書式
が白抜きになっている場合で条件分岐したいのですが、方法ご存知だったら教えてください。
方法としては下記のようになるかと考えています。
・セルに条件付書式がひとつ以上設定されている。（今回は条件は一つです）
・その条件が、値か式か。（今回は式です）
・式であったら、その式をVBA上で実行してTrueかFalseか判断する
　（または書式のタイプを取得する）
ですが、書ける知識が乏しくて・・・
VBA本にもFormatConditionsは書いてなかったです。

よろしくお願いします。

回答No.2

sekidoutyokka · ベストアンサー

補足ありがとうございます。

VBAで
Worksheets("Sheet1").select
Range("A1").Interior.Pattern
とやれば、A1の網掛けパターン番号が判ります。
あとは、ifでそれを値を取得したいセルの網掛けパターン番号と比較すれば出来るかと思いますよ。
イメージとしては、
Worksheets("Sheet1").Select
Range("A2").select
if Range("A2").Interior.Pattern = 上で取ってきたパターン番号 then
　　何らかの処理
end if

あとはforで回すなり、ベタ値で書くなり。
selectしちゃってるので、数があると重いのが玉に瑕です。

もしイメージと違うのであれば、「ツール」→「マクロ」→「新しいマクロの記録」で自分のやりたい事を(又は、それのヒントになること）記録してロジックを探してみてください。

補足

早速のお返事ありがとうございます！

当初上記のようにVBAを書いて集計表をつくったのですが、
集計がおかしくなってしまいました。

というのは、条件付書式で回答されているA2のセルの書式は
上記のようなVBAのInterior.PatternはA1・A3と一緒です。（ｘｌUpだったかな？）
つまり、Interior.PatternだとA1/A2/A3ともに値を拾ってきてしまうので
集計がうまくいきません。

で、条件付書式が実行されているものだけ拾ってこれないかと思ったのです。

引き続きよろしくお願いします。

回答No.1

sekidoutyokka

いくつか確認させてください。

>A2/A4は網掛けになっているのですが場合によって回答が残っていることがあるので、集計表が正しくなくなってしまいます。
・回答というのは、「A3のみに答えを入力するよう白抜きになり・・・」の一文の"答え"のことでしょうか？
・回答が残っているとは、どんな状態のことをでしょうか？
・集計表が正しくなくなくなるとは、どう正しくなくなるのでしょうか？（そもそもどの状態が正しいのでしょうか？）
・A2,A3,A4にはどういった条件で値が入ってくるのでしょうか？

結果として何がしたいのかピンときませんし、前提がわからなすぎるので、なんと答えていいやらわかりません。

補足

すいません、前提が足らなくて。

＞・回答というのは、「A3のみに答えを入力するよう白抜きになり・・・」の一文の"答え"のことでしょうか？
　　はい”答え”　＝　回答です。
＞・回答が残っているとは、どんな状態のことをでしょうか？
　　アンケートは口頭で行ったものをアルバイトさんが手入力しています。
　　その際に、性別と年齢を入力すると該当項目のみ白抜きになり、必要ない部　
　　分は網掛けになるので、前回入力した回答を網掛けの下にあることに気づか
　　ず、そのままデータが網掛けの下に残っているのです。

＞・集計表が正しくなくなくなるとは、どう正しくなくなるのでしょうか？（そもそもど
　　の状態が正しいのでしょうか？）
　　正しい状態は白抜きの部分のデータのみ集計表にもってくる状態です。
　　（条件付書式でTrueになったもののみ）
・A2,A3,A4にはどういった条件で値が入ってくるのでしょうか？
　　A2　　=COUNTIF($A$1,"女*")>=1
　　A3　　=COUNTIF($A$1,"男*")>=1
　　A4　　=COUNTIF($A$1,"*男*")>+COUNTIF($B$1,"2*"）>=1
　です。
　よろしくお願いします。