엑셀 버전, 언어 확인
사용중인 오피스 버전이나, 언어는 아래 코드를 통해 확인이 가능하다.
debug.Print application.Version
' 16.0
debug.Print Application.LanguageSettings.LanguageID(msoLanguageIDUI)
' 1033
' 1033 = English (United States)
' 1042 = Korean
' 1041 = Japanese
' 1049 = Russian
' 1036 = French
' 1031 = German
' 1034 = Spanish
' 2052 = Chinese (PRC)
' 1028 = Chinese (Taiwan)
사용중인 언어가 영어인경우, ARIAL 폰트를, 한글인 경우, 맑은 고딕 폰트를 적용하는 코드는 아래와 같다.
Private Sub fontset()
With ActiveWorkbook.ActiveSheet
.Cells.Font.Size = 10
If Application.LanguageSettings.LanguageID(msoLanguageIDUI) = 1042 Then
.Cells.Font.Name = "맑은 고딕"
Else
.Cells.Font.Name = "arial"
End If
End With
End Sub
끝.