Excel VBAでスポーツの結果・試合スケジュールを効率的に取得する方法

この記事では、Excel VBAを使用してスポーツの結果や試合スケジュールを取得する方法を詳しく紹介します。初心者から中級者向けに、具体的なコードの例とその詳細な解説、さらには実用的な応用例を3つご紹介します。

VBAでのスポーツ結果の取得の基本

Excel VBAを使用してWebから情報を取得する場合、一般的にはWebクエリやVBAの外部ライブラリを使用します。このセクションでは、基本的な方法をご紹介します。

Sub FetchSportsResults()
    Dim QuerySheet As Worksheet
    Set QuerySheet = ThisWorkbook.Worksheets.Add
    QuerySheet.Name = "SportsResults"
    
    With QuerySheet.QueryTables.Add(Connection:="URL;http://example-sports-website.com/results", Destination:=Range("A1"))
        .BackgroundQuery = True
        .TablesOnlyFromHTML = True
        .Refresh BackgroundQuery:=False
        .SaveData = True
    End With
End Sub

上記のコードは、スポーツの結果を表示するウェブページから情報を取得して新しいワークシートに貼り付ける基本的なコードです。この例では「http://example-sports-website.com/results」から情報を取得していますが、実際には適切なURLを設定する必要があります。

取得データの整形

Webから取得したデータは、そのままでは見づらい場合が多いです。VBAを使用してデータを整形する方法を紹介します。

Sub FormatSportsResults()
    Dim LastRow As Long
    With ThisWorkbook.Worksheets("SportsResults")
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range("A1:B" & LastRow).AutoFilter
        .Range("A1:B" & LastRow).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes
    End With
End Sub

このコードは、取得したスポーツの結果データをフィルタリングし、日付順にソートするものです。

応用例

1. 特定のチームの結果だけを抽出

特定のチームの結果だけを表示する方法です。

Sub FilterTeamResults(TeamName As String)
    Dim LastRow As Long
    With ThisWorkbook.Worksheets("SportsResults")
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range("A1:B" & LastRow).AutoFilter Field:=2, Criteria1:=TeamName
    End With
End Sub

上記のコードは、指定したチーム名で結果をフィルタリングします。例えば、`FilterTeamResults “Yankees”`を実行すると、Yankeesの結果だけが表示されます。

2. 最近の5試合の結果を表示

Sub LastFiveGames()
    Dim LastRow As Long
    With ThisWorkbook.Worksheets("SportsResults")
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Rows("1:" & LastRow - 5).Hidden = True
    End With
End Sub

3. 勝ち試合の結果だけをハイライト

Sub HighlightWins()
    Dim LastRow As Long, i As Long
    With ThisWorkbook.Worksheets("SportsResults")
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 1 To LastRow
            If .Cells(i, 3).Value = "Win" Then
                .Cells(i, 1).EntireRow.Interior.Color = RGB(146, 208, 80)
            End If
        Next i
    End With
End Sub

まとめ

Excel VBAを使用して、スポーツの結果や試合スケジュールを簡単に取得・整形する方法を学びました。これらの基本的な手法を基に、さまざまなカスタマイズや拡張を行い、自分だけのスポーツデータツールを作成することができます。