Menuへ
Excelのバージョンを調べる

現在のエクセルのバージョンは、Excel2007、Excel2003、Excel2002、Excel2000、Excel97、Excel95 があります。このバージョン番号は「Application.Version」で取得できます。



PlaySound　APIで再生する

Excelバージョン取得
mciSendString　APIで再生する

Option Explicit

Private Sub CommandButton1_Click()
    Dim sVer As String
    
    sVer = Application.Version
    Select Case sVer
        Case "12.0"
            MsgBox "Excel2007"
        Case "11.0"
            MsgBox "Excel2003"
        Case "10.0"
            MsgBox "Excel2002"
        Case "9.0"
            MsgBox "Excel2000"
        Case "8.0a"
            MsgBox "Excel97 SR-1"
        Case "8.0"
            MsgBox "Excel97"
        Case "7.0"
            MsgBox "Excel95"
        Case Else
            MsgBox "不明"
    End Select

End Sub


Topへ