
No.2ベストアンサー
- 回答日時:
SQL文でWHEREで抽出した合計が取れます。
select sum(列名) as sum_列名 from SYOKEI where 条件列名 = 条件値 group by 集計単位列;
sum(列名) 合計
avg(列名) 平均
max(列名) 最大値
min(列名) 最小値
asの後ろで列名を指定してあげれば、そのレコードセットで取得できます。
例で行けば
rsURIAGE.fields("sum_列名")
ですね。
他にも有りますがその辺りはselect文を解説している資料等に記載されているはずです。
No.1
- 回答日時:
lngSum = 0
Do Until rsURIAGE.EOF
lngSum = lngSum + rsURIAGE("SYOKEI")
rsURIAGE.MoveNext
Loop
みたいなことする以外に方法はないと思います。
私ならSQL文で初めから集計します。
#Filter利用時は無理ですが、そもそもFilter使うぐらいなら初めからWHERE句で絞り込んだ方が高速ですし。
SELECT SYOKEI, SUM(SYOKEI) AS SYOKEI_SUM FROM TBL_URIAGE
とか?
以上、参考になれば幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Cellsのかっこの中はどっちが行...
-
vba 2つの条件が一致したら...
-
【VBA】2つのシートの値を比較...
-
VBAで、特定の文字より後を削除...
-
エクセルVBAで、フォルダ内のパ...
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
URLのリンク切れをマクロを使っ...
-
データグリッドビューの一番最...
-
targetをA列のセルに限定するに...
-
空白セルをとばして転記
-
エクセルで行を挿入し、小計、...
-
複数の列の値を結合して別の列...
-
VBA 何かしら文字が入っていたら
-
重複データをまとめて合計を合...
-
■VBAで条件による行挿入方法
-
VBマクロ 色の付いたセルを...
-
グリッドの列の最大値を求めたい。
-
スプレッドのヘッダ文字色替え
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで、あるセルの値に応じて...
-
Worksheets メソッドは失敗しま...
-
Cellsのかっこの中はどっちが行...
-
vba 2つの条件が一致したら...
-
【VBA】2つのシートの値を比較...
-
B列の最終行までA列をオート...
-
IIF関数の使い方
-
URLのリンク切れをマクロを使っ...
-
VBAを使って検索したセルをコピ...
-
DataGridViewに空白がある場合...
-
VBA 何かしら文字が入っていたら
-
VBAのFind関数で結合セルを検索...
-
複数の列の値を結合して別の列...
-
VBAでのリスト不一致抽出について
-
データグリッドビューの一番最...
-
VBAで指定範囲内の空白セルを左...
-
rowsとcolsの意味
-
【Excel VBA】 B列に特定の文字...
-
VBAで、特定の文字より後を削除...
-
エクセル 2つの表の並べ替え
おすすめ情報