記録シート作成記 02

　今回は結果シートの作成。データが違ったときのために、なるべく数式を使うことにする。そうすることで、Excelでも簡易データベースになる。MS Accessなんて持ってないし、数百人くらいならばデータベースは必要ないだろう。
　本当は、エントリーシートから数式を使って参照していけば、誤字などの修正時かなり楽になるんだけど・・・
　今回も前回と同様にマクロは使っていない。いきなりマクロで作成するとバグ潰しが面倒になるので、少しずつ作成していく。マクロを使うところは、ここに書いてある通りで考える。
　必要な項目は、次の通り。

• 順位１から順番に割り当てる。同タイムは、同じ順位にする。これらから、RANK関数をする。

=RANK(タイムのセル, 全員のタイムのセル範囲, 1)

• タイム次の２通りの案がある。

1.  記録シートからそのまま持ってくる。

=記録シート!セル

2.  記録を時間に変更する。
    （１日を1.0としたシリアル値に変更）

=TEXT(INT(セル/100)/(24*60)+MOD(セル,100)/(24*60*60),"mm:ss.00")

左寄せで表示されるため、右寄せにする。

　今後の記録を比較するためにも、２．の方法の方が良いかもしれない。

• ビブ
• 氏名
• ふりがな
• クラス
• 年齢(いちおう列を非表示)
• クラブ

これらの項目は記録シートからそのまま持ってくる。

=記録シート!セル

ビブNo.からVLOOKUP関数で持ってくるという方法もあるが、そのまま持ってきた方が重くならないだろう。

　表示項目の列は上から順。これも簡単に変更可能なように、セル番号に$文字をつけて対応する。

ソートは、順位で昇順に。
印刷範囲は、記録全てを指定。
タイムがない（未入力 or 文字列）場合。ビブNo.はあるが、タイムが記録されていない時で判定。文字列をそのまま持ってくるか、"DS"と書き込む。

=IF(記録シート!ビブ<>"" AND 記録シート!タイム<>"",記録シート!タイム,"DS")

今回はここまで。次回は、クラス分け。

マクロで数式を作成するときの覚書。

Worksheets("Sheet1").Range("A1").Formula = "=IF($B3<>"""",VLOOKUP($I3,$B$3:$G$13,2,0),"""")"