バージョンを取得する関数

EXCELのバージョンを取得する関数

 

Option Explicit

 

Function VersionCheck() As Integer

 

VersionCheck = CInt(Application.Version)

 

'Excel 95  =  7.0
'Excel 97  =  8.0
'Excel 2000 =  9.0
'Excel 2002 = 10.0
'Excel 2003 = 11.0
'Excel 2007 = 12.0
'Excel 2010 = 14.0
'Excel 2013 = 15.0
'Excel 2016 = 16.0

 

End Function

 

以上。

 

Windowsのバージョンを取得する関数

 

Option Explicit

 

Function WindowsVersionCheck() As String

 

Dim Version As String

 

Version = Replace(Right$(Application.OperatingSystem, 5), " ", "")

 

Select Case Version
    Case "4.00"
        Version = "95"
    Case "4.10"
        Version = "98"
    Case "4.90"
        Version = "Me"
    Case "5.00"
        Version = "2000"
    Case "5.01"
        Version = "XP"
    Case "6.00"
        Version = "Vista"
    Case "6.01"
        Version = "7"
    Case "6.02"
        Version = "8"
    Case "10.00"
        Version = "10"
    Case Else
        Version = "？"
End Select

 

'WindowsVersionCheck = Application.OperatingSystem
WindowsVersionCheck = "Windows" & Version

 

End Function

 

以上。