Ｐａｇｅ 654 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼教えてくださーい fumfum 03/1/31(金) 0:25 ┗Re:教えてくださーい ポンタ 03/2/1(土) 3:02 ─────────────────────────────────────── ■題名 ： 教えてくださーい ■名前 ： fumfum ■日付 ： 03/1/31(金) 0:25 -------------------------------------------------------------------------
| ものすごく久々に投稿させていただきました。どうか皆様のお力をいただきたいので宜しくお願いします。 Ａ部門 ｜ （１月） ｜ （２月） ---------------------------------- 売上｜ 1,400 ｜ 1,200 仕入｜ 500 ｜ 400 粗利｜ 900 ｜ 800 ←ここは関数を使うつもりです。 上記の様な感じで、部門ごとにシートで分けていこうと思っています。そして、部門は３つほど作っておき全部門の合計表も同じ様式で作りたいです。また、ＶＢＡにより入力者が部門追加や使用しなくなった部門の削除も行えるようにしたいのです。よって、部門は３つとは限らずその用途・会社内容により部門数は増えたり、減ったりします。そして、増減により変更があっても合計はできるようにすることはできますか？また、いいアドバイス等ございましたらお願いします。 |
| Sheet3のA1に =SUM(Sheet1:Sheet2!A1) という式を入れてあげると、 それぞれのシートのA1を合計してくれます。 以下のマクロは最も右にあるシートに 先ほどのような式を設定します。 どのシートがアクティブでも、動くように作ってあります。 以下のコードを標準モジュールに貼り付け、 シートをまたいで合計したいセルをアクティブして、 お試しください。 Sub test() Dim Ws1 As Worksheet, Ws2 As Worksheet Set Ws1 = Worksheets(Worksheets.Count - 1) Set Ws2 = Worksheets(Worksheets.Count) Ws2.Range(ActiveCell.Address).Formula = "=SUM(" & _ Worksheets(1).Name & ":" & Ws1.Name & "!" & ActiveCell.Address(0, 0) & ")" End Sub |