エクセルのマクロでスコア表を作りました

自分の住む町内の方より、依頼されてグランドゴルフのスコア表を作りました。「順位の集計」や「集計が簡単にならないか?」との相談がありマクロをいろいろ調べてやっと完成しました(2015年3月投稿)。
現在(2020年7月)は、さらに機能を追加したファイルがありますが、個々の場ではとりあえず当時のファイルがダウンロードできます。後ほど、最新版をダウンロードできるようにいたします。
スコア表マクロ
依頼された要望は下記のとおりです。

  1.  毎月の練習日は毎週火曜日と木曜日の週2回である。
  2.  上記のことから月によっては練習日が8、9、10回の変動3パターンである。
  3.  その月間のスコアを毎月集計し、年間の集計も計算する。
  4.  月間の成績は男女をそれぞれ区別して「ホールイン1」の回数と総打数を計算する。
  5.  また、平均、ハイスコアも昇順、降順や参加回数などそれぞれ仕分ける。
  6.  毎回のスコアの範囲(例えば50~79)の条件下においてセルの背景色の塗りつぶし。
  7.  順位の条件としては、練習日が毎月変動するので1ヵ月の練習回数の2分の1以上(9回ならば4.5であるから5回とする)の参加回数を対象とする(自動計算)。
  8.  平均算出の方法も不公平な内容にならぬよう全参加回数と欠席回数から自動算出する。
  9.  参加者は練習日により絶えず変動する。
  10.  順位の自動入力を行う。

以上10個の条件を満たすマクロを作成し、データに反映させるという複雑なスコア表が出来ました。
このようなスコア表を利用したい方、サンプルをダウンロードできますので、試してみて下さい。シートの保護を掛けてありますので部分的にしかクリックできませんが、1月と2月はボタンをおしても正常に動作します。また、実行するとマクロが終了する時にエラーが出る場合がありますが、これは記述したマクロとダウンロードしたエクセルファイルの保存場所が異なるためです。VBAを修正すれば正常に作動します。
ダウンロードはコチラ ⇒ ⇒ ⇒

Follow me!

投稿者プロフィール

近江公人
近江公人asamai-cts Owner
あさまいCTSの代表オヤジです(59歳)
横手市中央町で「ラーメン与市」を2012年まで約15年間を経営。
その後、「横手市雇用創出協議会 実践支援員」を経て、一時会社勤めをするが体調を崩し、再度、自営業の世界に戻る。
現在の「あさまいCTS」は2019年1月に起業。業務内容は主に、パソコンの修理、出張スマホ・パソコン教室、ホームページ作成 その他何でも屋みたいなものです・・・