（エンジン台帳）レーサー期別成績抽出用VBAソースコード

　2013年1月から2013年前期成績が適用されますが，エキサイトブログでは文字数制限で期別成績の一括表示ができません。そこで，データ抽出用のVBAソースコードを置いておきますのでご自由にお使いください。

　モーターボートファン手帳の内容はボートレースオフィシャルウェブサイト（http://www.boatrace.jp/data/kibetsu/index.html，リンクは許可が必要なので張っていません）の「データを調べる>データダウンロード・他>選手期別成績ダウンロード」からダウンロードできます。

簡単な使い方説明（OS X版）

1. ファン手帳テキスト版（fan1210.lzh）をダウンロード
   
2. fan1210.lzhを解凍しfan1210.txtを取得
   
3. fan1210.txtを右クリックし，「このアプリケーションで開く」でExcelを選択（画面1）
   
4. メニューのツール>マクロ>Visual Basic Editorを選択しプロジェクトウインドウを開く
   
5. プロジェクトウインドウの「Sheet1（fan1210.txt）」をダブルクリック
   
6. 「fan1210.txt - Sheet1（コード）」という名のウインドウが開くので，下のコードをペースト
   
7. 画面上の実行ボタンをクリック
   
8. 自動的にシートが作成されデータが出力される（画面2）

VBAソースコード

Sub createRacerList()

Dim i As Integer
Dim tempLineStr As String, tempStr As String
Dim newWorkSheet As Worksheet, currentSheet As Worksheet

Set currentSheet = ActiveSheet
Set newWorkSheet = Worksheets.Add(after:=ActiveSheet)

i = 1
newWorkSheet.Cells(i, 1) = "登番"
newWorkSheet.Cells(i, 2) = "氏名"
newWorkSheet.Cells(i, 3) = "期"
newWorkSheet.Cells(i, 4) = "級"
newWorkSheet.Cells(i, 5) = "勝率"

Do
tempLineStr = currentSheet.Cells(i, 1)
If tempLineStr = "" Then
Exit Do
End If
newWorkSheet.Cells(i + 1, 1) = Left$(tempLineStr, 4)
tempStr = Mid$(tempLineStr, 5, 8)
newWorkSheet.Cells(i + 1, 2) = Replace$(tempStr, "　", "")
newWorkSheet.Cells(i + 1, 3) = Mid$(tempLineStr, 186, 3)
newWorkSheet.Cells(i + 1, 4) = Mid$(tempLineStr, 30, 2)
newWorkSheet.Cells(i + 1, 5) = Mid$(tempLineStr, 49, 2) & "." & Mid$(tempLineStr, 51, 2)
newWorkSheet.Cells(i + 1, 5).NumberFormatLocal = "0.00"
i = i + 1
Loop

Set currentSheet = Nothing
Set newWorkSheet = Nothing

End Sub


↑　画面1：fan1210.txtを開いた状態

↑　画面2：マクロ実行結果

　話変わって，昨日19日付けで横西奏恵が引退したとのこと。豪快なまくりが見られなくなるのは残念ですね。アクアライブのゲスト解説でときどき来てくれたらねえ。