Sub Bitnost()

MsgBox "Welcome to Microsoft Excel version " & _

Application.Version & " running on " & _

Application.OperatingSystem & "!"

End Sub

11.12.2013, 17:27

[ Файл-пример (59.0 Kb) ]

Для определения текущей версии 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 |