Excel VBA 特定の条件の時に指定されたセルのクリア

お世話になります。

Office2007　WinXPです。

VBAの勉強を始めたばかりです。
よろしくお願い致します。

E12～I12までに数字が入ります。
その数字を元にE13～I13までとE14に○か×か判定を入れてます。

VBAで動かしたいセルはF20～I20です。

E14が×の○の場合、F20～I20は全てセルのクリア
Range("F20:I20").Clear

後は個別にF14が○ならF20のセルをクリア
G13が○ならG20のセルをクリア
H13が○ならH20のセルをクリア
I13が○ならI20のセルをクリア
J13が○ならJ20のセルをクリア

関数のIF文ではセルのクリアができないので…

条件は
=IF(OR(E14="○",F13="○"),"データクリア","入力して下さい")

参考で見つけたHPで

If 条件式 Then
判断結果がTrueのときに実行する処理
Else
判断結果がFalseのときに実行する処理
End If

どのように当てはめたらよいのかがわかりません。

ご教授の程よろしくお願い致します。

No.1 ベストアンサー 回答者： doukeshi0 回答日時： 2009/12/21 17:07

こんにちわ。

初めて回答するので、解りにくいかもしれませんがご了承ください。

下記の条件がどのようなものかイメージができませんでしたので、
まずは「or」を使ったIF文のサンプルを記載します。

>E14が×の○の場合、F20～I20は全てセルのクリア

【条件例】E14が×または○の場合、F20からI20のセルをクリアする
　If Range("E14") = "×" Or Range("E14") = "○" Then
　 Range("F20:I20").Clear
　End If

【条件例2】E14またはF13のどちらかが○の時、F20のセルをクリアする
　If Range("E14") = "○" Or Range("F13") = "○" Then
　 Range("F20").Clear
　End If

不明点などがありましたら、ご連絡ください。

この回答への補足

大変申し訳ありませんでした。

E14が×の○の場合、F20～I20は全てセルのクリア

E14が○の場合でした。

補足日時：2009/12/22 14:15

この回答へのお礼

ご回答ありがとうございました。

無事解決しました。

また質問させて頂く際にはよろしくお願い致します。

お礼日時：2009/12/25 14:46