Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Готовые решения

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 35788
Главная » Готовые решения » VBA » Процедуры

Определение используемой версии Excel
11.12.2013, 17:27
[ Файл-пример (59.0Kb) ]

Для определения текущей версии Excel используйте такой код:
Sub Version()
Dim Ver as String
 Select Case Val(Application.Version)
 Case Is <= 8: Ver = "Microsoft Excel 20-го века"
 Case 9: Ver = "Microsoft Excel 2000"
 Case 10: Ver = "Microsoft Excel 2002"
 Case 11: Ver = "Microsoft Excel 2003"
 Case 12: Ver = "Microsoft Excel 2007"
 Case 14: Ver = "Microsoft Excel 2010"
 Case 15: Ver = "Microsoft Excel 2013"
 Case 16: Ver = "Microsoft Excel 2016"
 Case Else: Ver = "Версия не определена"
 End Select
 MsgBox "Вы работаете в " & Ver
End Sub
Добавил: Serge_007 |
Просмотров: 2592 | Рейтинг: 5.0/1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!