Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

56898 / 76732

←次へ　｜　前へ→


	【24576】Re:アクセスデータの集計

ichinose - 05/4/26(火) 23:43 -


	引用なし

	パスワード

▼さつきさん、皆さん、こんばんは。
私もＳＱＬを使用した方が簡単かな？と思いますが・・・。
それはともかく・・・。

>ＶＢＡ初心者です。初めて投稿させて頂きます。
>以下のような集計を行いたいのですが、どのようにしたらいいでしょうか？
>
>店名　　契約者名　　品名　
>Ａ店　　佐藤　　　　ＩＢＭ
>Ｂ店　　神田　　　　ＮＥＣ
>Ｃ店　　広田　　　　ＦＵＪＩ
>Ａ店　　佐藤　　　　ＮＥＣ
>Ａ店　　中川　　　　ＦＵＪＩ
>Ｃ店　　広田　　　　ＳＨＡＲＰ
>Ｂ店　　神田　　　　ＩＢＭ
>Ａ店　　中川　　　　ＳＯＮＹ
>Ｂ店　　大村　　　　ＳＨＡＲＰ
>とあったとして、集計結果には、契約者ごとの購入数の数値だけでなく、それぞれの品名もセルに一覧表示しなくてはなりません。（今はその部分のコードは考え中です。）
>
>Ａ店　佐藤　ＩＢＭ、ＮＥＣ
>　　 <件数>　２　
>　　　中川　ＦＵＪＩ、ＳＯＮＹ
>　　 <件数>　２
>　　　計　　４
>Ｂ店　神田　ＮＥＣ、ＩＢＭ
>　　 <件数>　２
>　　　大村　ＳＨＡＲＰ
>　　 <件数>　１
>　　　計　　３
>Ｃ店　広田　ＦＵＪＩ、ＳＨＡＲＰ
>　　 <件数>　２
>　　　計　　２
>
>下記のようにすると、店名の横に印刷される集計データは
>ひとつ前の店の数字になってしまいます。
>そこで、
>Cells(n, 1) = rst.Fields("品名").Value　
>の＝以降のところを
>= hinban　
>などとすると、こんどは値は正しいのですが、「null値の使い方が不正です」と出ます。
>どうしたらいいでしょうか？
↑この件ですが・・・。

別の媒体からアクセスのテーブルにデータをコピーしたものを運用すると
この手の現象が良く起こりますが・・・。

Null値とは、
「バリアント型 (Variant) に有効なデータが入っていないことを示す値」

となっています。hinbanという変数をVariant型にしてもエラーは起きませんが、
通常は、代替データに置き換えますけどね。
AccessだとNZ関数がありますよね？

私は、
　　　　hinmei = nz(rst.Fields("品名").Value, "")

'======================
Function nz(chkdata, cnvdata)
　 If IsNull(chkdata) Then
　　　nz = cnvdata
　 Else
　　　nz = chkdata
　　　End If
End Function

なんてよく使いますが。
又は、Sql
select iif(isnull(品名),"""",品名) as 品名・・・・
なんて方法もあると思いますが・・・。

検討してみて下さい。

1 hits

▼

【24563】アクセスデータの集計 さつき 05/4/26(火) 15:29