Excel VBA質問箱 IV

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

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


72139 / 76738 ←次へ | 前へ→

【9084】Re:sumproductがうまくいきません2
回答  ichinose  - 03/11/18(火) 2:06 -

引用なし
パスワード
   ▼猛虎襲来 さん:
こんばんは。

>エクセル97です。
Excel2000で確認しましたが・・・・。


>こういう場合に、「てんびん座かつA型」の数を、別のシート”人数”のセルB2に表示させようとしたいのです。

>それで、ワークシート関数のsumproduct関数を使って、以下のように作ったのですが、「型が一致しません」というメッセージがでます。
>どうしたらよいでしょう?
>  nm = Application.WorksheetFunction.SumProduct((seiza= "てんびん") * (ti = "A"))
↑のコードでは、
seiza="てんびん"
が評価されませんね、つまり、配列が生成されません。

それで、
nm=WorksheetFunction.SumProduct(([b2:b102 = "てんびん"]), [a2:a102 = "A"])
としたら、配列として評価はされますが、配列の中身がTrueとFalseのためか
0しか返りません。
Helpに、「数値以外の配列要素は、0 であると見なされます。」とありました。

で、以下のコードだと答えを出してくれました。
'==================================================================
Sub 人数表示()
  Dim seiza As String
  Dim ti As String
  Dim nm As Integer
  seiza = Range("b2:b102").Address
  ti = Range("A2:A102").Address
  nm = Application.Evaluate("=SUMPRODUCT((" & seiza & "=""てんびん"")*(" & ti & "=""A""))")
  MsgBox nm
End Sub

「てんびん座かつA型」のichinoseでした。
3 hits

【9083】sumproductがうまくいきません2 猛虎襲来 03/11/18(火) 0:58 質問
【9084】Re:sumproductがうまくいきません2 ichinose 03/11/18(火) 2:06 回答
【9119】Re:Re:sumproductがうまくいきません2 猛虎襲来 03/11/18(火) 22:16 質問
【9120】Re:Re:sumproductがうまくいきません2 ichinose 03/11/18(火) 23:04 回答
【9122】できました!! 猛虎襲来 03/11/19(水) 0:22 お礼
【12976】SumProductがうまくいきません auxo 04/4/20(火) 17:27 質問
【12978】Re:SumProductがうまくいきません ichinose 04/4/20(火) 17:48 発言
【12985】Re:SumProductがうまくいきません auxo 04/4/20(火) 18:48 質問
【12989】【解決しました】SumProductがうまくいき... auxo 04/4/20(火) 19:06 お礼

72139 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free