|
엑셀(Excel) VBA – Application.Version 개체로 엑셀 버전과 사용언어 알아보기 |
|
환경 : Microsoft Excel 2010 |
Application 개체의 속성값으로 다양한 정보를 알아올수가 있습니다. 그중에서 Version 으로 엑셀의 현재 버전과 Application.LanguageSettings 으로 사용언어를 알아 보겠습니다.
▼ 먼저 Application.Version 으로 값을 가져오게 되면 아래 값중 하나가 됩니다. 오른쪽에 있는 값이 Application.Version 이죠.
|
Excel 97 = 8 Excel 2000 = 9 Excel 2002 = 10 Excel 2003 = 11 Excel 2007 = 12 Excel 2010 = 14 Excel 2013 = 15 |
▼ 이것을 기반으로 Select Case 문을 이용해서 버전명을 추출하였습니다. 문자열 값이기 때문에 Val() 을 사용해 Double 변경합니다.
|
Function 엑셀버전()
Select Case Val(Application.Version) Case Is <= 8 엑셀버전 = "97 ver" Case 9 엑셀버전 = "2000 ver" Case 10 엑셀버전 = "2002 ver" Case 11 엑셀버전 = "2003 ver" Case 12 엑셀버전 = "2007 ver" Case 14 엑셀버전 = "2010 ver" Case 15 엑셀버전 = "2013 ver" Case Else 엑셀버전 = "#버전오류" End Select
End Function |
▼ 현재 엑셀에서 사용하는 언어의 정보를 가져오기 위해서 Application.LanguageSettings.LanguageID(msoLanguageIDUI) 로 값을 가져옵니다. 가져온 값에 대해 어떤언어가 사용되었는지 알아보기 위해서 아래 주소로 가시면 됩니다.
http://support.microsoft.com/kb/221435
|
Function 사용언어()
Select Case Application.LanguageSettings.LanguageID(msoLanguageIDUI) Case 1031: 사용언어 = "Run code for German" Case 1034: 사용언어 = "Run code for Spanish" Case 1036: 사용언어 = "Run code for French" Case 1043: 사용언어 = "Run code for Dutch" Case 1043: 사용언어 = "Run code for Dutch" Case 1049: 사용언어 = "Run code for Russian" Case 1042: 사용언어 = "Run code for Korea" Case Else: 사용언어 = "Run code for English US(default 1033)" End Select
End Function |
▼ 두개의 함수를 실행한 결과입니다. 당연한 결과지만 엑셀 2010 과 사용언어가 한글이네요
'엑셀(Excel) > VBA' 카테고리의 다른 글
| 엑셀(Excel) VBA 메모의 내용을 바로 옆 셀에 표시하는 방법 (8) | 2018.06.06 |
|---|---|
| 엑셀(Excel) VBA – 다른 시트의 값을 가져와서 데이터를 추가하는 방법 (4) | 2018.04.18 |
| 엑셀 VBA 동일한 셀의 배경색을 구분하여 값을 합산하는 방법 (7) | 2018.02.01 |
| 엑셀 Excel UserForm 에 멀티 페이지 구현을 위해 탭 추가하는 방법 (0) | 2017.09.26 |
| 엑셀(Excel) VBA – 셀에 적용된 같은 배경색 데이터 합산하기 (7) | 2014.12.28 |
| 엑셀(Excel) VBA – 문자열에서 숫자, 대문자, 소문자, 한글추출하기 (5) | 2014.12.24 |
| 엑셀(Excel) VBA – Application.Evaluate 함수 이용해서 수식문자열계산하기 (2) | 2014.12.23 |
| 엑셀(Excel) VBA – 수식을 문자열로 바꾸는 사용자정의 함수 만들기 (0) | 2014.12.22 |
