EXCELヴァージョン

0pt

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

タグ

!! (^ ..O ^ ) !! SHINYA

2009-09-08 14:52:04 #1 履歴 コメント(0)

新バージョンで見る

「EXCELヴァージョン」について友人に書いてもらう。

あなたにとって「EXCELヴァージョン」とは？

ログインするとワンクリックでキーワードを投稿できます

ログインする 新規登録する

他の人の「EXCELヴァージョン」を見る