Excel VBA質問箱 IV

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

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


56697 / 76732 ←次へ | 前へ→

【24780】Re:アクセスデータの集計
質問  さつき  - 05/5/10(火) 11:19 -

引用なし
パスワード
   できました。ありがとうございました。
おかげさまで、希望どおりになってきて、ほんとうに助かります。

もうひとつご質問させて頂いてもよろしいでしょうか?
下記のようなSQLを書きました。
  Set Kiten = Range("b1")
  SQLCode = "TRANSFORM Count(品名) AS 品名のカウント " _
      & "SELECT 店名,担当者名,契約者名 FROM 累積 " _
      & "GROUP BY 店名, 担当者名, 契約者名 " _
      & "PIVOT 週;"

以前教えて頂いた下記の部分を応用して、
  Set rst = New Recordset
  rst.Open SQLCode, cnn
  Range("A1").CopyFromRecordset rst
  rst.Close

店ごとの合計件数を表示させるように下記のコードを作りました。
s1,s2,s3には週ごとの値を合計させているつもりなのですが、合計数値がでません。
クロス集計の値は1件ずつ合計できないのでしょうか?
後、週によってはS4、S5と続く場合にあらかじめS4、S5をコードに入れておくと値が
ないときにエラーが出てしまいます。

  rst.Open SQLCode, cnn
  r = 1
  s1 = 0
  s2 = 0
  s3 = 0
  Do Until rst.EOF = True
      c = 0
      If tenmei <> rst.Fields(1).Value Then
          r = r + 1
          Cells(r, 4).Value = s1
          Cells(r, 5).Value = s2
          Cells(r, 6).Value = s3
          s1 = 0
          s2 = 0
          s3 = 0
      End If
      r = r + 1
      For Each fld In rst.Fields
        If Not IsNull(fld.Value) Then
          c = c + 1
          Cells(r, c).Value = fld.Value
        End If
      Next
          s1 = s1 + rst.Fields(3).Value
          s2 = s2 + rst.Fields(4).Value
          s3 = s3 + rst.Fields(5).Value
          tenmei = rst.Fields(1).Value
      rst.MoveNext
  Loop
  rst.Close

どうぞよろしくお願いいたします。

0 hits

【24563】アクセスデータの集計 さつき 05/4/26(火) 15:29 質問
【24570】Re:アクセスデータの集計 小僧 05/4/26(火) 19:42 回答
【24582】Re:アクセスデータの集計 さつき 05/4/27(水) 13:55 お礼
【24675】Re:アクセスデータの集計 さつき 05/5/2(月) 15:29 質問
【24676】Re:アクセスデータの集計 m2m10 05/5/2(月) 16:42 発言
【24721】Re:アクセスデータの集計 さつき 05/5/6(金) 10:51 お礼
【24771】Re:アクセスデータの集計 さつき 05/5/9(月) 18:59 質問
【24776】Re:アクセスデータの集計 小僧 05/5/10(火) 9:31 回答
【24780】Re:アクセスデータの集計 さつき 05/5/10(火) 11:19 質問
【24787】Re:アクセスデータの集計 小僧 05/5/10(火) 16:15 回答
【24868】Re:アクセスデータの集計 さつき 05/5/12(木) 9:43 お礼
【24879】Re:アクセスデータの集計 小僧 05/5/12(木) 13:26 回答
【24897】Re:アクセスデータの集計 さつき 05/5/12(木) 20:14 お礼
【24903】Re:アクセスデータの集計 小僧 05/5/13(金) 10:19 回答
【24974】Re:アクセスデータの集計 さつき 05/5/16(月) 15:06 お礼
【24573】Re:アクセスデータの集計 kazu 05/4/26(火) 21:02 発言
【24583】Re:アクセスデータの集計 さつき 05/4/27(水) 13:56 お礼
【24576】Re:アクセスデータの集計 ichinose 05/4/26(火) 23:43 発言
【24584】Re:アクセスデータの集計 さつき 05/4/27(水) 13:58 お礼

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