エクセル2000マクロ、チームの合計を別のシートに

質問

グラウンドゴルフで、１チーム５名、５０チームで全員が２ラウンドのゲームのチーム別成績順位表を作ろうとしています。
”２ラウンド集計”のワークシートに団体戦の個人成績表がありますので、これを元に、”チーム別”ワークシートに各チームだけの成績を抜き出して表示したくて、次のマクロをした結果、添付した画像のようになります。
解決方法を教えていただきたくよろしくお願いいたします。

Sub チーム成績順()
'
' チーム成績順 Macro
' マクロ記録日 : 2013/8/16 ユーザー名 : HAYAO MAEBARA
'

'Dim n
Sheets("チーム別").Activate
For n = 1 To 50
Cells(n + 4, 2).Value = Sheets("２ラウンド集計").Cells(n * 5 + 5, 2).Value
Cells(n + 4, 3).Value = Sheets("２ラウンド集計").Cells(n * 5 + 5, 3).Value
Cells(n + 4, 4).Value = Sheets("２ラウンド集計").Cells(n * 5 + 5, 4).Value
Cells(n + 4, 6).Value = Sheets("２ラウンド集計").Cells(n * 5 + 5, 6).Value
Cells(n + 4, 7).Value = Sheets("２ラウンド集計").Cells(n * 5 + 5, 7).Value

Cells(n + 4, 8).Value = Sheets("２ラウンド集計").Cells(n + 9, 8).Value + Cells(n + 10, 8).Value + Cells(n + 11, 8).Value + Cells(n + 12, 8).Value + Cells(n + 13, 8).Value
Cells(n + 4, 9).Value = Sheets("２ラウンド集計").Cells(n + 9, 9).Value + Cells(n + 10, 9).Value + Cells(n + 11, 9).Value + Cells(n + 12, 9).Value + Cells(n + 13, 9).Value
Cells(n + 4, 10).Value = Sheets("２ラウンド集計").Cells(n + 9, 10).Value + Cells(n + 10, 10).Value + Cells(n + 11, 10).Value + Cells(n + 12, 10).Value + Cells(n + 13, 10).Value
Cells(n + 4, 11).Value = Sheets("２ラウンド集計").Cells(n + 9, 11).Value + Cells(n + 10, 11).Value + Cells(n + 11, 11).Value + Cells(n + 12, 11).Value + Cells(n + 13, 11).Value
Cells(n + 4, 12).Value = Sheets("２ラウンド集計").Cells(n + 9, 12).Value + Cells(n + 10, 12).Value + Cells(n + 11, 12).Value + Cells(n + 12, 12).Value + Cells(n + 13, 12).Value
Cells(n + 4, 13).Value = Sheets("２ラウンド集計").Cells(n + 9, 13).Value + Cells(n + 10, 13).Value + Cells(n + 11, 13).Value + Cells(n + 12, 13).Value + Cells(n + 13, 13).Value
Cells(n + 4, 14).Value = Sheets("２ラウンド集計").Cells(n + 9, 14).Value + Cells(n + 10, 14).Value + Cells(n + 11, 14).Value + Cells(n + 12, 14).Value + Cells(n + 13, 14).Value
Cells(n + 4, 15).Value = Sheets("２ラウンド集計").Cells(n + 9, 15).Value + Cells(n + 10, 15).Value + Cells(n + 11, 15).Value + Cells(n + 12, 15).Value + Cells(n + 13, 15).Value

Cells(n + 4, 16).Value = Cells(n + 4, 8).Value + Cells(n + 4, 12).Value
Cells(n + 4, 17).Value = Cells(n + 4, 9).Value + Cells(n + 4, 13).Value
Cells(n + 4, 18).Value = Cells(n + 4, 10).Value + Cells(n + 4, 14).Value
Cells(n + 4, 19).Value = Cells(n + 4, 11).Value + Cells(n + 4, 15).Value

Cells(n + 4, 20).Value = Cells(n + 4, 16).Value * (-3)
Cells(n + 4, 21).Value = Cells(n + 4, 19).Value + Cells(n + 9, 20).Value
Cells(n + 4, 22).Value = Cells(n + 4, 21).Value / 2
Next n

End Sub

回答No.1

MackyNo1 · ベストアンサー

質問内容と添付画像の関係が全く理解できません。

マクロコードを見ると、チーム名には関係なく、単純にセルの値を代入したり加算したりしているだけですから、そもそもマクロを使用するよりも関数で対応するほうが、簡便でわかりよいと思います。

関数で対応する場合は、元データのレイアウトと表示したいシートのレイアウトを例示されれば、具体的な数式が提示できると思います。

また、チームごとの集計をしたいということなら、別のシートに一覧を作成しなくても「集計」の機能を利用すれば、ご希望のチーム別の順位のわかる集計ができます。

ご使用のエクセルのバージョンが明記されていないので2007以降のバージョンンで説明すると、
まず準備として、「データ」タブの「並べ替え」で最優先されるキーで「チーム名」をレベルの追加で次に優先されるキーを「2ラウンドの合計」を指定して並べ替えを実行しておきます。
このようなリストでデータタブの「小計」をクリックし、グループの基準を「チーム名」、集計するフィールドを「2ラウンドの合計」を選択して、必要に応じて「グループごとに改ページを挿入する」にチェックを入れてOKしてください。

お礼

ありがとうございました。

補足

説明不足で申し訳ありません。
エクセル2000を使用しています。質問の方法も言葉不足でご迷惑をかけました。

グラウンドゴルフは高齢者に好まれるスポーツですが、このゲームのスコア集計に時間がかかるということで、スコアのデータを入れたら、後はマクロのボタンを押していくと集計が出来る方法までをいろいろ教えていただきながら個人成績表までは何とか出来上がりました。

その際にチーム別の集計は出来ないかとの問い合わせも多かったので、個人成績表を使って、マクロボタンで一発で「チーム別成績表」を作成しようと考えたものです。

アドバイスいただきました「集計」の機能を利用することで解決できそうですが、エクセル2007と、エクセル2000の違いから表現がちょっと違うみたいですから、こちらももう少し勉強してみます。
貴重なお時間を割いていただきありがとうございました。