Excel - プログラミング覚書

• Excelのバージョン取得

Excelでバージョン情報といえば「 Val( Application.Version ) 」という方法で、
Excel97x：８
Excel2000x：９
Excel2002x：１０
Excel2003x：１１
という数値を取得できます。

• OS、エクセルのバージョン、ユーザー名を取得する

Sub MyVersion()
  MsgBox "Excel.Version:" & Chr(13) & _
       "Excel" & Application.Version 'エクセルのバージョン
  MsgBox "OS.Version: " & Chr(13) & _
       Application.OperatingSystem 'OSのバージョン
  MsgBox "Excelユーザー名: " & Chr(13) & _
       Application.UserName 'ユーザーネーム
End Sub  

• ファイル形式を調べる

Sub Sample()    
   Select Case ThisWorkbook.FileFormat
       Case XlFileFormat.xlExcel5
           MsgBox "このファイルの形式は" & _
                  "Excel95で作られたファイルです"
       Case XlFileFormat.xlExcel7
           MsgBox "このファイルの形式は" & _
                  "Excel97で作られたファイルです"
       Case XlFileFormat.xlWorkbookNormal
           MsgBox "このファイルの形式は" & _
                  "Excel2000で作られたファイルです"
       Case Else
           MsgBox "このファイルの形式は" & _
                  "Excel95/97/2000以外のファイルです"
   End Select
End Sub

選択範囲の漢数字を漢字に変換するマクロ

Sub ChangeKanjiToSuji()
'

   Const KANJI = "〇一二三四五六七八九"
   Dim a, k, i
   Dim strValu As String
   
   For Each a In Selection
       a.Value = Application.WorksheetFunction.Asc(a.Value)
       strValu = a.Value
       
       Dim j As Long
       For i = 1 To Len(strValu)
           j = InStr(1, KANJI, Mid$(strValu, i, 1), 0)
           If j > 0 Then Mid(strValu, i, 1) = CStr(j - 1)
       Next
       
       a.Value = Replace(strValu, "･", ".")
   Next

End Sub

---