EXCELヴァージョンの履歴
Application.Version
EXCELのヴァージョンを確認する関数
Function ExcelVer() As Integer
Dim Ver As Integer
Ver = CInt(Application.Version)
Select Case Ver
Case 12
ExcelVer = 2007
Case 11
ExcelVer = 2003
Case 10
ExcelVer = 2002
Case 9
ExcelVer = 2000
Case 8
ExcelVer = 97
Case 7
ExcelVer = 95
Case 5
ExcelVer = 5
Case Else
ExcelVer = 0
End Select
End Function
