| |
ＶＢＡ初心者です。初めて投稿させて頂きます。
以下のような集計を行いたいのですが、どのようにしたらいいでしょうか？
店名 契約者名 品名
Ａ店 佐藤 ＩＢＭ
Ｂ店 神田 ＮＥＣ
Ｃ店 広田 ＦＵＪＩ
Ａ店 佐藤 ＮＥＣ
Ａ店 中川 ＦＵＪＩ
Ｃ店 広田 ＳＨＡＲＰ
Ｂ店 神田 ＩＢＭ
Ａ店 中川 ＳＯＮＹ
Ｂ店 大村 ＳＨＡＲＰ
とあったとして、集計結果には、契約者ごとの購入数の数値だけでなく、それぞれの品名もセルに一覧表示しなくてはなりません。（今はその部分のコードは考え中です。）
Ａ店 佐藤 ＩＢＭ、ＮＥＣ
<件数> ２
中川 ＦＵＪＩ、ＳＯＮＹ
<件数> ２
計 ４
Ｂ店 神田 ＮＥＣ、ＩＢＭ
<件数> ２
大村 ＳＨＡＲＰ
<件数> １
計 ３
Ｃ店 広田 ＦＵＪＩ、ＳＨＡＲＰ
<件数> ２
計 ２
下記のようにすると、店名の横に印刷される集計データは
ひとつ前の店の数字になってしまいます。
そこで、
Cells(n, 1) = rst.Fields("品名").Value
の＝以降のところを
= hinban
などとすると、こんどは値は正しいのですが、「null値の使い方が不正です」と出ます。
どうしたらいいでしょうか？
Sub TEST3()
' 参照設定「Microsoft Active Data Object 2.x Library」
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim hinmei As String
Dim tenmei As String
Dim keiyakusha As String
Dim c As Integer
Dim n As Integer
Dim t As Integer
Set cnn = New ADODB.Connection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Documents and Settings\週報.mdb"
cnn.Open
Set rst = New Recordset
rst.Open "累積", cnn
hinmei = ""
tenmei = ""
keiyakusha = ""
rst.MoveFirst
Do Until rst.EOF = True
c = c + 1
If keiyakusha <> rst.Fields("契約者名").Value Then
n = n + 1
' 行の変数を加算し必要項目を選択してセルにセット
Cells(n, 1) = rst.Fields("品名").Value
Cells(n, 2) = rst.Fields("店名").Value
Cells(n, 3) = rst.Fields("契約者名").Value
Cells(n, 4) = c
t = t + 1
hinmei = rst.Fields("品名").Value
tenmei = rst.Fields("店名").Value
keiyakusha = rst.Fields("契約者名").Value
c = 0
End If
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
End Sub
|
|
さつき
- 05/4/26(火) 15:29 -
