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

Вход

Регистрация

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

 

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

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

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

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

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

Для определения текущей версии Excel используйте такой код:

Sub Excel_Version()
    Dim Ver As String
        Select Case Val(Application.Version)
        Case Is <9: 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 17: Ver = "Microsoft Excel 2019"
        Case 18: Ver = "Microsoft Excel 2021"
        Case Else: Ver = "Версия не определена"
        End Select
    MsgBox "Вы работаете в " & Ver
End Sub
Добавил: Serge_007 |
Просмотров: 6636 | Рейтинг: 5.0/2
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!