エクセルの「集計」機能と同じことをマクロでやりたいのですが、どのようなコードで可能になるのでしょうか?

せいぜいマクロを記録して動かす程度の初心者なので、「このコードをコピーして貼り付ければいいですよ」というような回答を期待しています。よろしくお願いします。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2007/04/10 21:45:25
  • 終了:2007/04/17 21:50:03

回答(3件)

id:sm0k3 No.1

03回答回数591ベストアンサー獲得回数392007/04/10 22:01:56

ポイント27pt

http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_160_11.html

難しそうですがいちおうありました。

id:SALINGER No.2

SALINGER回答回数3454ベストアンサー獲得回数9692007/04/10 23:55:00

ポイント27pt

VBAの集計は subtotal でできます。

Sub Macro()
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(2, 3), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub

選択した範囲を集計するマクロです。

引数の意味は

GroupBy グループ化する列

Function 集計の種類。xlSumで合計。xlAverageで平均。xlMaxで最大。xlMinで最小。

TotalList 集計する列を配列で指定。この場合は2列目と3列目が集計されます。

Replace 現在の集計表と置き換えるか。

PageBreaks グループごとに改ページを挿入するか。

SummaryBelowData 集計行をデータの下に挿入するか。

環境に合わせて引数を変更してください。

ダミー

id:HiroCom777 No.3

HiroCom777回答回数23ベストアンサー獲得回数22007/04/12 08:33:21

ポイント26pt

WorksheetFunctionを使えばExcelの関数が使えます。

以下は、Average関数を使った例です。

Cells(1, 1) = WorksheetFunction.Average(Range("F1", "F10"))

http://www.google.co.jp/hws/search?hl=ja&q=WorksheetFunction...

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません