0

データベース関数DSUMの利用改善2について

1.データ=A1-D7
2.科目と商品の抽出条件表=.B9-C12
3.条件テーブル=F1-H2
4.出力表 =F9-G12

店毎に集計、但し、科目,商品の「上3桁」が抽出条件に合致しているアイテム >

●特別なユーザー関数 DSUM97 を作りましたが、うまく機能しません(^^)汗

全て同一シート上に今はありますが、
出来れば, 本件解決後は元データとそれ以外はシートを分けたいと考えています

式
F2:=100
G2,G3,G4:=COUNTIF($B$10:$B$12,INT(B2/10^3))>0
H2,H3,H4:=COUNTIF($C$10:$C$12,LEFT(C2,3))>0
を入れてます

そこで、DSUM97(Z1,4,Z3,Z4,Z5)で受け渡せるユーザー関数を作りました
運用は、G10:=DSUM97($A$1:$D$7,4,$F$1:$H$2,F10,$F$2)と入力し
下へコピーして数値を集計する予定です

DSUM97のコード
------------------------------------------------------------
Public Function DSUM97(Z1 As Range, Z2 As Integer, Z3 As Range, Z4 As Range, Z5 As Range) As Long

Z5.Value = Z4.Value '---#1
DSUM97 = Application.DSum(Z1, Z2, Z3) '---#2◆

End Function
------------------------------------------------------------
現在の実行結果

1.G10に #VALUE! が戻り、シングルステップ実行ライン(黄色いライン)がで#2◆の行へ進ます、消える
2.#1にブレークポイントを設定するとZ4.VALUE,Z5.VALUEには100が入る
3.EXCEL画面から =DSUM($A$1:$D$7,4,$F$1:$H$2)をすると 110,0,330 と該当数値が正しく返ります

この件を解決するための訂正を教えて下さい

テストは EXCEL97 でうが、それでなくても結構です

//

質問者が選んだベストソリューション

Yahoo!知恵袋 4389日前