文字列があるセルを認識したい（エクセル VBA)

質問

画像のように、B列にNo.1～4、C列に品番、E列にNo.1～6、F列に品番の項目があります。
その場合、品番の列の文字列のあるなしを判断し、
C10の赤枠の中に○または×を入力するには
どのようなコードを記入すればよろしいでしょうか？

○を入力する場合
C3～6とF3～8に文字列がC列とF列を合計して、計1つ以上ある場合

×を入力する場合
C3～6とF3～8が全て空白の場合

よろしくお願い致します。
エクセルは2010と2007を使用しております。

回答No.2

mu2011 · ベストアンサー

一例です。
C10に=IF(COUNTA(C3:C6,F3:F8),"○","×")

因みにＶＢＡは不要と思いますので省略します。

お礼

勉強になりました。
応用して仕事で使わせていただきます。

回答No.1

KURUMITO

関数ならば次の式を

=IF(COUNTIF(C3:C6,"?*")+COUNTIF(F3:F8,"?*")>0,"○","×")

マクロならば次のコードを使用すればよいでしょう。

Range("C10").Select
ActiveCell.FormulaR1C1 = _
"=IF(COUNTIF(R[-7]C:R[-4]C,""?*"")+COUNTIF(R[-7]C[3]:R[-2]C[3],""?*"")>0,""○"",""×"")"
Range("C11").Select