Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9710 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【25839】VBAでSumProduct関数を使用 ゆうき 05/6/16(木) 11:10 質問[未読]
【25842】Re:VBAでSumProduct関数を使用 Jaka 05/6/16(木) 11:29 回答[未読]
【25885】Re:VBAでSumProduct関数を使用 ゆうき 05/6/17(金) 10:53 お礼[未読]
【25839】VBAでSumProduct関数を使用
質問  ゆうき  - 05/6/16(木) 11:10 -
引用なし
パスワード
   いつもお世話になっております。ゆうきです。

現在VBAでSumProduct関数を使おうとして行き詰っています。

やりたい事：

A列に1〜20の数字がランダムに入っている。
B列に1〜3の数字がランダムに入っている。

ここで、A列で1かつB列で1,A列で1かつB列で2というような
『A列である条件を満たし、かつ、B列である条件を満たすセル数』を
カウントしたいのです。

現在、
Sub test()

Worksheets("結果集計用").Activate
　　
　 Range("C35").Value = Application.WorksheetFunction.
　　SumProduct((Range("A2:A300") = 1) * (Range("B2:B300") = 2))

End Sub

というようにVBAに書いているのですが
「型が一致しません」という実行時エラーが出てしまいます。

何か解決のヒントでも結構ですので、教えていただけませんでしょうか。
昨日からずっとハマりっぱなしで・・・。

よろしくお願いいたします。
【25842】Re:VBAでSumProduct関数を使用
回答  Jaka  - 05/6/16(木) 11:29 -
引用なし
パスワード
   こんにちは。

自分で書いた物が、どこだったか忘れちゃったので、
「てんびん座かつＡ型」のichinoseさんの回答です。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=9083;id=excel
【25885】Re:VBAでSumProduct関数を使用
お礼  ゆうき  - 05/6/17(金) 10:53 -
引用なし
パスワード
   Jaka さん

教えていただいたところを参考に
少しずつソースをいじって、なんとか思い通りに動かすことができました。

ありがとうございました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9710 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free