ExcelVBAです。
集計について教えてください。
まず最終列（８月）を取得して、その右に集計列を入れ（C列の４月から最終列の月まで）
その状態で集計を入れたいのです。
集計するフィールドが固定していないため（毎月一か月づつ増えていく）
「C列～集計列」と指定したいのですがどのようにしたらいいでしょうか？
グループ基準：商品名（A列）
集計の方法：合計
集計するフィールド：C列から集計列まで
現在の集計表と置き換える
集計行をデータの下に挿入する
商品名 品番 ４月 ５月 ６月 ７月 ８月･････
えんぴつ
えんぴつ
えんぴつ
ぺん
ぺん
ぺん
・
・
・
・
よろしくお願いしますっ
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する
ベストアンサー
-
Mook
満足60pt
やり方はいろいろありそうですし、計算式でもできると思いますが、
マクロでの例です。
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count <> 1 Then Exit Sub If Target.Value <> "集計列" Then Exit Sub Application.EnableEvents = False Dim i As Long Dim c As Long Dim r As Long c = Range("A1").End(xlToRight).Column r = Range("A" & Rows.Count).End(xlUp).Row For i = 2 To r Cells(i, c).Formula = "=SUM(" & Range(Cells(i, "C"), Cells(i, c - 1)).Address & ")" Next Application.EnableEvents = True End Sub
シートモジュールに張り付けて、最終列に「集計列」と記入ください。
その列に計算式が挿入されます。
-
hananeko_0
-
hananeko_0その他の回答
この質問へのコメント
質問の情報
- 登録日時
- 2008-09-04 22:47:58
- 終了日時
- 2008-09-07 23:23:17
- 回答条件
- 1人3回まで
この質問のカテゴリ
人気の質問
-
この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…
匿名質問者
1
1
-
不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者11
-
日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者
-
共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者1
-
内定してほしいポケモンはいますか？匿名質問者
集計は各行単位でいいのでしょうか。
それとも同じ商品名に対して、何らかの集計が必要でしたか？
コードに対する補足ですが、データは行も列も途中に空白データが無いことを
前提にしています。
問題あるようでしたら、コメントください。
今回はWorksheet_Change を使用しましたが、Application.EnableEbents の間だけを
単独の関数として、任意のタイミングで呼び出すようにしても、同じ結果になります。
ファイルの動きが遅くなるようでしたら、むしろその方が良いかもしれません。