|
ichinose さんお世話になります。
>'evaluate()の中ってセルに入れる数式と一緒ですよね?
Bcnt = Application.Evaluate( _
"=SUMPRODUCT((DATA!$A$2:$A$105=""りんご"")*(DATA!$H$2:$H$105<>""""))")
↑や、ワークシートのセルに以下の関数を入れてもうまくいきます。
※"りんご"を参照形式にしても大丈夫でした。
=SUMPRODUCT((DATA!$A$2:$A$105="りんご")*(DATA!$H$2:$H$105<>""))
Debug.Printを試した結果をご連絡いたします。
◆"=SUMPRODUCT((" & SfRange & "=" & SFB & ")*(" & By2Range & "<>""""))"
は「型が一致しません」
◆"=SUMPRODUCT((" & SfRange & "=""りんご"")*(" & By2Range & "<>""""))"
Bcnt=3 →(OK)
Debug.Print結果
=SUMPRODUCT((DATA!$A$2:$A$105="りんご")*(DATA!$H$2:$H$105<>""))
◆"=SUMPRODUCT((" & SfRange & "=" & """SFB""" & ")*(" & By2Range & "<>""""))"
Bcnt=0 →(NG)
Debug.Print結果
"=SUMPRODUCT((DATA!$A$2:$A$105="SFB")*(DATA!$H$2:$H$105<>""))"
できればExcel2000でもExcel2002でも動くようにしたいのですが・・・
よろしくお願いいたします。
|
|